try point of the application, in case of you don't already know -}
main :: IO ()
main = do
    m <- cmdArgsRun teafree
    e <- runTeafree getEnvironment defaultEnvironment >>= select
    runTeafree (runMode m) e >>= end

sele
main :: IO ()
main = do
    m <- cmdArgsRun teafree
    e <- runTeafree getEnvironment defaultEnvironment >>= select
    runTeafree (runMode m) e >>= end
main = do
    m <- cmdArgsRun teafree
    e <- runTeafree getEnvironment defaultEnvironment >>= select
    runTeafree (runMode m) e >>= end