From f72d7f20dfa30ee24292e66069a547747a9c90d2 Mon Sep 17 00:00:00 2001
From: Timothy Clem <timothy.clem@gmail.com>
Date: Thu, 15 Mar 2018 15:06:27 -0700
Subject: [PATCH] Show the friendly qualified name for free variable error msg

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

diff --git a/src/Data/Syntax.hs b/src/Data/Syntax.hs
index 0e0735b33..40e943b55 100644
--- a/src/Data/Syntax.hs
+++ b/src/Data/Syntax.hs
@@ -110,7 +110,7 @@ instance Show1 Identifier where liftShowsPrec = genericLiftShowsPrec
 instance Evaluatable Identifier where
   eval (Identifier name) = do
     env <- askLocalEnv
-    maybe (fail ("free variable: " <> show name)) deref (envLookup name env)
+    maybe (fail ("free variable: " <> show (friendlyName name))) deref (envLookup name env)
 
 instance FreeVariables1 Identifier where
   liftFreeVariables _ (Identifier x) = Set.singleton x