Add additional transformers by default.

src/Postlude.hs

@@ -3,62 +3,45 @@
 module Postlude (module X) where
 
 import Control.Applicative as X
-  ( Applicative
+  ( Applicative (..)
-  , (*>)
   , (<$>)
-  , (<*)
-  , (<*>)
   , pure
   )
 
 import Control.Arrow as X
-  ( Arrow
+  ( Arrow (..)
-  , ArrowChoice
+  , ArrowChoice (..)
-  , ArrowLoop
+  , ArrowLoop (..)
-  , ArrowMonad
+  , ArrowMonad (..)
-  , ArrowPlus
+  , ArrowPlus (..)
-  , ArrowZero
+  , ArrowZero (..)
-  , (&&&)
-  , (***)
-  , (+++)
-  , (<+>)
   , (<<<)
   , (>>>)
-  , (|||)
-  , arr
-  , first
-  , left
-  , loop
   , returnA
-  , right
-  , second
-  , zeroArrow
   )
 
 import Control.Monad as X
-  ( Monad
+  ( Monad (..)
-  , MonadPlus
+  , MonadPlus (..)
-  , (>>)
-  , (>>=)
-  , fail
   , filterM
   , guard
-  , mplus
-  , mzero
-  , return
   )
 
 import Control.Monad.Reader as X
-  ( MonadReader
+  ( MonadReader (..)
-  , ask
-  , local
-  , reader
   )
 
 import Control.Monad.Trans as X
-  ( MonadIO
+  ( MonadIO (..)
   , lift
-  , liftIO
+  )
+
+import Control.Monad.Trans.Except as X
+  ( ExceptT (..)
+  )
+
+import Control.Monad.Trans.Maybe as X
+  ( MaybeT (..)
   )
 
 import Control.Monad.Trans.Reader as X
@@ -97,14 +80,16 @@ import Data.Function as X
   )
 
 import Data.Functor as X
-  ( Functor
+  ( Functor (..)
   , ($>)
-  , (<$)
   , (<$>)
-  , fmap
   , void
   )
 
+import Data.Functor.Identity as X
+  ( Identity (..)
+  )
+
 import Data.Int as X
   ( Int
   , Int8
@@ -132,10 +117,7 @@ import Data.Maybe as X
   )
 
 import Data.Monoid as X
-  ( Monoid
+  ( Monoid (..)
-  , mappend
-  , mconcat
-  , mempty
   )
 
 import Data.Ord as X