diff options
| author | Vladislav Zavialov <vlad.z.4096@gmail.com> | 2021-01-24 16:03:45 +0300 |
|---|---|---|
| committer | Vladislav Zavialov <vlad.z.4096@gmail.com> | 2021-02-05 17:41:57 +0300 |
| commit | 2b2bf07fb10da33ca2edf060a6049ad7dc7b7b4c (patch) | |
| tree | 6791addef27102071412a6130af285e6a56398cf /haddock-api/src/Haddock/InterfaceFile.hs | |
| parent | 17acefbc7f5a353c3b9ab3980944ce7141c5a7f3 (diff) | |
Cleanup: fix build warnings
Diffstat (limited to 'haddock-api/src/Haddock/InterfaceFile.hs')
| -rw-r--r-- | haddock-api/src/Haddock/InterfaceFile.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/haddock-api/src/Haddock/InterfaceFile.hs b/haddock-api/src/Haddock/InterfaceFile.hs index 0b8bb9f2..35f21f6c 100644 --- a/haddock-api/src/Haddock/InterfaceFile.hs +++ b/haddock-api/src/Haddock/InterfaceFile.hs @@ -159,7 +159,7 @@ writeInterfaceFile filename iface = do type NameCacheAccessor m = (m NameCache, NameCache -> m ()) -nameCacheFromGhc :: forall m. (GhcMonad m, MonadIO m) => NameCacheAccessor m +nameCacheFromGhc :: forall m. GhcMonad m => NameCacheAccessor m nameCacheFromGhc = ( read_from_session , write_to_session ) where read_from_session = do |