moved module and relicensed

This commit is contained in:
Joey Hess 2018-10-29 23:13:36 -04:00
parent 5d97898a7c
commit 2e9f128dea
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
9 changed files with 13 additions and 12 deletions

39
Utility/TimeStamp.hs Normal file
View file

@ -0,0 +1,39 @@
{- timestamp parsing and formatting
-
- Copyright 2015-2016 Joey Hess <id@joeyh.name>
-
- License: BSD-2-clause
-}
{-# LANGUAGE CPP #-}
module Utility.TimeStamp where
import Utility.PartialPrelude
import Utility.Misc
import Data.Time.Clock.POSIX
import Data.Time
import Data.Ratio
#if ! MIN_VERSION_time(1,5,0)
import System.Locale
#endif
{- Parses how POSIXTime shows itself: "1431286201.113452s"
- Also handles the format with no fractional seconds. -}
parsePOSIXTime :: String -> Maybe POSIXTime
parsePOSIXTime s = do
let (sn, sd) = separate (== '.') s
n <- readi sn
if null sd
then return (fromIntegral n)
else do
d <- readi sd
let r = d % (10 ^ (length sd - 1))
return (fromIntegral n + fromRational r)
where
readi :: String -> Maybe Integer
readi = readish
formatPOSIXTime :: String -> POSIXTime -> String
formatPOSIXTime fmt t = formatTime defaultTimeLocale fmt (posixSecondsToUTCTime t)