Permalink
Browse files

Small cleanup

  • Loading branch information...
maoe committed Nov 20, 2011
1 parent 146eb59 commit 1cd0b59ffd43833473958835d9b841a631427b0c
Showing with 1 addition and 15 deletions.
  1. +1 −1 src-execs/Server.hs
  2. +0 −14 src/Scion/Worker/Commands.hs
View
@@ -31,7 +31,7 @@ import qualified Data.Attoparsec as A
import qualified Data.ByteString as B
import qualified Data.ByteString.Lazy as BL
import qualified Data.ByteString.Char8 as S ( pack, putStrLn )
-import qualified Data.ByteString.Lazy.Char8 as L
+import qualified Data.ByteString.Lazy.Char8 as L ( putStrLn )
import qualified Data.MultiSet as MS
import qualified Data.Text as T
@@ -118,20 +118,6 @@ load how_much = do
return comp_rslt
- where
- --my_logger :: IORef Messages -> Maybe Ghc.SourceError -> Worker ()
- {-
- my_logger msgs err = do
- let errs = case err of
- Nothing -> emptyBag
- Just exc -> Ghc.srcErrorMessages exc
- warns <- Ghc.getWarnings
- Ghc.clearWarnings
- liftIO $ modifyIORef msgs (`mappend` Messages warns errs)
--- return Ghc.Failed
- return ()
- -}
-
moduleGraph :: Worker [ModuleSummary]
moduleGraph = do
mapM fromGhcModSummary =<< Ghc.getModuleGraph

0 comments on commit 1cd0b59

Please sign in to comment.