From fcb6c377d1f0bd65c56687b9c334314ab0c7f7e5 Mon Sep 17 00:00:00 2001
From: Ben Muschol <benmuschol@gmail.com>
Date: Thu, 23 May 2019 10:08:31 -0400
Subject: [PATCH] Don't include redundant locs in wf-errors

Fixes #1436
---
 src/arr/compiler/compile-structs.arr | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/src/arr/compiler/compile-structs.arr b/src/arr/compiler/compile-structs.arr
index ca8a85f90b..5861d94cd6 100644
--- a/src/arr/compiler/compile-structs.arr
+++ b/src/arr/compiler/compile-structs.arr
@@ -428,8 +428,7 @@ data CompileError:
     method render-reason(self):
       [ED.error:
         ED.paragraph([list: ED.highlight(ED.text("Well-formedness:"), [list: self.loc], 0), ED.text(" ")]
-            + self.msg),
-        ED.cmcode(self.loc)]
+            + self.msg)]
     end
   | wf-empty-block(loc :: A.Loc) with:
     method render-fancy-reason(self):