ebird-client: Remove unused pragma, rename where-bound variable

FinleyMcIlwaine · Sep 27, 2023 · 865aedf · 865aedf
1 parent 37f8e49
commit 865aedf
Showing 1 changed file with 4 additions and 4 deletions.
diff --git 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 ""