hide-io.hs

import Control.Monad.IO.Class
import Data.Functor.Identity


getline :: MonadIO m => m String
getline = (liftIO getLine) >> return "some fake input\n"


main :: IO ()
main = do
  let x = runIdentity $ (++) <$> getline <*> getline
  putStrLn x


instance MonadIO Identity where
  liftIO ioaction = undefined