This code produces an infinite output... why? it's a bug in ghc?
This code produces an infinite output... why? it's a bug in ghc?
-- Glasgow Haskell Compiler, Version 7.6.3 on Debian Sid import System.Locale (defaultTimeLocale) import Data.Time
mkDated n = formatTime defaultTimeLocale "%FT%TZ" $ addUTCTime (3600*n) $ UTCTime (fromGregorian 2015 1 1) (timeOfDayToTime $ TimeOfDay 0 0 0)
main = mapM_ putStrLn $ map mkDated [0..2]
This has something to do with the Enum instance for NominalDiffTime:
ghci> [0..2] :: [NominalDiffTime]
...
Appears to also diverge. This works though:
ghci> mapM_ putStrLn $ map (mkDated . fromIntegral) [0..2]
2015-01-01T00:00:00Z
2015-01-01T01:00:00Z
2015-01-01T02:00:00Z
Ryan
On Sun, Jan 18, 2015 at 7:45 PM, mariopal
This code produces an infinite output... why? it's a bug in ghc?
-- Glasgow Haskell Compiler, Version 7.6.3 on Debian Sid import System.Locale (defaultTimeLocale) import Data.Time
mkDated n = formatTime defaultTimeLocale "%FT%TZ" $ addUTCTime (3600*n) $ UTCTime (fromGregorian 2015 1 1) (timeOfDayToTime $ TimeOfDay 0 0 0)
main = mapM_ putStrLn $ map mkDated [0..2]
_______________________________________________ Haskell-Cafe mailing list Haskell-Cafe@haskell.org http://www.haskell.org/mailman/listinfo/haskell-cafe
participants (2)
-
mariopal -
Ryan Yates