Re: how to write a simple cat

[Keith Wansbrough]

module Main ( main ) where

import IO
import System

main :: IO ()
main = do args <- getArgs
          s <- case args of
                 []    -> getContents
                 [inF] -> readFile inF
                 _     -> fail "Sorry, only 0 or 1 args implemented"
          putStr s


--KW 8-)
-- 
: Keith Wansbrough, MSc, BSc(Hons) (Auckland) ------------------------:
: PhD Student, Computer Laboratory, University of Cambridge, England. :
:  (and recently of the University of Glasgow, Scotland. [><] )       :
: Native of Antipodean Auckland, New Zealand: 174d47' E, 36d55' S.    :
: http://www.cl.cam.ac.uk/users/kw217/  mailto:[EMAIL PROTECTED]     :
:---------------------------------------------------------------------: