import Network.Download (openAsFeed,openURI)
import Control.Concurrent (threadDelay)

interval=1 * 1000000
goodurl="http://github.com/feeds/jwiegley/commits/ledger/masters"
badurl="http://github.com/feeds/jwiegley/commits/slkjdfledger/masters"

main :: IO ()
main = do
  openURI goodurl >>= (putStrLn.show)
  threadDelay interval
  openURI badurl >>= (putStrLn.show)
  threadDelay interval
  openURI goodurl >>= (putStrLn.show)
  threadDelay interval
  openURI goodurl >>= (putStrLn.show)
  threadDelay interval