Add simple code generator monad.

[hs-java.git] / JVM / Types.hs

diff --git a/JVM/Types.hs b/JVM/Types.hs
index e685e7933a56dc0539709c0d429dbf636d957984..5cdfb97608f9a0cb89549ca5f96d1d37fc3dc8a9 100644 (file)
--- a/JVM/Types.hs
+++ b/JVM/Types.hs
@@ -21,6 +21,9 @@ instance IsString B.ByteString where
 toString :: B.ByteString -> String
 toString bstr = decodeString $ map (chr . fromIntegral) $ B.unpack bstr
 
+toCharList :: B.ByteString -> [Int]
+toCharList bstr = map fromIntegral $ B.unpack bstr
+
 -- | Constant pool
 type Pool = Array Word16 Constant