 :: Either TeafreeError Environment -> IO Environment
select (Left e) = putStrLn (getErrorMsg e) >> exitFailure
selec
select :: Either TeafreeError Environment -> IO Environment
select (Left e) = putStrLn (getErrorMsg e) >> exitFailure
select (Left e) = putStrLn (getErrorMsg e) >> exitFailure