Allow Some in with expression (#2354)

dhall-lang · Dec 31, 2021 · ba61a24 · ba61a24
1 parent 738679f
commit ba61a24
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/dhall/src/Dhall/Parser/Expression.hs b/dhall/src/Dhall/Parser/Expression.hs
@@ -385,7 +385,7 @@ parsers embedded = Parsers{..}
                     bs <- some (do
                         try (nonemptyWhitespace *> _with *> nonemptyWhitespace)
 
-                        keys <- Combinators.NonEmpty.sepBy1 anyLabel (try (whitespace *> _dot) *> whitespace)
+                        keys <- Combinators.NonEmpty.sepBy1 anyLabelOrSome (try (whitespace *> _dot) *> whitespace)
 
                         whitespace