[hoc-cvs] hoc/InterfaceGenerator Parser.hs,1.3,1.4

[Wolfgang T. <wth...@us...>]

Update of /cvsroot/hoc/hoc/InterfaceGenerator
In directory sc8-pr-cvs5.sourceforge.net:/tmp/cvs-serv3820/InterfaceGenerator

Modified Files:
	Parser.hs 
Log Message:
Fix parsing of some C primitive integer types


Index: Parser.hs
===================================================================
RCS file: /cvsroot/hoc/hoc/InterfaceGenerator/Parser.hs,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- Parser.hs	27 Sep 2005 11:55:22 -0000	1.3
+++ Parser.hs	5 Feb 2007 16:12:49 -0000	1.4
@@ -146,7 +146,7 @@
                 <|> (reserved objc "short" >> return (Just Short))
                 <|> return Nothing
     key <- if isJust signedness || isJust length
-        then option "int" simple_builtin
+        then option "int" (try simple_builtin)
         else simple_builtin
     return $ CTBuiltin signedness length key