From e9accfad7b4c363db9e9f70a65485b216b5d6acb Mon Sep 17 00:00:00 2001 From: Matthijs Kooijman Date: Thu, 19 Feb 2009 11:42:41 +0100 Subject: [PATCH] Add space in error message. --- Flatten.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 -- 2.30.2