Simple SMTP Server in Haskell