aboutsummaryrefslogtreecommitdiff
path: root/haddock-api/src/Haddock/Interface.hs
diff options
context:
space:
mode:
authorSimon Peyton Jones <simonpj@microsoft.com>2015-01-06 16:37:47 +0000
committerSimon Peyton Jones <simonpj@microsoft.com>2015-01-06 16:37:47 +0000
commit8b1d44fbdde141cf883f5ddcd337bbbab8433228 (patch)
tree5a59d951cce35e341c28811eed02dedd05a3e528 /haddock-api/src/Haddock/Interface.hs
parent56b9e6bcef33612b40d3f93f170397eff77411eb (diff)
Remove redundant constraints from haddock, discovered by -fwarn-redundant-constraints
Diffstat (limited to 'haddock-api/src/Haddock/Interface.hs')
-rw-r--r--haddock-api/src/Haddock/Interface.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/haddock-api/src/Haddock/Interface.hs b/haddock-api/src/Haddock/Interface.hs
index 1bb04ed3..afb5111e 100644
--- a/haddock-api/src/Haddock/Interface.hs
+++ b/haddock-api/src/Haddock/Interface.hs
@@ -239,6 +239,6 @@ buildHomeLinks ifaces = foldl upd Map.empty (reverse ifaces)
--------------------------------------------------------------------------------
-withTempDir :: (ExceptionMonad m, MonadIO m) => FilePath -> m a -> m a
+withTempDir :: (ExceptionMonad m) => FilePath -> m a -> m a
withTempDir dir = gbracket_ (liftIO $ createDirectory dir)
(liftIO $ removeDirectoryRecursive dir)