<div dir="ltr">This has something to do with the Enum instance for NominalDiffTime:<div><br></div><div>    ghci> [0..2] :: [NominalDiffTime]</div><div>    ...</div><div><br></div><div>Appears to also diverge.  This works though:</div><div><br></div><div><div>    ghci> mapM_ putStrLn $ map (mkDated . fromIntegral) [0..2]</div><div>    2015-01-01T00:00:00Z</div><div>    2015-01-01T01:00:00Z</div><div>    2015-01-01T02:00:00Z</div></div><div><br></div><div><br></div><div>Ryan</div><div><br></div><div><br></div></div><div class="gmail_extra"><br><div class="gmail_quote">On Sun, Jan 18, 2015 at 7:45 PM, mariopal <span dir="ltr"><<a href="mailto:mariopal@gmail.com" target="_blank">mariopal@gmail.com</a>></span> wrote:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">This code produces an infinite output... why? it's a bug in ghc?<br>
<br>
> -- Glasgow Haskell Compiler, Version 7.6.3 on Debian Sid<br>
> import System.Locale (defaultTimeLocale)<br>
> import Data.Time<br>
><br>
><br>
> mkDated n = formatTime defaultTimeLocale "%FT%TZ" $ addUTCTime (3600*n) $<br>
UTCTime (fromGregorian 2015 1 1) (timeOfDayToTime $ TimeOfDay 0 0 0)<br>
><br>
> main = mapM_ putStrLn $ map mkDated [0..2]<br>
<br>
<br>
_______________________________________________<br>
Haskell-Cafe mailing list<br>
<a href="mailto:Haskell-Cafe@haskell.org">Haskell-Cafe@haskell.org</a><br>
<a href="http://www.haskell.org/mailman/listinfo/haskell-cafe" target="_blank">http://www.haskell.org/mailman/listinfo/haskell-cafe</a><br>
</blockquote></div><br></div>