on master help sign in
Encode ZonedTime into an unambiguously ISO 8601 compliant syntax
commit6406de8baf389d0b597fc0bd3b21b2c40ad2b896 authorLeon P Smith <leon@melding-monads.com> dateWed 22 Jul 2015, 14:03 (11 years ago) parentc24f9d3
1 file changed+1−1
Data/Aeson/Encode/Builder.hs+1−1
Data/Aeson/Encode/Builder.hs+1−1
@@ -208,7 +208,7 @@ timeOfDay64 (TOD h m s0)
208208timeZone :: TimeZone -> Builder
209209timeZone (TimeZone off _ _)
210210 | off == 0 = B.char7 'Z'
211− | otherwise = BP.primBounded (ascii5 (s,(hh,(hl,(mh,ml))))) ()
211+ | otherwise = BP.primBounded (ascii6 (s,(hh,(hl,(':',(mh,ml)))))) ()
212212 where !s = if off < 0 then '-' else '+'
213213 !(T hh hl) = twoDigits h
214214 !(T mh ml) = twoDigits m