module Common.Validation.Payment
  ( name
  , cost
  , date
  ) where

import           Data.Text                (Text)
import           Data.Time.Calendar       (Day)
import           Data.Validation          (Validation)
import qualified Data.Validation          as Validation

import qualified Common.Validation.Atomic as Atomic

name :: Text -> Validation Text Text
name = Atomic.nonEmpty

cost :: Text -> Validation Text Int
cost input = Validation.bindValidation (Atomic.number input) Atomic.nonNullNumber

date :: Text -> Validation Text Day
date = Atomic.day