@@ -33,7 +33,7 @@ formatAsLogTime (UTCTime day time) = toText $ TA.run2 $ do
3333 _ <- writeDay buf 0 day
3434 TA.unsafeWrite buf 10 0x20 -- space
3535 _ <- writeTimeOfDay False buf 11 (diffTimeOfDay64 time)
36− pure (buf, 19)
36+ return (buf, 19)
3737 where
3838 toText (arr, len) = Text arr 0 len
3939
@@ -60,7 +60,7 @@ formatAsIso8601 (UTCTime day time) = toText $ TA.run2 $ do
6060 TA.unsafeWrite buf 10 0x54 -- T
6161 next <- writeTimeOfDay True buf 11 (diffTimeOfDay64 time)
6262 TA.unsafeWrite buf next 0x5A -- Z
63− pure (buf, next+1)
63+ return (buf, next+1)
6464 where
6565 toText (arr, len) = Text arr 0 len
6666
@@ -80,7 +80,7 @@ writeDay buf off day =
8080 TA.unsafeWrite buf (off + 7) 0x2d -- dash
8181 TA.unsafeWrite buf (off + 8) d1
8282 TA.unsafeWrite buf (off + 9) d2
83− pure (off + 10)
83+ return (off + 10)
8484 where
8585 (yr,m,d) = toGregorian day
8686 (y1, ya) = fromIntegral (abs yr) `quotRem` 1000
@@ -105,7 +105,7 @@ writeTimeOfDay doSubSeconds buf off (TOD hh mm ss) =
105105 TA.unsafeWrite buf (off + 7) s2
106106 if doSubSeconds && frac /= 0
107107 then writeFracSeconds buf (off + 8) frac
108− else pure (off + 8)
108+ else return (off + 8)
109109 where
110110 T h1 h2 = twoDigits hh
111111 T m1 m2 = twoDigits mm
@@ -169,17 +169,17 @@ writeTrunc3 :: TA.MArray s -> Int -> Int -> ST s Int
169169writeTrunc3 buf off i
170170 | d == 0 = do
171171 TA.unsafeWrite buf off (digit d1)
172− pure (off+1)
172+ return (off+1)
173173 | d3 == 0 = do
174174 TA.unsafeWrite buf off (digit d1)
175175 TA.unsafeWrite buf (off+1) (digit d2)
176− pure (off+2)
176+ return (off+2)
177177
178178 | otherwise = do
179179 TA.unsafeWrite buf off (digit d1)
180180 TA.unsafeWrite buf (off+1) (digit d2)
181181 TA.unsafeWrite buf (off+2) (digit d3)
182− pure (off+3)
182+ return (off+3)
183183 where
184184 (d1, d) = i `quotRem` 100
185185 (d2, d3) = d `quotRem` 10