From a8d7e66da4dcc3b242103271875261604be42d6e Mon Sep 17 00:00:00 2001
From: Gert-Jan Bottu <gertjan.bottu@kuleuven.be>
Date: Sun, 5 Apr 2020 11:16:56 +0200
Subject: Explicit Specificity Support for Haddock

---
 html-test/src/Bug679.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'html-test/src/Bug679.hs')

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)) |]
-- 
cgit v1.2.3