X-Git-Url: http://wien.tomnetworks.com/gitweb/?p=hs-java.git;a=blobdiff_plain;f=JVM%2FCommon.hs;h=301c40c433ea52b7a6e964aec521c088d0eb5589;hp=1b0e5eb022e012076f6605712d9e2538aefe0b57;hb=4174461dc7cd2b14183917db3cd11219a37e804c;hpb=368ce628bdf8a7fa772a6860aed12f00baea3906

diff --git a/JVM/Common.hs b/JVM/Common.hs
index 1b0e5eb..301c40c 100644
--- a/JVM/Common.hs
+++ b/JVM/Common.hs
@@ -8,14 +8,20 @@ module JVM.Common
   byteString
   ) where
 
+import Codec.Binary.UTF8.String (encodeString, decodeString)
 import Data.Binary
 import Data.Binary.Put
 import qualified Data.ByteString.Lazy as B
 import qualified Data.Map as M
 import Data.Default
+import Data.Char
+import Data.String
 
 import JVM.ClassFile
 
+instance IsString B.ByteString where
+  fromString s = B.pack $ map (fromIntegral . ord) $ encodeString s
+
 instance Default B.ByteString where
   def = B.empty