From 90634ff1d624e3b44e0f1231780fb8119674b91b Mon Sep 17 00:00:00 2001 From: Neil Brown Date: Sat, 21 Mar 2009 23:41:54 +0000 Subject: [PATCH] Improved the error message for getting the C type to leave the mobile wrapper on --- backends/GenerateC.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/backends/GenerateC.hs b/backends/GenerateC.hs index d6c0841..a22b1a5 100644 --- a/backends/GenerateC.hs +++ b/backends/GenerateC.hs @@ -870,7 +870,7 @@ cgetCType m origT am (_, Just pl, False, A.ValAbbrev) -> return $ Const $ Plain pl -- Must have missed one: - _ -> diePC m $ formatCode "Cannot work out the C type for: %" t + _ -> diePC m $ formatCode "Cannot work out the C type for: %" origT where const = if am == A.ValAbbrev then Const else id