diff options
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 |