Put haskell type in stub error message.

1 files changed, 5 insertions, 6 deletions

diff --git a/c2haskell.hs b/c2haskell.hs
index c55458a..df97487 100644
--- a/c2haskell.hs
+++ b/c2haskell.hs
@@ -497,6 +497,7 @@ changeName f d                              = d
 
 makeAcceptableDecl (HS.TypeDecl a (DHead b (HS.Ident c signame)) ftyp)
                 =  (HS.TypeDecl a (DHead b (HS.Ident c signame)) (makeFunctionUseIO $ makeAcceptableImport ftyp))
+makeAcceptableDecl (HS.TypeSig a b ftyp) = HS.TypeSig a b (makeFunctionUseIO $ makeAcceptableImport ftyp)
 
 makeSetter d = -- @(CDeclExt (CDecl xs ys pos)) =
     let name = concatMap identToString $ take 1 $ catMaybes $ sym d
@@ -537,7 +538,8 @@ makeStub d = -- @(CDeclExt (CDecl xs ys pos)) =
         (args,vs) = makeParameterNames oargs
         name = concatMap identToString $ take 1 $ catMaybes $ sym d
         rval = True -- todo: Set False for void function.
-    in setBody (stubBody ("f_"++name) vs rval) $ changeArgList (const $ args:xs) d
+        msg = "undefined: " ++ HS.prettyPrint (makeAcceptableDecl $ head $ sig d) ++ "\n"
+    in setBody (stubBody ("f_"++name) vs rval msg) $ changeArgList (const $ args:xs) d
 
 
 parameterIdent :: CDeclaration a -> Maybe Ident
@@ -585,7 +587,7 @@ voidp = [ CFunDeclr
      where n = undefNode
 
 
-stubBody name vs rval =
+stubBody name vs rval msg =
     CCompound []
               [ CBlockStmt
                    (CIf
@@ -614,10 +616,7 @@ stubBody name vs rval =
                undefNode
     where
         printmsg = (CExpr (Just (C.CCall (CVar (C.Ident "fputs" 0 undefNode) undefNode)
-                                         [ CConst
-                                              (CStrConst
-                                                 (cString $ "missing symbol: " ++ name ++ ".\n")
-                                                 undefNode)
+                                         [ CConst (CStrConst (cString msg) undefNode)
                                          , CVar (C.Ident "stderr" 0 undefNode) undefNode
                                          ]
                                          undefNode)) undefNode)