12 lines
261 B
Plaintext
Raw Normal View History

2005-04-24 08:51:33 +00:00
import System.Directory
resource = mail {
-- editor = do b <- doesFileExist "/usr/bin/emacs"
-- return $ if b then "emacs" else "vi" ,
editor = do b <- doesFileExist "/bin/sh"
return "sh",
attribution = \name -> "Today, "++name++" wrote :"
}