12 lines
188 B
Haskell
12 lines
188 B
Haskell
module TestIO (resource) where
|
|
|
|
import Control.Monad (forever)
|
|
|
|
import API
|
|
|
|
resource :: CLIInterface
|
|
resource = testio { repl = loop }
|
|
|
|
loop :: IO ()
|
|
loop = forever $ getLine >>= putStrLn
|