Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Fix warnings.

  • Loading branch information...
commit d232ac90e765ff382f525ca1f7b16c06f124ade6 1 parent 60f0e8d
Thomas Schilling authored
4 src/Scion/Cabal.hs
View
@@ -16,7 +16,6 @@ import Scion.Types.Worker
import Data.Maybe ( isJust )
import Data.Typeable ( Typeable )
-import Control.Exception ( throwIO, Exception )
import Control.Monad ( when )
import Distribution.PackageDescription.Parse
import Distribution.Simple.Build ( initialBuildSteps )
@@ -33,8 +32,7 @@ import qualified Distribution.Verbosity as V ( normal, deafening, silent )
import GHC.Paths ( ghc, ghc_pkg )
import System.Directory
import System.Exit ( ExitCode(..) )
-import System.FilePath ( (</>), dropFileName, takeExtension,
- dropExtension,(<.>), takeBaseName )
+import System.FilePath ( dropFileName, takeBaseName )
-- | Something went wrong inside Cabal.
data CabalException = CabalException String
2  src/Scion/Types/Compiler.hs
View
@@ -2,7 +2,7 @@ module Scion.Types.Compiler where
import Control.Applicative
import Data.Binary
-import Data.Binary.Get
+import Data.Binary.Get()
import Data.Binary.Put
import Data.String ( IsString(fromString) )
import qualified Data.Text as T
2  src/Scion/Types/Worker.hs
View
@@ -50,7 +50,7 @@ instance Monad Worker where
unWorker (k a) r
instance MonadIO Worker where
- liftIO io = Worker $ \_ -> liftIO io
+ liftIO act = Worker $ \_ -> liftIO act
instance ExceptionMonad Worker where
gcatch (Worker act) handler =
Please sign in to comment.
Something went wrong with that request. Please try again.