diff options
| author | Łukasz Hanuszczak <lukasz.hanuszczak@gmail.com> | 2015-07-20 12:50:31 +0200 |
|---|---|---|
| committer | Mateusz Kowalczyk <fuuzetsu@fuuzetsu.co.uk> | 2015-08-21 18:22:30 +0100 |
| commit | 532478bcee19cf465a6a0ad24e05c6a571213c05 (patch) | |
| tree | bfbae4a79b52ca32afa095c84442b9d45abfe4fd /haddock-api/src/Haddock/Backends/Xhtml | |
| parent | 77b628b79bd179e7dde83d44bbea5acb4c0cb043 (diff) | |
Fix compilation error caused by incorrect type signature.
Diffstat (limited to 'haddock-api/src/Haddock/Backends/Xhtml')
| -rw-r--r-- | haddock-api/src/Haddock/Backends/Xhtml/Specialize.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/haddock-api/src/Haddock/Backends/Xhtml/Specialize.hs b/haddock-api/src/Haddock/Backends/Xhtml/Specialize.hs index 7e568933..37632ee7 100644 --- a/haddock-api/src/Haddock/Backends/Xhtml/Specialize.hs +++ b/haddock-api/src/Haddock/Backends/Xhtml/Specialize.hs @@ -159,7 +159,7 @@ renameType HsWildcardTy = pure HsWildcardTy renameType (HsNamedWildcardTy name) = HsNamedWildcardTy <$> renameName name -freeVariables :: forall name. (NamedThing name, Data (HsType name)) +freeVariables :: forall name. (NamedThing name, DataId name) => HsType name -> Set OccName freeVariables = everythingWithState Set.empty Set.union query |