From 31350b787ee95d2b28a079da2851960b4604af0d Mon Sep 17 00:00:00 2001
From: Harald Gliebe <harald@kahoot.com>
Date: Sat, 27 Nov 2021 23:21:28 +0100
Subject: [PATCH] don't accept bar after empty union (#2338)

---
 dhall/src/Dhall/Parser/Expression.hs | 2 --
 1 file changed, 2 deletions(-)

diff --git a/dhall/src/Dhall/Parser/Expression.hs b/dhall/src/Dhall/Parser/Expression.hs
index e6dcc83c6..ddd64c759 100644
--- 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"