diff options
| author | Alan Zimmerman <alan.zimm@gmail.com> | 2015-12-21 11:33:57 +0200 |
|---|---|---|
| committer | Alan Zimmerman <alan.zimm@gmail.com> | 2015-12-21 12:15:52 +0200 |
| commit | 0bfa7276c9032fc34c41e733d4956b44bdc71526 (patch) | |
| tree | 020760d678101c28eaae55c9eea34d9cb3746d81 | |
| parent | d8ed20c8772bee5eb83719c804121374157cf9b6 (diff) | |
| download | haskell-wip/az-anndotdot.tar.gz | |
Fix AnnDotDot in module exportwip/az-anndotdot
The annotation for the ".." in
module GADTRecords2 (H1(..)) where
was in the wrong place
| -rw-r--r-- | compiler/parser/RdrHsSyn.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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) |