Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Small cleanup

  • Loading branch information...
commit 1cd0b59ffd43833473958835d9b841a631427b0c 1 parent 146eb59
@maoe maoe authored
Showing with 1 addition and 15 deletions.
  1. +1 −1  src-execs/Server.hs
  2. +0 −14 src/Scion/Worker/Commands.hs
View
2  src-execs/Server.hs
@@ -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
View
14 src/Scion/Worker/Commands.hs
@@ -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
Please sign in to comment.
Something went wrong with that request. Please try again.