module Utils.Form exposing
  ( fieldAsText
  , frequency
  )

import Form exposing (Form)

import Model.Payment exposing (Frequency(..))

fieldAsText : Form a b -> String -> String
fieldAsText form field =
  Form.getFieldAsString field form
    |> .value
    |> Maybe.withDefault ""

frequency : Form a b -> Frequency
frequency form =
  let field = Form.getFieldAsString "frequency" form
  in  if field.value == Just (toString Monthly)
        then Monthly
        else Punctual