From 21e4f3fa6f73a9b25f3deed80da0e56024238ea5 Mon Sep 17 00:00:00 2001
From: mynguyen <mnguyen1@brynmawr.edu>
Date: Tue, 17 Jul 2018 18:20:12 -0400
Subject: Visible kind application haddock update

---
 haddock-api/src/Haddock/Convert.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'haddock-api/src/Haddock/Convert.hs')

diff --git a/haddock-api/src/Haddock/Convert.hs b/haddock-api/src/Haddock/Convert.hs
index 291af8de..5312bfc7 100644
--- a/haddock-api/src/Haddock/Convert.hs
+++ b/haddock-api/src/Haddock/Convert.hs
@@ -125,7 +125,7 @@ synifyAxBranch tc (CoAxBranch { cab_tvs = tkvs, cab_lhs = args, cab_rhs = rhs })
                                    , feqn_tycon  = name
                                    , feqn_bndrs  = Nothing
                                        -- this must change eventually
-                                   , feqn_pats   = annot_typats
+                                   , feqn_pats   = map HsValArg annot_typats
                                    , feqn_fixity = Prefix
                                    , feqn_rhs    = hs_rhs } }
   where
-- 
cgit v1.2.3