diff options
| author | jao <jao@gnu.org> | 2017-04-29 02:09:24 +0200 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2017-04-29 02:09:24 +0200 |
| commit | e41fd61bdeac8779fa24050cc0d44714f7c90f1d (patch) | |
| tree | f724480c121a1246c942ed913f167fa71a9e2564 /src/Plugins/Date.hs | |
| parent | 938a8d8307c1c4794c5fcf269c587c3c5c5e70df (diff) | |
| download | xmobar-e41fd61bdeac8779fa24050cc0d44714f7c90f1d.tar.gz xmobar-e41fd61bdeac8779fa24050cc0d44714f7c90f1d.tar.bz2 | |
hlint configuration
Diffstat (limited to 'src/Plugins/Date.hs')
| -rw-r--r-- | src/Plugins/Date.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/Plugins/Date.hs b/src/Plugins/Date.hs index cd688e6..b2d32da 100644 --- a/src/Plugins/Date.hs +++ b/src/Plugins/Date.hs @@ -24,7 +24,6 @@ import Plugins #if ! MIN_VERSION_time(1,5,0) import System.Locale #endif -import Control.Monad (liftM) import Data.Time data Date = Date String String Int @@ -36,4 +35,4 @@ instance Exec Date where rate (Date _ _ r) = r date :: String -> IO String -date format = liftM (formatTime defaultTimeLocale format) getZonedTime +date format = fmap (formatTime defaultTimeLocale format) getZonedTime |