From b703c5aa6e5dfebb6acb09c368c14a4bc9f4c085 Mon Sep 17 00:00:00 2001
From: joshvera <josh@joshvera.com>
Date: Tue, 26 Jul 2016 16:29:59 -0400
Subject: [PATCH] Construct Error nodes as well

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

diff --git a/src/Parser.hs b/src/Parser.hs
index ffdba5de4..3862316a2 100644
--- a/src/Parser.hs
+++ b/src/Parser.hs
@@ -89,5 +89,7 @@ termConstructor source info = cofree . construct
         toTuple child = pure child
 
     construct children | isFixed (category info) = withDefaultInfo $ S.Fixed children
+    construct children | C.Error == category info =
+      withDefaultInfo $ S.Error children
     construct children =
       withDefaultInfo $ S.Indexed children