main :: IO ()
main = do
	d <- localDay . zonedTimeToLocalTime <$> getZonedTime
	args <- getArgs
	let (_, "--" : fps) = span (/= "--") args
	items <- mapM (fmap parse . readFile) fps
	putStrLn "start\t2014-04-17"
	putStr $ evrOutputs $ fromItemN (read "2014-04-17") items
main :: IO ()
main = do
	d <- localDay . zonedTimeToLocalTime <$> getZonedTime
	args <- getArgs
	let (_, "--" : fps) = span (/= "--") args
	items <- mapM (fmap parse . readFile) fps
	putStrLn "start\t2014-04-17"
	putStr $ evrOutputs $ fromItemN (read "2014-04-17") items
main = do
	d <- localDay . zonedTimeToLocalTime <$> getZonedTime
	args <- getArgs
	let (_, "--" : fps) = span (/= "--") args
	items <- mapM (fmap parse . readFile) fps
	putStrLn "start\t2014-04-17"
	putStr $ evrOutputs $ fromItemN (read "2014-04-17") items