diff options
| author | Félix Sipma <felix.sipma@no-log.org> | 2015-01-30 15:13:08 +0100 |
|---|---|---|
| committer | Félix Sipma <felix.sipma@no-log.org> | 2015-01-30 15:18:09 +0100 |
| commit | 403e8b50eea6d1f2896faf528ed3b5b6bc95beb4 (patch) | |
| tree | f1a7f4808fbef58b6be25247cdef23c516392222 /Form | |
| parent | 0a7f11be5119caff9970b7bdfe2ee939340bb919 (diff) | |
use Handler instead of HandlerT App IO
Diffstat (limited to 'Form')
| -rw-r--r-- | Form/Fields/Image.hs | 6 | ||||
| -rw-r--r-- | Form/Fields/Point.hs | 2 |
2 files changed, 4 insertions, 4 deletions
diff --git a/Form/Fields/Image.hs b/Form/Fields/Image.hs index f4e04bf..f044cb7 100644 --- a/Form/Fields/Image.hs +++ b/Form/Fields/Image.hs @@ -4,8 +4,8 @@ module Form.Fields.Image where import Import import Text.Julius (rawJS) -selectImageField :: HandlerT App IO (OptionList ImageId) - -> Field (HandlerT App IO) ImageId +selectImageField :: Handler (OptionList ImageId) + -> Field Handler ImageId selectImageField opts' = Field { fieldParse = \x _ -> do opts <- opts' @@ -67,7 +67,7 @@ $newline never <option value=#{value} data-img-src=@{ImageR $ optionInternalValue opt} :isSel:selected>#{optionDisplay opt} |] -bootstrapFileField :: Field (HandlerT App IO) FileInfo +bootstrapFileField :: Field Handler FileInfo bootstrapFileField = Field { fieldParse = \_ files -> return $ case files of diff --git a/Form/Fields/Point.hs b/Form/Fields/Point.hs index d6ef881..a7bda98 100644 --- a/Form/Fields/Point.hs +++ b/Form/Fields/Point.hs @@ -7,7 +7,7 @@ import Model.Point (Point (..), toLeaflet) import Text.Julius (rawJS) import Text.Parsec -pointField :: (RenderMessage App FormMessage, RenderMessage App AppMessage) => Field (HandlerT App IO) Point +pointField :: (RenderMessage App FormMessage, RenderMessage App AppMessage) => Field Handler Point pointField = Field { fieldParse = parsePoint , fieldView = \theId name attrs val isReq -> do |