src/client/Utils/Form.elm


1
2
3
4
5
6
7
8
9
10
11
12
13

module Utils.Form exposing
  ( fieldAsText
  )

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 ""