@@ -19,7 +19,7 @@ import Distribution.Text ( simpleParse )
1919import System.Directory ( doesDirectoryExist, doesFileExist, createDirectoryIfMissing, getHomeDirectory, getDirectoryContents )
2020import System.Exit ( exitFailure )
2121import System.FilePath ( (</>), (<.>) )
22−import System.IO ( hPutStrLn, stderr, hPutStr, openFile, InputMode(ReadMode), hSetEncoding, utf8, hGetContents )
22+import System.IO ( hPutStrLn, stderr, hPutStr, openFile, IOMode(ReadMode), hSetEncoding, utf8, hGetContents )
2323
2424data Package = Package
2525 { pkgSource :: DerivationSource
@@ -143,9 +143,9 @@ cabalFromFile failHard file =
143143 -- wrap the whole block in `catchIO`, because of lazy IO. The `case` will force
144144 -- the reading of the file, so we will always catch the expression here.
145145 MaybeT $ handleIO (\err -> Nothing <$ hPutStrLn stderr ("*** parsing cabal file: " ++ show err)) $ do
146− inputHandle <- openFile ReadMode file
146+ inputHandle <- openFile file ReadMode
147147 hSetEncoding inputHandle utf8
148− content <- hGetContent inputHandle
148+ content <- hGetContents inputHandle
149149 case Cabal.parsePackageDescription content of
150150 Cabal.ParseFailed e | failHard -> do
151151 let (line, err) = ParseUtils.locatedErrorMsg e