diff options
| author | David Waern <david.waern@gmail.com> | 2008-10-10 20:33:38 +0000 |
|---|---|---|
| committer | David Waern <david.waern@gmail.com> | 2008-10-10 20:33:38 +0000 |
| commit | ff03f4f8b4ac1b9ccd9ef93c294ac835871c349f (patch) | |
| tree | 3cee68382d8029088b54154188c7396cf563731d /src/Haddock/Utils.hs | |
| parent | 8a57f3d9eb971ab4957f2780ed7a0b5be0b3b6e3 (diff) | |
Make Haddock build with GHC 6.8.2
Diffstat (limited to 'src/Haddock/Utils.hs')
| -rw-r--r-- | src/Haddock/Utils.hs | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/src/Haddock/Utils.hs b/src/Haddock/Utils.hs index 5743cbe1..8fe64b30 100644 --- a/src/Haddock/Utils.hs +++ b/src/Haddock/Utils.hs @@ -36,6 +36,9 @@ module Haddock.Utils ( -- * Binary extras -- FormatVersion, mkFormatVersion + + -- * MTL stuff + MonadIO(..) ) where import Haddock.Types @@ -64,6 +67,14 @@ import System.Exit ( exitWith, ExitCode(..) ) import System.IO ( hPutStr, stderr ) import System.IO.Unsafe ( unsafePerformIO ) +#if __GLASGOW_HASKELL__ >= 609 +import MonadUtils ( MonadIO(..) ) +#else +class Monad m => MonadIO m where + liftIO :: IO a -> m a +instance MonadIO IO where liftIO = id +#endif + -- ----------------------------------------------------------------------------- -- Some Utilities |