@@ -187,11 +187,8 @@ dummySpace space = do
187 map (toEnum . fromEnum) $
187 map (toEnum . fromEnum) $
189 start ++ replicate space '0'
189 start ++ replicate space '0'
190− let len = LitE $ IntegerL $ fromIntegral $ length start + space
190+ let len = fromIntegral $ length start + space :: Int
191− upi <- [|unsafePerformIO|]
192− pack <- [|unsafePackAddressLen|]
191+ [| getInner (unsafePerformIO (unsafePackAddressLen len $(return chars))) |]
193− getInner' <- [|getInner|]
194− return $ getInner' `AppE` (upi `AppE` (pack `AppE` len `AppE` chars))
197inject :: B.ByteString -- ^ bs to inject
194inject :: B.ByteString -- ^ bs to inject