[commit: ghc] master: Fix AnnDotDot in module export (e29ee49)

[git at git.haskell.org]

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

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/e29ee4947bc9a765f1aaff4ba0cb3076a7b09c3d/ghc

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

commit e29ee4947bc9a765f1aaff4ba0cb3076a7b09c3d
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


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

e29ee4947bc9a765f1aaff4ba0cb3076a7b09c3d
 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 6de79fc..39a3d0e 100644
--- a/compiler/parser/RdrHsSyn.hs
+++ b/compiler/parser/RdrHsSyn.hs
@@ -1412,7 +1412,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)