[commit: packages/time] format-widths, improve-leapseconds, master, posix-perf, tasty, wip/travis: fix identifier in UseCases.lhs (0e3dd85)

git at git.haskell.org git at git.haskell.org
Mon Feb 20 21:10:03 UTC 2017


Repository : ssh://git@git.haskell.org/time

On branches: format-widths,improve-leapseconds,master,posix-perf,tasty,wip/travis
Link       : http://git.haskell.org/packages/time.git/commitdiff/0e3dd8527b87f54d00deb8fba9806c6c49e844e4

>---------------------------------------------------------------

commit 0e3dd8527b87f54d00deb8fba9806c6c49e844e4
Author: Ashley Yakeley <ashley at semantic.org>
Date:   Mon Nov 14 01:50:01 2005 -0800

    fix identifier in UseCases.lhs
    
    darcs-hash:20051114095001-ac6dd-9bd1aba492639cb8de6f1b14f98ef2f7fc70a414


>---------------------------------------------------------------

0e3dd8527b87f54d00deb8fba9806c6c49e844e4
 test/UseCases.lhs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/test/UseCases.lhs b/test/UseCases.lhs
index 3db8834..dff4af1 100644
--- a/test/UseCases.lhs
+++ b/test/UseCases.lhs
@@ -26,7 +26,7 @@ format?
 
 > july1st = do
 >    now <- getZonedTime
->    let (thisYear,_,_) = toGregorian (localDay (ztLocalTime now))
+>    let (thisYear,_,_) = toGregorian (localDay (zonedTimeToLocalTime now))
 >    let day = fromGregorian thisYear 7 1
 >    return (formatTime defaultTimeLocale "%m/%d/%Y" day)
 



More information about the ghc-commits mailing list