[Haskell-beginners] runghc question

[Ian Duncan]

I'm writing a script for TextMate using Haskell, and I don't know how  
to get it to work with runghc. Here's the script:

#!/usr/local/bin/runghc
 >module Main
 >where
 >import System.Cmd


 >main = putStrLn "FOO"

{- do
	c <- getContents
	system ("/Users/ian/.cabal/bin/pointfree \"" ++ c ++ "\"")
-}

How do I get it to treat this as an lhs file rather than an hs file if  
there is no extension to the filename? Is there an argument for this?

Ian Duncan