1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
-- | Program which exposes some haskell functions as an executable. The results
-- and coverage of this module is meant to be checked using a shell script.
--
module Main
(
main
) where
import System.Environment (getArgs)
import System.Exit (exitFailure)
import System.IO (hPutStrLn, stderr)
import qualified Data.Text as T
import qualified Data.Text.IO as T
import qualified Data.Text.Lazy as TL
import qualified Data.Text.Lazy.IO as TL
main :: IO ()
main = do
args <- getArgs
case args of
["T.readFile", name] -> T.putStr =<< T.readFile name
["T.writeFile", name, t] -> T.writeFile name (T.pack t)
["T.appendFile", name, t] -> T.appendFile name (T.pack t)
["T.interact"] -> T.interact id
["T.getContents"] -> T.putStr =<< T.getContents
["T.getLine"] -> T.putStrLn =<< T.getLine
["TL.readFile", name] -> TL.putStr =<< TL.readFile name
["TL.writeFile", name, t] -> TL.writeFile name (TL.pack t)
["TL.appendFile", name, t] -> TL.appendFile name (TL.pack t)
["TL.interact"] -> TL.interact id
["TL.getContents"] -> TL.putStr =<< TL.getContents
["TL.getLine"] -> TL.putStrLn =<< TL.getLine
_ -> hPutStrLn stderr "invalid directive!" >> exitFailure
|
