Wolfgang Jeltsch pushed to branch wip/jeltsch/base-buildable-with-ghc-9-14 at Glasgow Haskell Compiler / GHC
Commits:
-
9175d5d8
by Wolfgang Jeltsch at 2026-05-19T21:06:17+03:00
1 changed file:
Changes:
| 1 | +{-# LANGUAGE CPP #-}
|
|
| 1 | 2 | {-# LANGUAGE Safe #-}
|
| 2 | 3 | |
| 3 | 4 | module GHC.Fingerprint (
|
| ... | ... | @@ -10,6 +11,8 @@ module GHC.Fingerprint ( |
| 10 | 11 | |
| 11 | 12 | import GHC.Internal.Fingerprint
|
| 12 | 13 | |
| 14 | +#if __GLASGOW_HASKELL__ >= 1000
|
|
| 15 | + |
|
| 13 | 16 | import Data.Function (($))
|
| 14 | 17 | import Control.Monad (return, when)
|
| 15 | 18 | import Data.Bool (not, (&&))
|
| ... | ... | @@ -51,3 +54,5 @@ getFileHash path = withBinaryFile path ReadMode $ \ hdl -> |
| 51 | 54 | )
|
| 52 | 55 | return (if isFinished then Just chunkSize else Nothing)
|
| 53 | 56 | in fingerprintBufferedStream readChunk
|
| 57 | + |
|
| 58 | +#endif |