From e331edade7578ee3f1fdc800c7a2c203c170c95b Mon Sep 17 00:00:00 2001
From: Ramakrishnan Muthukrishnan <ram@leastauthority.com>
Date: Fri, 8 Nov 2019 15:16:20 +0530
Subject: [PATCH] fix hlint-reported warnings
---
src/PaymentServer/Main.hs | 2 +-
src/PaymentServer/Processors/Stripe.hs | 2 +-
src/PaymentServer/Server.hs | 1 -
3 files changed, 2 insertions(+), 3 deletions(-)
diff --git a/src/PaymentServer/Main.hs b/src/PaymentServer/Main.hs
index f439a4e..941d4c2 100644
--- a/src/PaymentServer/Main.hs
+++ b/src/PaymentServer/Main.hs
@@ -204,7 +204,7 @@ logEndpoint endpoint =
getApp :: ServerConfig -> IO Application
getApp config =
let
- getIssuer ServerConfig{ issuer, signingKeyPath } = do
+ getIssuer ServerConfig{ issuer, signingKeyPath } =
case (issuer, signingKeyPath) of
(Trivial, Nothing) -> return $ Right trivialIssue
(Ristretto, Just keyPath) -> do
diff --git a/src/PaymentServer/Processors/Stripe.hs b/src/PaymentServer/Processors/Stripe.hs
index 36cc535..8caef6e 100644
--- a/src/PaymentServer/Processors/Stripe.hs
+++ b/src/PaymentServer/Processors/Stripe.hs
@@ -174,7 +174,7 @@ charge d key (Charges token voucher amount currency) = do
Left StripeError {} -> throwError err400 { errBody = "Stripe charge didn't succeed" }
where
getCurrency :: Text -> Handler Currency
- getCurrency maybeCurrency = do
+ getCurrency maybeCurrency =
case readMaybe (unpack currency) of
Just currency' -> return currency'
Nothing -> throwError err400 { errBody = "Invalid currency specified" }
diff --git a/src/PaymentServer/Server.hs b/src/PaymentServer/Server.hs
index 1dd4557..feef0b0 100644
--- a/src/PaymentServer/Server.hs
+++ b/src/PaymentServer/Server.hs
@@ -1,6 +1,5 @@
{-# LANGUAGE DataKinds #-}
{-# LANGUAGE TypeOperators #-}
-{-# LANGUAGE OverloadedStrings #-}
-- | This module exposes a Servant-based Network.Wai server for payment
-- interactions.
--
GitLab