From: Matthijs Kooijman <m.kooijman@student.utwente.nl>
Date: Thu, 19 Feb 2009 10:42:41 +0000 (+0100)
Subject: Add space in error message.
X-Git-Url: https://git.stderr.nl/gitweb?p=matthijs%2Fmaster-project%2Fc%CE%BBash.git;a=commitdiff_plain;h=e9accfad7b4c363db9e9f70a65485b216b5d6acb

Add space in error message.
---

diff --git a/Flatten.hs b/Flatten.hs
index 5ffd162..fc60d6a 100644
--- a/Flatten.hs
+++ b/Flatten.hs
@@ -147,7 +147,7 @@ flattenExpr binds (Var id) =
     Right _ -> error "Higher order functions not supported."
   where
     bind = Maybe.fromMaybe
-      (error $ "Argument " ++ Name.getOccString id ++ "is unknown")
+      (error $ "Argument " ++ Name.getOccString id ++ " is unknown")
       (lookup id binds)
 
 flattenExpr binds app@(App _ _) = do