module Utils.Validation
  ( validateNonEmpty
  , validateNumber
  ) where

import String
import Reads exposing (readInt)

validateNonEmpty : String -> String -> Result String String
validateNonEmpty message str =
  if String.isEmpty str
   then Err message
   else Ok str

validateNumber : String -> (Int -> Bool) -> String -> Result String Int
validateNumber message numberForm str =
  case readInt str of
    Just number ->
      if numberForm number
        then Ok number
        else Err message
    Nothing ->
      Err message