Haskell for reformed perlmongers

[totherme]

Do you miss being able to type while (<>) { ... } ? If so, just slap the following in your local handyfunctions library:

import System
import IO
import Monad

perlGetContents :: IO String
perlGetContents = do
args <- getArgs
if (args == []) then getContents
else foldr (liftM2 (++)) (return "") $
map ((hGetContents =<<) . flip openFile ReadMode) args

Now you can do things like:

cat "main = putStr =<< perlGetContents" > cat.hs

:)

UPDATE: Added a linebreak for all those narrow people out there ;)