{-
This file is part of the Haskell package cassava-streams. It is
subject to the license terms in the LICENSE file found in the
top-level directory of this distribution and at
git://pmade.com/cassava-streams/LICENSE. No part of cassava-streams
package, including this file, may be copied, modified, propagated, or
distributed except according to the terms contained in the LICENSE
file.
-}
--------------------------------------------------------------------------------
module Main (main) where
--------------------------------------------------------------------------------
import System.Environment
import System.IO
import System.IO.Streams.Csv.Tutorial
--------------------------------------------------------------------------------
main :: IO ()
main = do
args <- getArgs
case args of
["todo"] -> onlyTodo stdin stdout
["done", x] -> markDone x stdin stdout
_ -> fail "give one of todo or done"