module Common.Validation.Income
  ( amount
  , date
  ) where

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

import qualified Common.Validation.Atomic as Atomic

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

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