fixup! Add template haskell helpers to generate Unbox instances

composewell · Jul 5, 2023 · 603dea2 · 603dea2
1 parent 9d02794
commit 603dea2
Showing 1 changed file with 5 additions and 3 deletions.
diff --git a/core/src/Streamly/Internal/Data/Unbox/TH.hs b/core/src/Streamly/Internal/Data/Unbox/TH.hs
@@ -187,9 +187,11 @@ mkOffsetDecls :: Int -> [Field] -> [Q Dec]
 mkOffsetDecls tagSize fields =
     init
         ((:) (valD
-                 (varP (mkOffsetName 0))
-                 (normalB [|tagSize + $(varE _initialOffset)|])
-                 [])
+                  (varP (mkOffsetName 0))
+                  (normalB
+                       [|$(litE (IntegerL (fromIntegral tagSize))) +
+                         $(varE _initialOffset)|])
+                  [])
              (map mkOffsetExpr (zip [1 ..] fields)))
 
     where