From e645794af39ec6a04d5a25ac18b94a3cb324d394 Mon Sep 17 00:00:00 2001 From: alexwl Date: Wed, 27 Mar 2019 23:26:22 +0300 Subject: Add GHC version check --- app/Indexer.hs | 23 +---------------------- 1 file changed, 1 insertion(+), 22 deletions(-) (limited to 'app/Indexer.hs') diff --git a/app/Indexer.hs b/app/Indexer.hs index 7fc560e..6284f06 100644 --- a/app/Indexer.hs +++ b/app/Indexer.hs @@ -1,4 +1,3 @@ -{-# LANGUAGE CPP #-} {-# LANGUAGE DuplicateRecordFields #-} {-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE OverloadedStrings #-} @@ -21,7 +20,7 @@ import qualified Data.Text as T import qualified Data.Text.Encoding as TE import Data.Time (getZonedTime) import Data.Version (Version(..),showVersion) -import HaskellCodeExplorer.PackageInfo (createPackageInfo) +import HaskellCodeExplorer.PackageInfo (createPackageInfo, ghcVersion) import qualified HaskellCodeExplorer.Types as HCE import Network.URI.Encode (encode) import Options.Applicative @@ -75,26 +74,6 @@ data Compression | NoCompression deriving (Show, Eq) -#if MIN_VERSION_GLASGOW_HASKELL(8,6,4,0) -ghcVersion :: Version -ghcVersion = Version {versionBranch = [8, 6, 4, 0], versionTags = []} -#elif MIN_VERSION_GLASGOW_HASKELL(8,6,3,0) -ghcVersion :: Version -ghcVersion = Version {versionBranch = [8, 6, 3, 0], versionTags = []} -#elif MIN_VERSION_GLASGOW_HASKELL(8,4,4,0) -ghcVersion :: Version -ghcVersion = Version {versionBranch = [8, 4, 4, 0], versionTags = []} -#elif MIN_VERSION_GLASGOW_HASKELL(8,4,3,0) -ghcVersion :: Version -ghcVersion = Version {versionBranch = [8, 4, 3, 0], versionTags = []} -#elif MIN_VERSION_GLASGOW_HASKELL(8,2,2,0) -ghcVersion :: Version -ghcVersion = Version {versionBranch = [8, 2, 2, 0], versionTags = []} -#else -ghcVersion :: Version -ghcVersion = Version {versionBranch = [8, 0, 2, 0], versionTags = []} -#endif - versionInfo :: String versionInfo = "haskell-code-indexer version " ++ -- cgit v1.2.3