diff options
| author | alexbiehl <alex.biehl@gmail.com> | 2017-10-31 21:48:55 +0100 |
|---|---|---|
| committer | alexbiehl <alex.biehl@gmail.com> | 2017-10-31 21:48:55 +0100 |
| commit | 08c9e19236770811caf571321f5ece271d1fccff (patch) | |
| tree | beb3f6407d14abcab32f9d54811cabd319c356a4 /haddock-api/src/Haddock/InterfaceFile.hs | |
| parent | 3896bff411596ef50b5ca2f2be425e89878410aa (diff) | |
| parent | e5fe98530d9c70f5197494da9de07f42dd7fe334 (diff) | |
Merge remote-tracking branch 'origin/master' into ghc-head
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 59582fd2..76bcb4ae 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 |