Mercurial Mercurial > hedgewars / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
tools/pas2c.hs
changeset 7046 acc6b5159cde
parent 7043 7c080e5ac8d0
child 7052 cefb73639f70 
--- a/tools/pas2c.hs	Fri May 11 00:36:32 2012 +0400
+++ b/tools/pas2c.hs	Fri May 11 01:01:29 2012 +0400
@@ -470,7 +470,7 @@
 initExpr2C (InitRecord fields) = do
     (fs :: [Doc]) <- mapM (\(Identifier a _, b) -> liftM (text "." <> text a <+> equals <+>) $ initExpr2C b) fields
     return $ lbrace $+$ (nest 4 . vcat . punctuate comma $ fs) $+$ rbrace
-initExpr2C (InitArray [value]) = initExpr2C value
+--initExpr2C (InitArray [value]) = initExpr2C value
 initExpr2C (InitArray values) = liftM (braces . vcat . punctuate comma) $ mapM initExpr2C values
 initExpr2C r@(InitRange (Range i@(Identifier i' _))) = do
     id2C IOLookup i
hedgewars