diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2015-01-06 16:37:47 +0000 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2015-01-06 16:37:47 +0000 |
| commit | 8b1d44fbdde141cf883f5ddcd337bbbab8433228 (patch) | |
| tree | 5a59d951cce35e341c28811eed02dedd05a3e528 /haddock-api/src/Haddock/Interface.hs | |
| parent | 56b9e6bcef33612b40d3f93f170397eff77411eb (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) |