dandri/simplexmq
1
0
Fork 0
mirror of https://github.com/simplex-chat/simplexmq.git synced 2026-03-31 16:15:57 +00:00
Code Issues Packages Projects Releases Wiki Activity

JSON instance for VersionRange (#1036)

Browse Source
This commit is contained in:
Evgeny Poberezkin
2024-03-08 10:01:58 +00:00
committed by GitHub
parent 8ff4c628b5
commit 03d73f442f
1 changed files with 5 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
src/Simplex/Messaging/Version.hs
View File

@@ -4,6 +4,7 @@
{-# LANGUAGE FunctionalDependencies #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE TypeFamilies #-}
module Simplex.Messaging.Version
@@ -26,9 +27,11 @@ module Simplex.Messaging.Version
where
import Control.Applicative (optional)
import qualified Data.Aeson.TH as J
import qualified Data.Attoparsec.ByteString.Char8 as A
import Simplex.Messaging.Encoding
import Simplex.Messaging.Encoding.String
import Simplex.Messaging.Parsers (defaultJSON)
import Simplex.Messaging.Version.Internal (Version (..))
pattern VersionRange :: Version v -> Version v -> VersionRange v
@@ -120,3 +123,5 @@ compatibleVersion x vr =
mkCompatibleIf :: a -> Bool -> Maybe (Compatible a)
x `mkCompatibleIf` cond = if cond then Just $ Compatible_ x else Nothing
$(J.deriveJSON defaultJSON ''VersionRange)