add: codegen utility file

glados.cabal

@@ -25,6 +25,7 @@ library
     Ast.Tokenizer
     Ast.Types
     Codegen.Codegen
+    Codegen.Utils
     Misc
 
   build-depends:

lib/Codegen/Utils.hs

@@ -0,0 +1,11 @@
+module Codegen.Utils where
+
+import qualified Data.ByteString.Short as BS
+
+-- | Converts a string to a `ByteString`.
+stringToByteString :: String -> BS.ShortByteString
+stringToByteString = BS.pack . map (fromIntegral . fromEnum)
+
+-- | Converts a `ByteString` to a string.
+byteStringToString :: BS.ShortByteString -> String
+byteStringToString = map (toEnum . fromIntegral) . BS.unpack