From fe92b6e5912c58890a2c393df73b6ab97c8d7449 Mon Sep 17 00:00:00 2001
From: Amir Saeid <amir@glgdgt.com>
Date: Wed, 30 Jun 2021 08:56:01 +0100
Subject: Remove redundancies

---
 src/Xmobar/Plugins/Kraken.hs | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/src/Xmobar/Plugins/Kraken.hs b/src/Xmobar/Plugins/Kraken.hs
index 68b3394..afe04db 100644
--- a/src/Xmobar/Plugins/Kraken.hs
+++ b/src/Xmobar/Plugins/Kraken.hs
@@ -21,7 +21,7 @@ import qualified Data.Map as Map
 import qualified Data.Vector as V
 
 data Kraken = Kraken [String] String
-  deriving (Read,Show)
+  deriving (Read, Show)
 
 instance Exec Kraken where
   alias (Kraken _ a) = a
@@ -42,7 +42,7 @@ instance Exec Kraken where
 
 wsClientApp :: [String] -> MVar (Text, Double)  -> ClientApp ()
 wsClientApp ps mvar connection = do
-  sendTextData connection (encode (Subscribe { event = "subscribe", pair = map pack ps, subscription = Subscription { name = "ticker" }} ))
+  sendTextData connection (encode Subscribe { event = "subscribe", pair = map pack ps, subscription = Subscription { name = "ticker" }})
   void . forever $ do
     message <- receiveData connection
     case (eitherDecode message :: Either String Message) of
@@ -71,7 +71,7 @@ instance FromJSON Ask where
       p <- parseDoubleString $ v V.! 0
       w <- parseJSON $ v V.! 1
       l <- parseDoubleString $ v V.! 2
-      return $ Ask { askPrice = p, askWholeLotVolume = w, askLotVolume = l }
+      return Ask { askPrice = p, askWholeLotVolume = w, askLotVolume = l }
     | otherwise = mzero
   parseJSON nonArray = typeMismatch "Array" nonArray
 
@@ -87,7 +87,7 @@ instance FromJSON Bid where
       p <- parseDoubleString $ v V.! 0
       w <- parseJSON $ v V.! 1
       l <- parseDoubleString $ v V.! 2
-      return $ Bid { bidPrice = p, bidWholeLotVolume = w, bidLotVolume = l }
+      return Bid { bidPrice = p, bidWholeLotVolume = w, bidLotVolume = l }
     | otherwise = mzero
   parseJSON nonArray = typeMismatch "Array" nonArray
 
@@ -101,7 +101,7 @@ instance FromJSON Close where
     | V.length v == 2 = do
       p <- parseDoubleString $ v V.! 0
       l <- parseDoubleString $ v V.! 1
-      return $ Close { closePrice= p, closeLotVolume = l }
+      return Close { closePrice= p, closeLotVolume = l }
     | otherwise = mzero
   parseJSON nonArray = typeMismatch "Array" nonArray
 
@@ -149,6 +149,6 @@ instance FromJSON Message where
       info  <- parseJSON $ a V.! 1
       cName <- parseJSON $ a V.! 2
       p     <- parseJSON $ a V.! 3
-      pure $ TickerMessage { channelId = cId, tickerInformation = info, channelName = cName, tickerPair = p }
+      pure TickerMessage { channelId = cId, tickerInformation = info, channelName = cName, tickerPair = p }
     | otherwise = mzero
   parseJSON v = typeMismatch "Object or Array" v
-- 
cgit v1.2.3