todos-0.1: test.hs

{-# LANGUAGE UnicodeSyntax, PatternGuards #-}
module Test where

import Control.Monad.Reader
import Data.Maybe
import Data.Tree
import Data.List

import Unicode
import Types
import TodoLoader
import TodoTree
import CommandParser
import Config
import CmdLine

cfg = Config False False (Limit 20) (Limit 20) Nothing Nothing "%d" Empty

test file = do
  todos ← loadTodo Nothing [file]
  printTodos cfg todos
  putStrLn ""