00dani/lebd
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

Nicer layout for h-entry, with cute icons

Browse source
This commit is contained in:
Danielle McLean 2017-10-09 19:54:58 +11:00
parent 03cd1487fe
commit 0e80d93994
Signed by: 00dani
GPG key ID: 5A5D2D1AFF12EEC5
3 changed files with 24 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/Widget/Entry.hs
View file

@ -8,7 +8,10 @@ import Import
import Data.Time.Format ( defaultTimeLocale, formatTime, iso8601DateFormat )
import Data.Time.Format.Human ( humanReadableTime )
data FormattedTime = FormattedTime { timeUnfriendly :: String, timeFriendly :: String }
data FormattedTime = FormattedTime
{ timeUnfriendly :: String
, timeFriendly :: String
} deriving Eq
toFormattedTime :: MonadIO m => UTCTime -> m FormattedTime
toFormattedTime time = FormattedTime (unfriendly time) <$> friendly time