diff options
| author | Andrea Rossato <andrea.rossato@ing.unitn.it> | 2008-02-27 20:00:51 +0100 |
|---|---|---|
| committer | Andrea Rossato <andrea.rossato@ing.unitn.it> | 2008-02-27 20:00:51 +0100 |
| commit | ff8ef5fa74fb5bce3dcb82ef1cd81e0d123d0ac1 (patch) | |
| tree | b85b5a88a5beac06a7f17a36ec2ca1ba76293fe9 | |
| parent | d03e4e59c1224e31d453cfdf214cf072ded36ff0 (diff) | |
| download | xmobar-ff8ef5fa74fb5bce3dcb82ef1cd81e0d123d0ac1.tar.gz xmobar-ff8ef5fa74fb5bce3dcb82ef1cd81e0d123d0ac1.tar.bz2 | |
Date: haddock fixes
darcs-hash:20080227190051-d6583-1ed62c182e20c3a615a9af2706371ebe69862a0a.gz
| -rw-r--r-- | Plugins/Date.hs | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/Plugins/Date.hs b/Plugins/Date.hs index 02b1cb3..a9e48aa 100644 --- a/Plugins/Date.hs +++ b/Plugins/Date.hs @@ -3,15 +3,16 @@ -- Module : Plugins.Date -- Copyright : (c) Andrea Rossato -- License : BSD-style (see LICENSE) --- +-- -- Maintainer : Andrea Rossato <andrea.rossato@unibz.it> -- Stability : unstable -- Portability : unportable -- -- A date plugin for Xmobar -- --- Usage example: in template put --- Run Date "%a %b %_d %Y <fc=#ee9a00> %H:%M:%S</fc>" "mydate" 10 +-- Usage example: in template put +-- +-- > Run Date "%a %b %_d %Y <fc=#ee9a00> %H:%M:%S</fc>" "Mydate" 10 -- ----------------------------------------------------------------------------- @@ -31,6 +32,6 @@ instance Exec Date where rate (Date _ _ r) = r date :: String -> IO String -date format = do +date format = do t <- toCalendarTime =<< getClockTime return $ formatCalendarTime defaultTimeLocale format t |