diff options
| author | David Waern <david.waern@gmail.com> | 2012-02-04 21:37:16 +0100 |
|---|---|---|
| committer | David Waern <david.waern@gmail.com> | 2012-02-04 21:43:49 +0100 |
| commit | 12d931b4c3fcd6d8e26cc48b9072b4291efa5cdb (patch) | |
| tree | e9e035574c5b9571a2ceaad5de33939c5bf04bfd /src/Haddock/Types.hs | |
| parent | ac8e218ba6407fc826fc54e0f1b7ac23c0c6b338 (diff) | |
Mostly hlint-inspired cleanup.
Diffstat (limited to 'src/Haddock/Types.hs')
| -rw-r--r-- | src/Haddock/Types.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Haddock/Types.hs b/src/Haddock/Types.hs index 927fcffb..22d2f6ae 100644 --- a/src/Haddock/Types.hs +++ b/src/Haddock/Types.hs @@ -430,7 +430,7 @@ throwE str = throw (HaddockException str) -- @Haddock.Types.ErrMsg@s a lot, like @ErrMsgM@ does, -- but we can't just use @GhcT ErrMsgM@ because GhcT requires the -- transformed monad to be MonadIO. -newtype ErrMsgGhc a = WriterGhc { runWriterGhc :: (Ghc (a, [ErrMsg])) } +newtype ErrMsgGhc a = WriterGhc { runWriterGhc :: Ghc (a, [ErrMsg]) } --instance MonadIO ErrMsgGhc where -- liftIO = WriterGhc . fmap (\a->(a,[])) liftIO --er, implementing GhcMonad involves annoying ExceptionMonad and |