From 8793dfc66dcab759a95e4f6ab98e07afbc45784b Mon Sep 17 00:00:00 2001
From: Yuchen Pei <hi@ypei.me>
Date: Mon, 13 Jun 2022 15:33:06 +1000
Subject: removing cpp macros in server

---
 app/Server.hs | 19 -------------------
 1 file changed, 19 deletions(-)

diff --git a/app/Server.hs b/app/Server.hs
index c220307..e67e21f 100644
--- a/app/Server.hs
+++ b/app/Server.hs
@@ -1,4 +1,3 @@
-{-# LANGUAGE CPP #-}
 {-# LANGUAGE TemplateHaskell #-}
 {-# LANGUAGE TypeFamilies #-}
 {-# LANGUAGE TupleSections #-}
@@ -51,9 +50,7 @@ import qualified Data.List as L
 import qualified Data.Map.Strict as M
 import Data.Maybe (fromMaybe, mapMaybe)
 import qualified Data.Vector as V
-#if MIN_VERSION_GLASGOW_HASKELL(8,4,3,0)
 import qualified GHC.Compact as C
-#endif
 import Data.Pagination
   ( Paginated
   , hasNextPage
@@ -125,11 +122,7 @@ import Servant
   , Header
   , Headers
   , QueryParam
-#if MIN_VERSION_GLASGOW_HASKELL(8,6,5,0)
   , ServerError
-#else
-  , ServantErr
-#endif
   , ServerT
   , ToHttpApiData(..)
   , addHeader
@@ -141,11 +134,7 @@ import Servant
   )
 import Servant.API.ContentTypes (AllCTRender(..), JSON)
 import Servant.Server (Handler(..), hoistServer)
-#if MIN_VERSION_servant(0,14,1)
 import Servant.Links (safeLink)
-#else
-import Servant.Utils.Links (safeLink)
-#endif
 import System.Directory (doesFileExist)
 import System.Exit (exitFailure, exitSuccess)
 import System.FilePath.Find
@@ -882,11 +871,7 @@ isExportedId (HCE.ExternalIdentifierInfo HCE.IdentifierInfo {isExported}) =
 
 ghcCompact :: forall a. a -> IO a
 ghcCompact =
-#if MIN_VERSION_GLASGOW_HASKELL(8,4,3,0)
   (fmap C.getCompact . C.compact)
-#else
-  return
-#endif
 
 loadPackageInfo ::
      ServerConfig
@@ -1839,11 +1824,7 @@ fileNotFound :: Response
 fileNotFound =
   responseLBS status404 [("Content-Type", "text/plain")] "Not found"
 
-#if MIN_VERSION_GLASGOW_HASKELL(8,6,5,0)
 throwServantError :: (MonadIO m) => ServerError -> m a
-#else
-throwServantError :: (MonadIO m) => ServantErr -> m a
-#endif
 throwServantError = liftIO . throwIO
 
 server :: Environment -> ServerT API Handler
-- 
cgit v1.2.3