diff options
| -rw-r--r-- | haskell/Data/VCDIFF/XDelta.hsc | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/haskell/Data/VCDIFF/XDelta.hsc b/haskell/Data/VCDIFF/XDelta.hsc index 6e32494..b406c1d 100644 --- a/haskell/Data/VCDIFF/XDelta.hsc +++ b/haskell/Data/VCDIFF/XDelta.hsc | |||
| @@ -51,6 +51,7 @@ newSource :: PrimMonad m => | |||
| 51 | newSource nm blksz maxwinsz = do | 51 | newSource nm blksz maxwinsz = do |
| 52 | let bsname = encodeUtf8 $ T.pack nm | 52 | let bsname = encodeUtf8 $ T.pack nm |
| 53 | src <- newPinnedByteArray $ 1 + B.length bsname + #{const sizeof(xd3_source)} | 53 | src <- newPinnedByteArray $ 1 + B.length bsname + #{const sizeof(xd3_source)} |
| 54 | fillByteArray src 0 #{const sizeof(xd3_source)} (0 :: Word8) | ||
| 54 | nptr <- writeStringAt src #{const sizeof(xd3_source)} bsname | 55 | nptr <- writeStringAt src #{const sizeof(xd3_source)} bsname |
| 55 | writeAtByte src (#{off xd3_source, blksize }) blksz | 56 | writeAtByte src (#{off xd3_source, blksize }) blksz |
| 56 | writeAtByte src (#{off xd3_source, name }) nptr | 57 | writeAtByte src (#{off xd3_source, name }) nptr |