From ff8ef5fa74fb5bce3dcb82ef1cd81e0d123d0ac1 Mon Sep 17 00:00:00 2001 From: Andrea Rossato Date: Wed, 27 Feb 2008 20:00:51 +0100 Subject: Date: haddock fixes darcs-hash:20080227190051-d6583-1ed62c182e20c3a615a9af2706371ebe69862a0a.gz --- Plugins/Date.hs | 9 +++++---- 1 file 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 -- Stability : unstable -- Portability : unportable -- -- A date plugin for Xmobar -- --- Usage example: in template put --- Run Date "%a %b %_d %Y %H:%M:%S" "mydate" 10 +-- Usage example: in template put +-- +-- > Run Date "%a %b %_d %Y %H:%M:%S" "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 -- cgit v1.2.3