From 532478bcee19cf465a6a0ad24e05c6a571213c05 Mon Sep 17 00:00:00 2001 From: Łukasz Hanuszczak Date: Mon, 20 Jul 2015 12:50:31 +0200 Subject: Fix compilation error caused by incorrect type signature. --- haddock-api/src/Haddock/Backends/Xhtml/Specialize.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'haddock-api/src') 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 -- cgit v1.2.3