diff options
| author | Gert-Jan Bottu <gertjan.bottu@kuleuven.be> | 2020-04-05 11:16:56 +0200 |
|---|---|---|
| committer | Gert-Jan Bottu <gertjan.bottu@kuleuven.be> | 2020-05-15 22:09:44 +0200 |
| commit | a8d7e66da4dcc3b242103271875261604be42d6e (patch) | |
| tree | e468ca29b905b35f76318f547a173de401995672 /html-test/src/Bug679.hs | |
| parent | 97f301a63ea8461074bfaa1486eb798e4be65f15 (diff) | |
Explicit Specificity Support for Haddock
Diffstat (limited to 'html-test/src/Bug679.hs')
| -rw-r--r-- | html-test/src/Bug679.hs | 2 |
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)) |] |