Fix pattern fail for zero-argument functions.

1 files changed, 6 insertions, 4 deletions

diff --git a/c2haskell.hs b/c2haskell.hs
index 0e857a9..0c31c93 100644
--- a/c2haskell.hs
+++ b/c2haskell.hs
@@ -550,12 +550,14 @@ setBody bdy (CDeclExt (CDecl xs ys pos)) = (CFDefExt (CFunDef xs v [] bdy pos))
                 _              -> CDeclr Nothing [] Nothing [] pos
 
 makeStub d = -- @(CDeclExt (CDecl xs ys pos)) =
-    let oargs:xs = getArgList d
-        (args,vs) = makeParameterNames oargs
+    let rval = True -- todo: Set False for void function.
         name = concatMap identToString $ take 1 $ catMaybes $ sym d
-        rval = True -- todo: Set False for void function.
         msg = "undefined: " ++ HS.prettyPrint (makeAcceptableDecl $ head $ sig d) ++ "\n"
-    in setBody (stubBody ("f_"++name) vs rval msg) $ changeArgList (const $ args:xs) d
+    in case getArgList d of
+        oargs:xs ->
+            let (args,vs) = makeParameterNames oargs
+            in setBody (stubBody ("f_"++name) vs rval msg) $ changeArgList (const $ args:xs) d
+        [] -> setBody (stubBody ("f_"++name) [] rval msg) d
 
 
 parameterIdent :: CDeclaration a -> Maybe Ident