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

Harald Gliebe · web-flow · commit 31350b787ee9 · 2021-11-27T14:21:28.000-08:00
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"
