aboutsummaryrefslogtreecommitdiff
path: root/html-test/src/Bug679.hs
diff options
context:
space:
mode:
authorGert-Jan Bottu <gertjan.bottu@kuleuven.be>2020-04-05 11:16:56 +0200
committerGert-Jan Bottu <gertjan.bottu@kuleuven.be>2020-05-15 22:09:44 +0200
commita8d7e66da4dcc3b242103271875261604be42d6e (patch)
treee468ca29b905b35f76318f547a173de401995672 /html-test/src/Bug679.hs
parent97f301a63ea8461074bfaa1486eb798e4be65f15 (diff)
Explicit Specificity Support for Haddock
Diffstat (limited to 'html-test/src/Bug679.hs')
-rw-r--r--html-test/src/Bug679.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/html-test/src/Bug679.hs b/html-test/src/Bug679.hs
index dba194c4..0a321ec5 100644
--- a/html-test/src/Bug679.hs
+++ b/html-test/src/Bug679.hs
@@ -13,7 +13,7 @@ $(do
let methodN = mkName "foo"
methodTy <- [t| $(varT a) -> $(varT a) |]
- let cla = ClassD [] classN [PlainTV a] [] [SigD methodN methodTy]
+ let cla = ClassD [] classN [PlainTV a ()] [] [SigD methodN methodTy]
-- Note that we are /reusing/ the same type variable 'a' as in the class
instanceHead <- [t| $(conT classN) (Bar $(varT a)) |]