module Filter
  ( done
  , todo
  , doing
  ) where

import qualified Task as T (Status(..), Task(..))

done :: T.Task -> Bool
done (T.Task _ T.Done _ _) = True
done (T.Task _ _ _ _) = False

todo :: T.Task -> Bool
todo (T.Task _ T.Todo _ _) = True
todo (T.Task _ T.Doing _ _) = True
todo (T.Task _ _ _ _) = False

doing :: T.Task -> Bool
doing (T.Task _ T.Doing _ _) = True
doing (T.Task _ _ _ _) = False