Correct location annotation for parenthesized expressions

haskell-nix · Oct 16, 2020 · 2846105 · 2846105
1 parent 820499d
commit 2846105
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/Nix/Parser.hs b/src/Nix/Parser.hs
@@ -58,6 +58,7 @@ import Data.Char ( isAlpha
  , isSpace
  )
 import Data.Data ( Data(..) )
+import Data.Fix ( Fix(..) )
 import Data.Functor
 import Data.Functor.Identity
 import Data.HashSet ( HashSet )
@@ -196,7 +197,7 @@ nixNull :: Parser NExprLoc
 nixNull = annotateLocation1 (mkNullF <$ reserved "null" <?> "null")
 
 nixParens :: Parser NExprLoc
-nixParens = parens nixToplevelForm <?> "parens"
+nixParens = annotateLocation1 (stripAnn . unFix <$> (parens nixToplevelForm <?> "parens"))
 
 nixList :: Parser NExprLoc
 nixList = annotateLocation1 (brackets (NList <$> many nixTerm) <?> "list")