yogsototh/inmanis
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Show number of second for very recent posts

Browse source
This commit is contained in:
Yann Esposito 2012-08-20 13:12:57 +02:00
parent f5879ab02a
commit 47c0a20664
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
Handler/Home.hs
View file

@ -62,7 +62,8 @@ humanReadableOld currentTime entry =
years t = t / year
showTime t = show (floor t :: Integer)
showDuration t
| t < minute = "1m"
| t < second = "1s"
| t < minute = pack $ (showTime $ seconds t) ++ " seconds ago"
| t < hour = pack $ (showTime $ minutes t) ++ " minutes ago"
| t < day = pack $ (showTime $ hours t) ++ " hours ago"
| t < year = pack $ (showTime $ days t) ++ " days ago"