help with haskell

import qualified Data.ByteString as BS
import System.IO
message :: [Char]
message = ('H':'e':'l':'l':'o':',':' ':[])
           ++
              ('w':'o':'r':'l':'d':'!':[])
putHelloWorld :: [Char] -> IO()
putHelloWorld (x:xs) =
                  Prelude.putChar(x) >> putHelloWorld xs
putHelloWorld [] = Prelude.putChar('\n')
main :: IO ()
main =
  hSetBuffering stdout NoBuffering >> hSetBuffering stdin LineBuffering
    >> putHelloWorld(message)

can I short the code somehow?
thanks in advance

Yes. HTH

>>1
Use monads.

Don't call me gay, but I need some mary jay!

Marijuana MUST be legalized.

Don't change these.

Name:		Email:
Entire Thread Thread List