Add space in error message.

diff --git a/Flatten.hs b/Flatten.hs
index 5ffd16263ffe395ca3adebfff4abc72eb7f9e493..fc60d6ae397dec21840cb21de54e9389fb07ba84 100644 (file)
--- 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