main1.hs

--  Copy the input to the output (like 'cat' does).

{-
   The file name should generally be the same as the module name.
   But these short modules are not used as a library elsewhere,
   so the file name does not matter.
-}


{-
    $ ghc -Wall main1.hs
    $ ./main1 < main1.hs
 -}

module Main where

{-
   interact :: (String -> String) -> IO () ; the input and output are strings
   id       :: a -> a                      ; polymorphic identity function
 -}

main :: IO()
main = interact id

--  ------------For GNU Emacs ------------
--  Local Variables:
--  compile-command: "ghc -Wall main1.hs"
--  End: