From a5a53ca011064f4aef42453eb8b4dbd4fa649075 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sun, 10 May 2015 15:23:38 -0400 Subject: [PATCH] forgot to add new module --- Logs/TimeStamp.hs | 21 +++++++++++++++++++++ 1 file changed, 21 insertions(+) create mode 100644 Logs/TimeStamp.hs diff --git a/Logs/TimeStamp.hs b/Logs/TimeStamp.hs new file mode 100644 index 0000000000..2832a3d65e --- /dev/null +++ b/Logs/TimeStamp.hs @@ -0,0 +1,21 @@ +{- log timestamp parsing + - + - Copyright 2015 Joey Hess + - + - Licensed under the GNU GPL version 3 or higher. + -} + +{-# LANGUAGE CPP #-} + +module Logs.TimeStamp where + +import Data.Time.Clock.POSIX +import Data.Time +#if ! MIN_VERSION_time(1,5,0) +import System.Locale +#endif + +import Common + +parsePOSIXTime :: String -> Maybe POSIXTime +parsePOSIXTime s = utcTimeToPOSIXSeconds <$> parseTime defaultTimeLocale "%s%Qs" s