msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

change date/time formating

Browse Source
This commit is contained in:
Herbert Lange
2025-08-08 18:02:59 +02:00
parent f96830f7de
commit 78beac7598
1 changed files with 1 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src/compiler/GF/Infra/BuildInfo.hs
View File

@@ -9,7 +9,6 @@ import Language.Haskell.TH.Syntax
import Control.Monad.IO.Class import Control.Monad.IO.Class
import Control.Exception import Control.Exception
import Data.Time import Data.Time
import Data.Time.Format.ISO8601
import System.Process import System.Process
-- Use Template Haskell to get compile time -- Use Template Haskell to get compile time
@@ -17,7 +16,7 @@ buildTime :: String
buildTime = $(do buildTime = $(do
timeZone <- liftIO getCurrentTimeZone timeZone <- liftIO getCurrentTimeZone
time <- liftIO $ utcToLocalTime timeZone <$> getCurrentTime time <- liftIO $ utcToLocalTime timeZone <$> getCurrentTime
return $ LitE $ StringL $ iso8601Show time ) return $ LitE $ StringL $ formatTime defaultTimeLocale "%F %T" time )
-- Use Template Haskell to get current Git information -- Use Template Haskell to get current Git information
gitInfo :: String gitInfo :: String