From 0bfa7276c9032fc34c41e733d4956b44bdc71526 Mon Sep 17 00:00:00 2001 From: Alan Zimmerman Date: Mon, 21 Dec 2015 11:33:57 +0200 Subject: Fix AnnDotDot in module export The annotation for the ".." in module GADTRecords2 (H1(..)) where was in the wrong place --- compiler/parser/RdrHsSyn.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/compiler/parser/RdrHsSyn.hs b/compiler/parser/RdrHsSyn.hs index 7e61172d84..9b534d4b04 100644 --- a/compiler/parser/RdrHsSyn.hs +++ b/compiler/parser/RdrHsSyn.hs @@ -1411,7 +1411,7 @@ checkImportSpec ie@(L _ specs) = mkImpExpSubSpec :: [Located (Maybe RdrName)] -> P ([AddAnn], ImpExpSubSpec) mkImpExpSubSpec [] = return ([], ImpExpList []) mkImpExpSubSpec [L l Nothing] = - return ([\s -> addAnnotation l AnnDotdot s], ImpExpAll) + return ([\s -> addAnnotation s AnnDotdot l], ImpExpAll) mkImpExpSubSpec xs = if (any (isNothing . unLoc) xs) then return $ ([], ImpExpAllWith xs) -- cgit v1.2.1