diff options
| author | Alexander Biehl <abiehl@novomind.com> | 2018-02-19 10:03:50 +0100 |
|---|---|---|
| committer | Alexander Biehl <abiehl@novomind.com> | 2018-02-19 10:04:34 +0100 |
| commit | d66092ee99639de628dbc4fce8a9936875f47d8c (patch) | |
| tree | 035fe997e210e6500a036b200cd967824c4b848b /haddock-api/src/Haddock/Backends/Hoogle.hs | |
| parent | 6d62c5b79d0f3ce975c087b5176ee53d62122d86 (diff) | |
Hoogle/Latex: Remove use of partial function
Diffstat (limited to 'haddock-api/src/Haddock/Backends/Hoogle.hs')
| -rw-r--r-- | haddock-api/src/Haddock/Backends/Hoogle.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/haddock-api/src/Haddock/Backends/Hoogle.hs b/haddock-api/src/Haddock/Backends/Hoogle.hs index fc71d4b5..e002b602 100644 --- a/haddock-api/src/Haddock/Backends/Hoogle.hs +++ b/haddock-api/src/Haddock/Backends/Hoogle.hs @@ -141,7 +141,7 @@ ppSigWithDoc dflags (TypeSig names sig) subdocs = concatMap mkDocSig names where mkDocSig n = concatMap (ppDocumentation dflags) (getDoc n) - ++ [pp_sig dflags names (hsSigWcType sig)] + ++ [pp_sig dflags [n] (hsSigWcType sig)] getDoc :: Located Name -> [Documentation Name] getDoc n = maybe [] (return . fst) (lookup (unL n) subdocs) |