Control.Monad.Trans.Loopを使ってみた

monadloop.hs

import Control.Monad.Trans.Loop
import Control.Applicative
import Control.Monad.Base
import System.Time
import System.Posix.Unistd

fizzbuzz n = case (mod n 3, mod n 5) of
    (0, 0) -> "FizzBuzz"
    (_, 0) -> "Fizz"
    (0, _) -> "Buzz"
    (_, _) -> show n

-- 1秒ごとにfizzbuzzを出力する。現在の時刻が00秒になったら終了
main = foreach [0..] $ \i -> do
    time <- liftBase $ toUTCTime <$> getClockTime
    if ctSec time == 0
        then exit
        else liftBase $ do
            putStrLn $ fizzbuzz i
            usleep 1000000