PhantomFormdata.elm

type FormData a = Data String
type Unsanitized = Unsanitized
type Sanitized = Sanitized

type alias Sanitizer = String -> String

fromString : String -> FormData Unsanitized
fromString data = Data data

sanitize : Sanitizer -> FormData Unsanitized -> FormData Sanitized
sanitize sanitizer (Data data) =
    Data <| sanitizer data
  
submit : FormData Sanitized -> Cmd msg
submit = {- ... -}