diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2015-11-13 12:18:17 +0000 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2015-11-13 12:18:17 +0000 |
| commit | 0d157fea7d1e4055abcb6453545f8bf326ce2279 (patch) | |
| tree | 5ae49f42a15167bec798ad05bd22998cbbb1261b /haddock-api/src/Haddock/Interface/Rename.hs | |
| parent | 0413c544b60c063ef286777d3008c4e33b4afbcd (diff) | |
| parent | 83a9e9d2c7f0debec9d56e8b3b7cc8a8eb73361e (diff) | |
Merge with origin/head
Diffstat (limited to 'haddock-api/src/Haddock/Interface/Rename.hs')
| -rw-r--r-- | haddock-api/src/Haddock/Interface/Rename.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/haddock-api/src/Haddock/Interface/Rename.hs b/haddock-api/src/Haddock/Interface/Rename.hs index f95e527e..3640d348 100644 --- a/haddock-api/src/Haddock/Interface/Rename.hs +++ b/haddock-api/src/Haddock/Interface/Rename.hs @@ -444,7 +444,9 @@ renameSig sig = case sig of FixSig (FixitySig lnames fixity) -> do lnames' <- mapM renameL lnames return $ FixSig (FixitySig lnames' fixity) - MinimalSig src s -> MinimalSig src <$> traverse renameL s + MinimalSig src (L l s) -> do + s' <- traverse renameL s + return $ MinimalSig src (L l s') -- we have filtered out all other kinds of signatures in Interface.Create _ -> error "expected TypeSig" |