From cac568f01609bf224c0e26ec62880bf7dbb58a07 Mon Sep 17 00:00:00 2001
From: alexwl <alexey.a.kiryushin@gmail.com>
Date: Thu, 14 Mar 2019 22:40:27 +0300
Subject: Add support for GHC 8.6.4

---
 app/Indexer.hs | 5 ++++-
 app/Store.hs   | 5 +++++
 2 files changed, 9 insertions(+), 1 deletion(-)

(limited to 'app')

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
-- 
cgit v1.2.3