aboutsummaryrefslogtreecommitdiff
path: root/src/client/elm/Utils/Form.elm
blob: 67932222bca1025239cc8dfe3bc1565807a21885 (plain)
1
2
3
4
5
6
7
8
9
10
11
module Utils.Form exposing
  ( fieldAsText
  )

import Form exposing (Form)

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