git.iko.soy/text
on builder help sign in
text/tests/StdioCoverage.hs
25 lines 1.0 kB history raw
1import qualified Data.Text as T
2import qualified Data.Text.IO as T
3import qualified Data.Text.Lazy as TL
4import qualified Data.Text.Lazy.IO as TL
5import System.Environment (getArgs)
6import System.Exit (exitFailure)
7import System.IO (hPutStrLn, stderr)
9main = do
10 args <- getArgs
11 case args of
12 ["T.readFile", name] -> T.putStr =<< T.readFile name
13 ["T.writeFile", name, t] -> T.writeFile name (T.pack t)
14 ["T.appendFile", name, t] -> T.appendFile name (T.pack t)
15 ["T.interact"] -> T.interact id
16 ["T.getContents"] -> T.putStr =<< T.getContents
17 ["T.getLine"] -> T.putStrLn =<< T.getLine
19 ["TL.readFile", name] -> TL.putStr =<< TL.readFile name
20 ["TL.writeFile", name, t] -> TL.writeFile name (TL.pack t)
21 ["TL.appendFile", name, t] -> TL.appendFile name (TL.pack t)
22 ["TL.interact"] -> TL.interact id
23 ["TL.getContents"] -> TL.putStr =<< TL.getContents
24 ["TL.getLine"] -> TL.putStrLn =<< TL.getLine
25 _ -> hPutStrLn stderr "invalid directive!" >> exitFailure