diff options
| author | David Waern <david.waern@gmail.com> | 2009-04-01 20:40:30 +0000 |
|---|---|---|
| committer | David Waern <david.waern@gmail.com> | 2009-04-01 20:40:30 +0000 |
| commit | 186015255cf4336047d8d32be94146f3fb57f631 (patch) | |
| tree | 4a5eda05bbfd4e6bf7b3c2e33f46c122643b5bec /src/Haddock/Interface/AttachInstances.hs | |
| parent | 7fe3bd1680c760bc2cb38f1e4b2c7ac03e679304 (diff) | |
hlint police
Diffstat (limited to 'src/Haddock/Interface/AttachInstances.hs')
| -rw-r--r-- | src/Haddock/Interface/AttachInstances.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Haddock/Interface/AttachInstances.hs b/src/Haddock/Interface/AttachInstances.hs index 0df45345..0db9f3ea 100644 --- a/src/Haddock/Interface/AttachInstances.hs +++ b/src/Haddock/Interface/AttachInstances.hs @@ -158,4 +158,4 @@ toHsType t = case t of app tc ts = foldl (\a b -> HsAppTy (noLoc a) (noLoc b)) tc (map toHsType ts) cvForAll vs (ForAllTy v ty) = cvForAll (v:vs) ty cvForAll vs ty = mkExplicitHsForAllTy (tyvarbinders vs) (noLoc []) (toLHsType ty) - tyvarbinders vs = map (noLoc . UserTyVar . tyVarName) vs + tyvarbinders = map (noLoc . UserTyVar . tyVarName) |