Remove toGhcModT it's not needed anymore.

This commit is contained in:
Daniel Gröber 2014-08-15 20:35:21 +02:00
parent f7bc8460f4
commit f5d051dcef
3 changed files with 2 additions and 12 deletions

View File

@ -36,8 +36,6 @@ module Language.Haskell.GhcMod.Internal (
-- * Monad utilities
, runGhcModT'
, withErrorHandler
-- ** Conversion
, toGhcModT
-- ** Accessing 'GhcModEnv' and 'GhcModState'
, options
, cradle

View File

@ -125,7 +125,7 @@ withLoggerTwice setDF1 body1 setDF2 body2 = do
Right <$> readAndClearLogBagRef logref
-- Merge errors and warnings
dflags <- G.getSessionDynFlags
style <- toGhcModT getStyle
style <- getStyle
case (err1, err2) of
(Right b1, Right b2) -> do let (warn1,warn2) = mergeErrors dflags style b1 b2
errAndWarnBagToStr Right emptyBag (warn1 `unionBags` b2)
@ -150,7 +150,7 @@ errBagToStr = errBagToStr' Left
errBagToStr' :: IOish m => (String -> a) -> Bag ErrMsg -> GhcModT m a
errBagToStr' f err = do
dflags <- G.getSessionDynFlags
style <- toGhcModT getStyle
style <- getStyle
ret <- convert' (errBagToStrList dflags style err)
return $ f ret

View File

@ -19,8 +19,6 @@ module Language.Haskell.GhcMod.Monad (
, runGhcModT
, runGhcModT'
, withErrorHandler
-- ** Conversion
, toGhcModT
-- ** Accessing 'GhcModEnv' and 'GhcModState'
, gmsGet
, gmsPut
@ -306,12 +304,6 @@ overrideGhcUserOptions action = withTempSession $ do
action ghcOpts
-- | This is only a transitional mechanism don't use it for new code.
toGhcModT :: IOish m => Ghc a -> GhcModT m a
toGhcModT a = do
s <- gmGhcSession <$> ask
liftIO $ unGhc a $ Session s
----------------------------------------------------------------
gmsGet :: IOish m => GhcModT m GhcModState