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/Store.hs | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'app/Store.hs')

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