From 1fedb7f1e73bc56002181775a546e9c2407a8e40 Mon Sep 17 00:00:00 2001
From: Lia Lenckowski <lialenck@protonmail.com>
Date: Thu, 24 Aug 2023 14:00:11 +0200
Subject: add toEncoding implementations (~15% encoding speedup)

---
 src/BangState.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/BangState.hs')

diff --git a/src/BangState.hs b/src/BangState.hs
index 328a57e..fc3afab 100644
--- a/src/BangState.hs
+++ b/src/BangState.hs
@@ -70,7 +70,7 @@ loadOwnBangs = eitherDecodeFileStrict "bangs.json" <|> return (Left "") >>= \cas
 initBangState :: IO BangState
 initBangState = do
     -- TODO error handling for ddg bang polling, as well as regular polling
-    ans <- (httpJSON "https://duckduckgo.com/bang.v260.js") :: IO (Response DDGBangs)
+    ans <- httpJSON "https://duckduckgo.com/bang.v260.js" :: IO (Response DDGBangs)
     s <- BangState
         <$> (loadOwnBangs >>= newTVarIO)
         <*> newTVarIO (toBangs $ getResponseBody ans)
-- 
cgit v1.2.3-70-g09d2