diff options
| author | alexwl <alexey.a.kiryushin@gmail.com> | 2019-03-14 22:40:27 +0300 |
|---|---|---|
| committer | alexwl <alexey.a.kiryushin@gmail.com> | 2019-03-14 22:40:27 +0300 |
| commit | cac568f01609bf224c0e26ec62880bf7dbb58a07 (patch) | |
| tree | 4a049555416709e016e2dd8615e6422aa1cbd687 /app | |
| parent | 78f46be07c7d063c9d957bfe4d580fcbeb28786f (diff) | |
Add support for GHC 8.6.4
Diffstat (limited to 'app')
| -rw-r--r-- | app/Indexer.hs | 5 | ||||
| -rw-r--r-- | app/Store.hs | 5 |
2 files changed, 9 insertions, 1 deletions
diff --git a/app/Indexer.hs b/app/Indexer.hs index ee6a330..9560fad 100644 --- a/app/Indexer.hs +++ b/app/Indexer.hs @@ -73,7 +73,10 @@ data Compression | NoCompression deriving (Show, Eq) -#if MIN_VERSION_GLASGOW_HASKELL(8,6,3,0) +#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) diff --git a/app/Store.hs b/app/Store.hs index 956359d..495f190 100644 --- a/app/Store.hs +++ b/app/Store.hs @@ -1,3 +1,4 @@ +{-# LANGUAGE CPP #-} {-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE TypeApplications #-} {-# LANGUAGE TypeFamilyDependencies #-} @@ -41,9 +42,13 @@ data Location = Location } deriving (Show, Eq, Ord, Generic, NFData) instance Serialize Location + +#if MIN_VERSION_cereal(0,5,8) +#else instance Serialize BSS.ShortByteString where put = put . BSS.fromShort get = BSS.toShort <$> get +#endif class StoreItem item where toByteString :: item -> BS.ByteString |