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

diff --git a/Network/AMQP/Utils/Options.hs b/Network/AMQP/Utils/Options.hs
index 6214994d38d451e663bde58667e486b7b5da5eef..22eacf459dbfe13e4db812ede529ef2337c4e1dc 100644 (file)
--- 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
 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
 
 -- | 'parseargs' exename argstring
 -- applies options onto argstring