whitespace
This commit is contained in:
parent
320b2243a2
commit
d818a64f6f
@ -50,13 +50,13 @@ import Data.Monoid (Monoid)
|
|||||||
|
|
||||||
import Control.Applicative (Alternative)
|
import Control.Applicative (Alternative)
|
||||||
import Control.Monad (MonadPlus, liftM)
|
import Control.Monad (MonadPlus, liftM)
|
||||||
import Control.Monad.Base (MonadBase,liftBase)
|
import Control.Monad.Base (MonadBase, liftBase)
|
||||||
|
|
||||||
import Control.Monad.Reader.Class
|
import Control.Monad.Reader.Class
|
||||||
import Control.Monad.State.Class
|
import Control.Monad.State.Class
|
||||||
import Control.Monad.Trans.Class
|
import Control.Monad.Trans.Class
|
||||||
import Control.Monad.Trans.Control (MonadBaseControl(..), StM, liftBaseWith, control, liftBaseOp, liftBaseOp_)
|
import Control.Monad.Trans.Control (MonadBaseControl(..), StM, liftBaseWith, control, liftBaseOp, liftBaseOp_)
|
||||||
import Control.Monad.Trans.RWS.Lazy (RWST(..),runRWST)
|
import Control.Monad.Trans.RWS.Lazy (RWST(..), runRWST)
|
||||||
import Control.Monad.Writer.Class
|
import Control.Monad.Writer.Class
|
||||||
|
|
||||||
import Data.IORef (IORef, readIORef, writeIORef, newIORef)
|
import Data.IORef (IORef, readIORef, writeIORef, newIORef)
|
||||||
@ -85,15 +85,15 @@ type GhcMod a = GhcModT IO a
|
|||||||
newtype GhcModT m a = GhcModT {
|
newtype GhcModT m a = GhcModT {
|
||||||
unGhcModT :: RWST GhcModEnv GhcModWriter GhcModState m a
|
unGhcModT :: RWST GhcModEnv GhcModWriter GhcModState m a
|
||||||
} deriving (Functor
|
} deriving (Functor
|
||||||
,Applicative
|
, Applicative
|
||||||
,Alternative
|
, Alternative
|
||||||
,Monad
|
, Monad
|
||||||
,MonadPlus
|
, MonadPlus
|
||||||
,MonadIO
|
, MonadIO
|
||||||
,MonadReader GhcModEnv
|
, MonadReader GhcModEnv
|
||||||
,MonadWriter GhcModWriter
|
, MonadWriter GhcModWriter
|
||||||
,MonadState GhcModState
|
, MonadState GhcModState
|
||||||
,MonadTrans
|
, MonadTrans
|
||||||
)
|
)
|
||||||
|
|
||||||
#if __GLASGOW_HASKELL__ < 708
|
#if __GLASGOW_HASKELL__ < 708
|
||||||
|
Loading…
Reference in New Issue
Block a user