Commit db8c9588 authored by refold's avatar refold
Browse files

Fix warnings.

parent f9261da4
......@@ -61,7 +61,7 @@ putBuildLog :: BuildReportId -> BuildLog
-> BrowserAction (HandleStream BuildLog) ()
putBuildLog reportId buildLog = do
--FIXME: do something if the request fails
(_, response) <- request Request {
(_, _response) <- request Request {
rqURI = reportId{uriPath = uriPath reportId </> "log"},
rqMethod = PUT,
rqHeaders = [Header HdrContentType ("text/plain"),
......
......@@ -56,7 +56,7 @@ import Distribution.Client.Config
import Distribution.Client.IndexUtils
( getInstalledPackages )
import Distribution.Client.JobControl
( JobLimit, withJobLimit, Lock, criticalSection )
( Lock, criticalSection )
import Distribution.Simple.Utils
( die, debug, info, cabalVersion, findPackageDesc, comparing
, createDirectoryIfMissingVerbose, installExecutableFile
......
......@@ -40,6 +40,7 @@ import Distribution.Simple.Utils
import Distribution.Text
( Text(..), display, simpleParse )
import qualified Distribution.Compat.ReadP as Parse
import Distribution.Compat.Exception ( catchIO )
import qualified Text.PrettyPrint as Disp
import Text.PrettyPrint ( (<>), (<+>) )
......@@ -117,7 +118,7 @@ getContents world = do
else die "Could not parse world file."
where
safelyReadFile :: FilePath -> IO B.ByteString
safelyReadFile file = B.readFile file `catch` handler
safelyReadFile file = B.readFile file `catchIO` handler
where
handler e | isDoesNotExistError e = return B.empty
| otherwise = ioError e
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment