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