nat-optics-1.0.0.3: src/NatOptics/NonNegative/Unsafe.hs

{-# language Unsafe #-}

module NatOptics.NonNegative.Unsafe
  (
    NonNegative (..),
  )
  where

import Data.Eq   ( Eq )
import Data.Ord  ( Ord )
import Text.Show ( Show )

newtype NonNegative number = NonNegativeUnsafe{ number :: number }
    deriving newtype (Eq, Ord, Show)