scrod-0.2026.2.21: source/library/Scrod/Core/Version.hs

{-# LANGUAGE DerivingVia #-}

module Scrod.Core.Version where

import qualified Data.List.NonEmpty as NonEmpty
import qualified Numeric.Natural as Natural
import qualified Scrod.Json.ToJson as ToJson
import qualified Scrod.Schema as Schema

newtype Version = MkVersion
  { unwrap :: NonEmpty.NonEmpty Natural.Natural
  }
  deriving (Eq, Ord, Show)
  deriving (ToJson.ToJson, Schema.ToSchema) via NonEmpty.NonEmpty Natural.Natural