[commit: ghc] wip/az-anndotdot: Fix AnnDotDot in module export (297eb90)

git at git.haskell.org git at git.haskell.org
Mon Dec 21 09:35:41 UTC 2015


Repository : ssh://git@git.haskell.org/ghc

On branch  : wip/az-anndotdot
Link       : http://ghc.haskell.org/trac/ghc/changeset/297eb90832999b44126402b14486b44af1a54220/ghc

>---------------------------------------------------------------

commit 297eb90832999b44126402b14486b44af1a54220
Author: Alan Zimmerman <alan.zimm at gmail.com>
Date:   Mon Dec 21 11:33:57 2015 +0200

    Fix AnnDotDot in module export
    
    The annotation for the ".." in
    
        module GADTRecords2 (H1(..)) where
    
    was in the wrong place


>---------------------------------------------------------------

297eb90832999b44126402b14486b44af1a54220
 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 7e61172..9b534d4 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)



More information about the ghc-commits mailing list