@@ -108,7 +108,6 @@ writeChunks mba offset chunks =
108 writeChunks mba newOffset chunks
108 writeChunks mba newOffset chunks
111−-- TODO see if it is faster to writeWord32 a block of hex-as-ascii
112writeCode :: MBA RealWorld -> Int -> Int -> ST RealWorld ()
111writeCode :: MBA RealWorld -> Int -> Int -> ST RealWorld ()
113writeCode mba offset code =
112writeCode mba offset code =
114 do writeWord8 mba offset 0x5C {- \ -}
113 do writeWord8 mba offset 0x5C {- \ -}