don't accept bar after empty union (#2338)

dhall-lang · Nov 27, 2021 · 31350b7 · 31350b7
1 parent 14ae429
commit 31350b7
Showing 1 changed file with 0 additions and 2 deletions.
diff --git a/dhall/src/Dhall/Parser/Expression.hs b/dhall/src/Dhall/Parser/Expression.hs
@@ -1066,8 +1066,6 @@ parsers embedded = Parsers{..}
             let emptyUnionType = do
                     try (optional (_bar *> whitespace) *> _closeAngle)
 
-                    _ <- optional (_bar *> whitespace)
-
                     return (Union mempty)
 
             nonEmptyUnionType <|> emptyUnionType ) <?> "literal"