diff options
| author | Tom Smeding <tom@tomsmeding.com> | 2026-08-09 20:56:49 +0200 |
|---|---|---|
| committer | Tom Smeding <tom@tomsmeding.com> | 2026-08-09 20:56:49 +0200 |
| commit | a70b0207990d1b93d6d267b020d7b0ff881d22d5 (patch) | |
| tree | 571acee866b2c04389464b6426c655eef38ff24a | |
| parent | ad70b2b31ac9ecf78d9b909380c54fd5826b54d8 (diff) | |
Use ymdToString
| -rw-r--r-- | src/Main.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Main.hs b/src/Main.hs index c4d4460..2b1497e 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -114,9 +114,9 @@ pageLog conf index req alias = then Just (classlist `classListAdd` "highlight") else classlist , time = () - , datetime = let YMDHMS (YMD y mo d) (HMS h mi s) = time + , datetime = let YMDHMS ymd (HMS h mi s) = time in T.pack - (pad '0' 4 y ++ '-' : pad '0' 2 mo ++ '-' : pad '0' 2 d ++ ' ' : + (ymdToString ymd ++ ' ' : pad '0' 2 h ++ ':' : pad '0' 2 mi ++ ':' : pad '0' 2 s) , linkid = eid , nickwrap1 = nickw1 |