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/Store.hs | |
| parent | 78f46be07c7d063c9d957bfe4d580fcbeb28786f (diff) | |
Add support for GHC 8.6.4
Diffstat (limited to 'app/Store.hs')
| -rw-r--r-- | app/Store.hs | 5 |
1 files changed, 5 insertions, 0 deletions
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 |