mirror of
https://github.com/simplex-chat/simplexmq.git
synced 2026-04-25 16:22:16 +00:00
dd2bd11584
* parameterize version scopes with phantom types * move Version to another module * parens
26 lines
697 B
Haskell
26 lines
697 B
Haskell
module Simplex.Messaging.Version.Internal where
|
|
|
|
import Data.Aeson (FromJSON (..), ToJSON (..))
|
|
import Data.Word (Word16)
|
|
import Simplex.Messaging.Encoding
|
|
import Simplex.Messaging.Encoding.String
|
|
|
|
-- Do not use constructor of this type directry
|
|
newtype Version v = Version Word16
|
|
deriving (Eq, Ord, Show)
|
|
|
|
instance Encoding (Version v) where
|
|
smpEncode (Version v) = smpEncode v
|
|
smpP = Version <$> smpP
|
|
|
|
instance StrEncoding (Version v) where
|
|
strEncode (Version v) = strEncode v
|
|
strP = Version <$> strP
|
|
|
|
instance ToJSON (Version v) where
|
|
toEncoding (Version v) = toEncoding v
|
|
toJSON (Version v) = toJSON v
|
|
|
|
instance FromJSON (Version v) where
|
|
parseJSON v = Version <$> parseJSON v
|