kubernetes-client/haskell
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Generated code using date format

Browse Source
This commit is contained in:
Fernando Rincon
2019-10-01 21:13:28 +08:00
parent 611b8e6297
commit 3aaceece57
1 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
kubernetes/lib/Kubernetes/OpenAPI/Core.hs
View File

@@ -434,16 +434,16 @@ instance P.Show DateTime where
instance MimeRender MimeMultipartFormData DateTime where
mimeRender _ = mimeRenderDefaultMultipartFormData
-- | @_parseISO8601@
_readDateTime :: (TI.ParseTime t, Monad m, Alternative m) => String -> m t
-- | @TI.parseTimeM True TI.defaultTimeLocale "%FT%T%6QZ"@
_readDateTime :: (TI.ParseTime t, Monad m, ) => String -> m t
_readDateTime =
_parseISO8601
TI.parseTimeM True TI.defaultTimeLocale "%FT%T%6QZ"
{-# INLINE _readDateTime #-}
-- | @TI.formatISO8601Micros@
_showDateTime :: (t ~ TI.UTCTime, TI.FormatTime t) => t -> String
-- | @TI.formatTime TI.defaultTimeLocale "%FT%T%6QZ"@
_showDateTime :: (TI.FormatTime t) => t -> String
_showDateTime =
TI.formatISO8601Micros
TI.formatTime TI.defaultTimeLocale "%FT%T%6QZ"
{-# INLINE _showDateTime #-}
-- | parse an ISO8601 date-time string