fieldStyle.elm

import String
import Graphics.Input (Input, input)
import Graphics.Input.Field as Field

content : Input Field.Content
content = input Field.noContent

main : Signal Element
main =
    lift scene content.signal


ds = Field.defaultStyle
fieldStyle =  { ds | outline <- 
                      { color = red
                      , width = { left = 50, 
                                  right = 50, 
                                  top = 50, 
                                  bottom = 50
                                }
                      , radius = 100
                      }     
              } 

scene : Field.Content -> Element
scene fieldContent =
   flow down
   [ Field.field fieldStyle content.handle identity "Type here!" fieldContent
   , plainText (String.reverse fieldContent.string)
   ]