X-Git-Url: https://git.stderr.nl/gitweb?a=blobdiff_plain;f=Flatten.hs;h=fc60d6ae397dec21840cb21de54e9389fb07ba84;hb=e9accfad7b4c363db9e9f70a65485b216b5d6acb;hp=5ffd16263ffe395ca3adebfff4abc72eb7f9e493;hpb=dfab6c0cb6ff708cd05b194f3b05815cf515339c;p=matthijs%2Fmaster-project%2Fc%CE%BBash.git

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