{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE StandaloneDeriving #-}
module Versioning.Internal.Base
( Bare
)
where
import Data.Aeson (FromJSON (..), ToJSON (..), Value (..))
import GHC.Generics (Generic)
data Bare
deriving instance Eq Bare
deriving instance Generic Bare
deriving instance Show Bare
instance FromJSON Bare where
parseJSON :: Value -> Parser Bare
parseJSON Value
_ = String -> Parser Bare
forall (m :: * -> *) a. MonadFail m => String -> m a
fail String
"An NA field should be absent or null"
instance ToJSON Bare where
toJSON :: Bare -> Value
toJSON Bare
_ = Value
Null