X-Git-Url: http://gitweb.michael.orlitzky.com/?p=dead%2Fhalcyon.git;a=blobdiff_plain;f=src%2FMail.hs;h=c280f1e82d2f6324385d484b6c8570af7989e041;hp=2b5445c4ddcbd96020ddb2010b035db1235699d7;hb=94484087fbfe98d6735aa82798a9bf506f97fd19;hpb=17dd116706c4a971e1f5c68daa1656af5eff5cd2 diff --git a/src/Mail.hs b/src/Mail.hs index 2b5445c..c280f1e 100644 --- a/src/Mail.hs +++ b/src/Mail.hs @@ -27,7 +27,7 @@ instance Show Message where "\n", (body m) ] - + sendmail :: Message -> IO (String, String, ExitCode) sendmail message = do let sendmail_args = ["-f",