From 064a7dfb98c197cd04f596aa7593b56cc93b63b6 Mon Sep 17 00:00:00 2001 From: Ben Gamari Date: Wed, 11 Nov 2015 11:35:51 +0100 Subject: Eliminate support for deprecated GADT syntax Follows from GHC D1460. --- haddock-api/src/Haddock/Convert.hs | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) (limited to 'haddock-api/src') diff --git a/haddock-api/src/Haddock/Convert.hs b/haddock-api/src/Haddock/Convert.hs index b829a5fd..ddf8f6b3 100644 --- a/haddock-api/src/Haddock/Convert.hs +++ b/haddock-api/src/Haddock/Convert.hs @@ -307,14 +307,12 @@ synifyDataCon use_gadt_syntax dc = in hs_arg_tys >>= \hat -> return $ noLoc $ ConDecl { con_names = [name] - , con_explicit = False -- we don't know nor care + , con_explicit = Implicit -- we don't know nor care , con_qvars = qvars , con_cxt = ctx , con_details = hat , con_res = hs_res_ty - , con_doc = Nothing - -- we don't want any "deprecated GADT syntax" warnings! - , con_old_rec = False } + , con_doc = Nothing } synifyName :: NamedThing n => n -> Located Name synifyName = noLoc . getName -- cgit v1.2.3