File Uploader

main = run$ ask$ page$ makeForm$

do text "File to upload: "

file <- fileInputField empty

submitField (receive (raw file))

(fieldVALUE "Send file")

receive [f] =

if take 2 (fileName f) == ".." then htell $ page $ text "Naughty!"

else do io (writeFile ("uploaded.files/"++fileName f)

(fieldContents f))

htell $ page $ text "File uploaded"

Creates an input

field and delivers

the value input.

Can do I/O

on the server