From: Frank Doepper <woffs@woffs.de>
Date: Wed, 15 Nov 2023 11:44:24 +0000 (+0100)
Subject: x-stream-offset is Word64, use Int64 for now
X-Git-Tag: 0.6.6.0~9
X-Git-Url: https://woffs.de/git/fd/haskell-amqp-utils.git/commitdiff_plain/254ef99eb8f6581aa00039a3c88494687e390da2

x-stream-offset is Word64, use Int64 for now
---

diff --git a/Network/AMQP/Utils/Options.hs b/Network/AMQP/Utils/Options.hs
index 6214994..22eacf4 100644
--- a/Network/AMQP/Utils/Options.hs
+++ b/Network/AMQP/Utils/Options.hs
@@ -489,7 +489,7 @@ getval s = FVString $ BS.pack $ tail $ dropWhile (/= '=') s
 mkStreamOffset :: String -> FieldTable
 mkStreamOffset s = FieldTable $ M.singleton (pack "x-stream-offset") value
   where
-    value = maybe (FVString $ BS.pack s) FVInt32 $ readMaybe s
+    value = maybe (FVString $ BS.pack s) FVInt64 $ readMaybe s
 
 -- | 'parseargs' exename argstring
 -- applies options onto argstring