- let text = fromMaybe L8.empty $ fmap fdContent $ find ((== "text") . fdName) form
- file = fromMaybe L8.empty $ fmap fdContent $ find ((== "file") . fdName) form
- fileName = fdFileName =<< find ((== "file") . fdName) form
+ let text = fromMaybe L8.empty $ fmap fdContent $ lookup "text" form
+ file = fromMaybe L8.empty $ fmap fdContent $ lookup "file" form
+ fileName = fdFileName =<< lookup "file" form