diff options
| author | David Waern <david.waern@gmail.com> | 2009-04-01 20:58:02 +0000 |
|---|---|---|
| committer | David Waern <david.waern@gmail.com> | 2009-04-01 20:58:02 +0000 |
| commit | 90550317d75261e4f32b1f8aedb5ef81d8e65bf8 (patch) | |
| tree | fcb628196c02df0f23d6ff85fc72994046a31ee6 /src/Haddock/Interface/AttachInstances.hs | |
| parent | 488fd5ef7762202b3c050442bc43fc32e02db046 (diff) | |
hlint police
Diffstat (limited to 'src/Haddock/Interface/AttachInstances.hs')
| -rw-r--r-- | src/Haddock/Interface/AttachInstances.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Haddock/Interface/AttachInstances.hs b/src/Haddock/Interface/AttachInstances.hs index 0db9f3ea..9ec3a3f2 100644 --- a/src/Haddock/Interface/AttachInstances.hs +++ b/src/Haddock/Interface/AttachInstances.hs @@ -75,7 +75,7 @@ collectInstances ifaces _ -- filterNames = Map.fromListWith (flip (++)) tyInstPairs `Map.union` Map.fromListWith (flip (++)) classInstPairs where - allInstances = concat (map ifaceInstances ifaces) + allInstances = concatMap ifaceInstances ifaces classInstPairs = [ (is_cls inst, [instanceHead inst]) | inst <- allInstances ] -- unfinished filtering of internal instances @@ -154,8 +154,8 @@ toHsType t = case t of ForAllTy v ty -> cvForAll [v] ty PredTy p -> HsPredTy (toHsPred p) where - tycon tc = HsTyVar (tyConName tc) - app tc ts = foldl (\a b -> HsAppTy (noLoc a) (noLoc b)) tc (map toHsType ts) + tycon = HsTyVar . tyConName + app tc = foldl (\a b -> HsAppTy (noLoc a) (noLoc b)) tc . map toHsType cvForAll vs (ForAllTy v ty) = cvForAll (v:vs) ty cvForAll vs ty = mkExplicitHsForAllTy (tyvarbinders vs) (noLoc []) (toLHsType ty) tyvarbinders = map (noLoc . UserTyVar . tyVarName) |