diff options
| author | William Carroll <wpcarro@gmail.com> | 2020-08-04T08·19+0100 |
|---|---|---|
| committer | William Carroll <wpcarro@gmail.com> | 2020-08-04T08·19+0100 |
| commit | ee8e75231cd9d3d4aa3ffbbfa0e3b8511712e1ee (patch) | |
| tree | 6264013fea0cfc8489f3d9f24cdc7ae1d63a9f50 /src/Email.hs | |
| parent | 9a19942c037ec62700c41c235154ff38816c0a3a (diff) | |
Set -Wall and fix warnings
I think setting -Wall is a sensible default and @dmjio confirmed this. After putting this in my project's .ghci file, a few dozen warnings emerged. This commit changes the code that causes the warnings.
Diffstat (limited to 'src/Email.hs')
| -rw-r--r-- | src/Email.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Email.hs b/src/Email.hs index 439b15d0ed4b..2dac0973ba6d 100644 --- a/src/Email.hs +++ b/src/Email.hs @@ -29,7 +29,7 @@ send apiKey subject body (T.Email to) = do res <- MG.sendEmail ctx x case res of Left e -> pure $ Left (ResponseError e) - Right x -> pure $ Right (SendSuccess x) + Right y -> pure $ Right (SendSuccess y) where ctx = MG.HailgunContext { MG.hailgunDomain = "sandboxda5038873f924b50af2f82a0f05cffdf.mailgun.org" , MG.hailgunApiKey = cs apiKey |