1
Fork 0

Prefer import from unnested modules.

master
Joshua Potter 2017-12-11 09:08:48 -08:00
parent 4b77cce007
commit 7757d26b3b
1 changed files with 16 additions and 26 deletions

View File

@ -33,20 +33,32 @@ import Control.Monad as X
, guard , guard
) )
import Control.Monad.Except as X
-- Note runExceptT is not actually a type declaration within the ExceptT
-- newtype but writing as follows for consistency's sake.
( ExceptT, ExceptT(ExceptT), runExceptT
)
import Control.Monad.Reader as X import Control.Monad.Reader as X
( MonadReader, ask, local, reader ( MonadReader, ask, local, reader
, Reader , Reader, runReader
, runReader , ReaderT, ReaderT(ReaderT), runReaderT
) )
import Control.Monad.State as X import Control.Monad.State as X
( MonadState, get, put, state ( MonadState, get, put, state
, State , State, runState
-- Note there also exists a strict interpretation but we default to the lazy
-- implementation.
, StateT, StateT(StateT), runStateT
) )
import Control.Monad.Writer as X import Control.Monad.Writer as X
( MonadWriter, listen, pass, tell, writer ( MonadWriter, listen, pass, tell, writer
, Writer , Writer, runWriter
-- Note there also exists a strict interpretation but we default to the lazy
-- implementation.
, WriterT, WriterT(WriterT), runWriterT
) )
import Control.Monad.Trans as X import Control.Monad.Trans as X
@ -58,32 +70,10 @@ import Control.Monad.Trans.Either as X
( EitherT, EitherT(EitherT), runEitherT ( EitherT, EitherT(EitherT), runEitherT
) )
import Control.Monad.Trans.Except as X
-- Note runExceptT is not actually a type declaration within the ExceptT
-- newtype but writing as follows for consistency's sake.
( ExceptT, ExceptT(ExceptT), runExceptT
)
import Control.Monad.Trans.Maybe as X import Control.Monad.Trans.Maybe as X
( MaybeT, MaybeT(MaybeT), runMaybeT ( MaybeT, MaybeT(MaybeT), runMaybeT
) )
import Control.Monad.Trans.Reader as X
( ReaderT, ReaderT(ReaderT), runReaderT
)
-- Note there also exists a strict interpretation but we default to the lazy
-- implementation.
import Control.Monad.Trans.State as X
( StateT, StateT(StateT), runStateT
)
-- Note there also exists a strict interpretation but we default to the lazy
-- implementation.
import Control.Monad.Trans.Writer as X
( WriterT, WriterT(WriterT), runWriterT
)
import Data.Bool as X import Data.Bool as X
( Bool, Bool(False), Bool(True) ( Bool, Bool(False), Bool(True)
, (&&) , (&&)