ne mode to rule them all,
   One mode to find them,
   One mode to bring them all
   and in the darkness bind them -}
teafree :: Mode (CmdArgs TeafreeMode)
teafree = cmdArgsMode $ modes [list, info, prepare]
    &= program "teafree"
    &= summary "A Haskell utility for tea addicts"
    &= helpArg [explicit, name "help", name "h"]
    &= versionArg [explicit, name "version", name "v", summary release]

{- 
teafree :: Mode (CmdArgs TeafreeMode)
teafree = cmdArgsMode $ modes [list, info, prepare]
    &= program "teafree"
    &= summary "A Haskell utility for tea addicts"
    &= helpArg [explicit, name "help", name "h"]
    &= versionArg [explicit, name "version", name "v", summary release]
teafree = cmdArgsMode $ modes [list, info, prepare]
    &= program "teafree"
    &= summary "A Haskell utility for tea addicts"
    &= helpArg [explicit, name "help", name "h"]
    &= versionArg [explicit, name "version", name "v", summary release]