diff options
| -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 |