diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2015-01-06 16:37:47 +0000 |
|---|---|---|
| committer | Matthew Pickering <matthewtpickering@gmail.com> | 2015-12-14 15:10:58 +0000 |
| commit | 85ea110309c23509817a26aad7dd6d072f9f732b (patch) | |
| tree | 0958df3cbb2ec1665d6958dd6b1c0c81a8fee7a9 /haddock-api/src/Haddock/Interface.hs | |
| parent | 7e49f55580ffb701944603983b41873649bb35f6 (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.hs | 2 |
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) |