From 0bbc9293e9705905c67fad16b27b18c1a5c168ef Mon Sep 17 00:00:00 2001
From: joshvera <josh@joshvera.com>
Date: Fri, 29 Jul 2016 16:06:22 -0400
Subject: [PATCH] Return a CofreeF instead of Syntax

---
 src/Parser.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Parser.hs b/src/Parser.hs
index 70e839609..efb70bc78 100644
--- a/src/Parser.hs
+++ b/src/Parser.hs
@@ -108,6 +108,6 @@ termConstructor source sourceSpan info = cofree . construct
       [body, catch, finally] | Catch <- category (extract catch),
                                Finally <- category (extract finally) ->
         withDefaultInfo $ S.Try body (Just catch) (Just finally)
-      _ -> S.Error sourceSpan children
+      _ -> withDefaultInfo $ S.Error sourceSpan children
     construct children =
       withDefaultInfo $ S.Indexed children