shithub: MicroHs

Info  •  Files  •  Log  •  Branches

Better types.

--- a/src/MicroHs/MakeCArray.hs

+++ b/src/MicroHs/MakeCArray.hs

@@ -14,9 +14,9 @@

 makeCArray :: String -> String

 makeCArray file =

   let chunks = chunkify 20 file

-  in  unlines $ ["static char data[] = {"] ++

+  in  unlines $ ["static unsigned char data[] = {"] ++

                 map showChunk chunks ++

-                ["0 };",

+                ["};",

                  "unsigned char *combexpr = data;",

                  "int combexprlen = " ++ show (length file) ++ ";"

                 ]

-- 

⑨