From 865aedf9312e14ff239c533f8aa530509a6c63cd Mon Sep 17 00:00:00 2001
From: Finley McIlwaine <finleymcilwaine@gmail.com>
Date: Wed, 27 Sep 2023 15:52:02 -0700
Subject: [PATCH] ebird-client: Remove unused pragma, rename where-bound
 variable

---
 ebird-client/src/Data/EBird/Client.hs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/ebird-client/src/Data/EBird/Client.hs b/ebird-client/src/Data/EBird/Client.hs
index dac6e36..076f605 100644
--- a/ebird-client/src/Data/EBird/Client.hs
+++ b/ebird-client/src/Data/EBird/Client.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE DataKinds        #-}
-{-# LANGUAGE TypeApplications #-}
+
 {-# OPTIONS_GHC -Wno-unrecognised-pragmas #-}
 {-# HLINT ignore "Eta reduce" #-}
 
@@ -76,8 +76,8 @@ import Data.EBird.Client.Taxonomy
 askEBird :: ClientM a -> IO (Either ClientError a)
 askEBird question = do
     manager' <- newTlsManager
-    runClientM question (mkClientEnv manager' ebirdHQ)
+    runClientM question (mkClientEnv manager' eBirdHQ)
   where
     -- Home of the official eBird API
-    ebirdHQ :: BaseUrl
-    ebirdHQ = BaseUrl Https "api.ebird.org" 443 ""
+    eBirdHQ :: BaseUrl
+    eBirdHQ = BaseUrl Https "api.ebird.org" 443 ""