diff options
| author | Carlo Hamalainen <carlo@carlo-hamalainen.net> | 2017-11-01 04:43:14 +0800 |
|---|---|---|
| committer | Alexander Biehl <alexbiehl@gmail.com> | 2017-10-31 21:43:14 +0100 |
| commit | 281bb7dc19b0993622cb91b15007fb246cddb043 (patch) | |
| tree | 3e8977a0058381848c1396adb4c78368a6ec867e /haddock-api/src/Haddock | |
| parent | dbb505ca7e196697336ff82a931e98dbf0ad2aaa (diff) | |
More general type for nameCacheFromGhc. (#539)
Diffstat (limited to 'haddock-api/src/Haddock')
| -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 054c1384..31881c76 100644 --- a/haddock-api/src/Haddock/InterfaceFile.hs +++ b/haddock-api/src/Haddock/InterfaceFile.hs @@ -158,7 +158,7 @@ writeInterfaceFile filename iface = do type NameCacheAccessor m = (m NameCache, NameCache -> m ()) -nameCacheFromGhc :: NameCacheAccessor Ghc +nameCacheFromGhc :: forall m. (GhcMonad m, MonadIO m) => NameCacheAccessor m nameCacheFromGhc = ( read_from_session , write_to_session ) where read_from_session = do |