@@ -125,7 +125,11 @@ dummySpace :: Int -> Q Exp
125125dummySpace space = do
126126 let size = padSize space
127127 let start = magic ++ size
128− let chars = LitE $ StringPrimL $ start ++ replicate space '0'
128+ let chars = LitE $ StringPrimL $
129+#if MIN_VERSION_template_haskell(2,6,0)
130+ map (toEnum . fromEnum) $
131+#endif
132+ start ++ replicate space '0'
129133 let len = LitE $ IntegerL $ fromIntegral $ length start + space
130134 upi <- [|unsafePerformIO|]
131135 pack <- [|unsafePackAddressLen|]