module TestIO (resource) where

import Control.Monad (forever)

import API

resource :: CLIInterface
resource = testio { repl = loop }

loop :: IO ()
loop = forever $ getLine >>= putStrLn