jabaraster · October 21, 2018 05:56
diff --git a/ReadLines.hs b/ReadLines.hs
 module Main where

 import           System.Exit

 main :: IO ()
 main = do
  c <- getContents
  mapM_ core $ lines c
  where
    core :: String -> IO ()
    core ":q" = putStrLn "bye." >> exitSuccess
    core s    = putStrLn ("echo >> " ++ s)
	module Main where

	import System.Exit

	main :: IO ()
	main = do
	c <- getContents
	mapM_ core $ lines c
	where
	core :: String -> IO ()
	core ":q" = putStrLn "bye." >> exitSuccess
	core s = putStrLn ("echo >> " ++ s)