Verified Commit 7047eada authored by Camil Staps's avatar Camil Staps 🚀

Remove ignored strictness annotations

parent ba4320cd
Pipeline #27604 passed with stage
in 5 minutes and 8 seconds
......@@ -29,6 +29,6 @@ sendHtmlEmail :: ![EmailOpt] !String ![String] !String !HtmlTag -> Task ()
//Options for sendEmail
:: EmailOpt
= EmailOptSMTPServer !String //SMTP server to use. Default: localhost
| EmailOptSMTPServerPort !Int //TCP port of the SMTP server to use. Default: 25
| EmailOptExtraHeaders ![(!String,!String)] //Additional headers to add before the body
= EmailOptSMTPServer !String //SMTP server to use. Default: localhost
| EmailOptSMTPServerPort !Int //TCP port of the SMTP server to use. Default: 25
| EmailOptExtraHeaders ![(String,String)] //Additional headers to add before the body
......@@ -29,11 +29,11 @@ where
]
//Send the first message
onConnect :: !ConnectionId !String !() -> (!MaybeErrorString [(!String, !Int)], !Maybe (), ![String], !Bool)
onConnect :: !ConnectionId !String !() -> (!MaybeErrorString [(String, Int)], !Maybe (), ![String], !Bool)
onConnect _ _ _
= (Ok messages,Nothing,[],False)
//Response to last message: if ok, close connection
onData :: !String ![(!String, !Int)] !() -> (!MaybeErrorString [(!String, !Int)], !Maybe (), ![String], !Bool)
onData :: !String ![(String, Int)] !() -> (!MaybeErrorString [(String, Int)], !Maybe (), ![String], !Bool)
onData data [(_,expectedCode)] _
| statusCode data == expectedCode
= (Ok [],Nothing,[],True)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment