diff options
| author | Gert-Jan Bottu <gertjan.bottu@kuleuven.be> | 2020-04-05 11:16:56 +0200 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2020-05-20 16:48:38 -0400 |
| commit | 2af56ba08c876f39a066468d427e897f7329cc37 (patch) | |
| tree | c7b2ec5c69e7b3fe0ce68137cf1fa492456769f7 /html-test/src/Bug679.hs | |
| parent | 82efd04109ecf299f053f23bad5ba3469b4ef83c (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)) |] |