From 7caa6c952f9cfa70cb5cfb8a3491a9ab6f650066 Mon Sep 17 00:00:00 2001 From: Boyd Stephen Smith Jr Date: Sat, 23 Nov 2013 14:05:49 -0600 Subject: [PATCH] Remove some redundancy detected by hlint. --- Cryptsy/API/Public/MarketData.hs | 2 +- Main.hs | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/Cryptsy/API/Public/MarketData.hs b/Cryptsy/API/Public/MarketData.hs index 5bc2d07..2192069 100644 --- a/Cryptsy/API/Public/MarketData.hs +++ b/Cryptsy/API/Public/MarketData.hs @@ -56,7 +56,7 @@ import Cryptsy.API.Public.Market -- |general market data parameterized by types for prices, quantities, -- date/time values, and totals (price * quantity) newtype GMarketData p q dt t = - MarketData { markets :: (HashMap Text (GMarket p q dt t)) } + MarketData { markets :: HashMap Text (GMarket p q dt t) } deriving Show type MarketData = GMarketData CryptsyNum CryptsyNum Text CryptsyNum diff --git a/Main.hs b/Main.hs index 7c9fd6e..e44ba27 100644 --- a/Main.hs +++ b/Main.hs @@ -202,7 +202,7 @@ main :: IO () main = eitherT putStrLn print $ do MarketData mkts <- bimapEitherT show id . EitherT . browse $ do initBrowser - runEitherT $ (jsonMarketData :: PubCryptsy MarketData) + runEitherT (jsonMarketData :: PubCryptsy MarketData) mkt <- hoistEither . note "No 'LTC/BTC' market." $ HM.lookup (T.pack "LTC/BTC") mkts return . foldMap tradeSummary $ recenttrades mkt -- 2.11.4.GIT