whitespace

This commit is contained in:
Daniel Gröber 2014-07-11 04:51:27 +02:00
parent 320b2243a2
commit d818a64f6f

View File

@ -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