postie-0.2.0.0: examples/Simple.hs

module Main where

import Web.Postie

import Pipes.ByteString (stdout)

settings :: Settings
settings = defaultSettings {
    settingsTLS = Just $ (tlsSettings "server.crt" "server.key") {
      security = DemandStartTLS
    }
  }

main :: IO ()
main = do
    runSettings settings app
  where
    app (Mail _ _ body) = do
      runEffect $ body >-> stdout
      return Accepted