From 10224095c875a78a887f569e79db9641c5ea130c Mon Sep 17 00:00:00 2001
From: Gabriel Gonzalez <Gabriel439@gmail.com>
Date: Thu, 8 Sep 2016 08:25:38 -0700
Subject: [PATCH] Fix parsing of list type

---
 src/Dhall/Parser.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/Dhall/Parser.hs b/src/Dhall/Parser.hs
index e167f89..c43b608 100644
--- a/src/Dhall/Parser.hs
+++ b/src/Dhall/Parser.hs
@@ -153,9 +153,6 @@ expr = mdo
 
     bexpr <- rule
         (   (App <$> bexpr <*> aexpr)
-        <|> (   List
-            <$> (match Lexer.OpenBracket *> bexpr <* match Lexer.CloseBracket)
-            )
         <|> (   BoolAnd
             <$> bexpr
             <*> (match Lexer.And *> bexpr)
@@ -191,6 +188,9 @@ expr = mdo
         <|> (match Lexer.Text *> pure Text)
         <|> (match Lexer.ListBuild *> pure ListBuild)
         <|> (match Lexer.ListFold *> pure ListFold)
+        <|> (   List
+            <$> (match Lexer.OpenBracket *> expr <* match Lexer.CloseBracket)
+            )
         <|> (BoolLit <$> bool)
         <|> (IntegerLit . fromIntegral <$> number)
         <|> (NaturalLit <$> natural)