- outputChunk ("You entered \"" ++ text ++ "\".\n")
- output ("You uploaded a " ++ show (length file) ++ " bytes long file.\n")
+ outputChunk ("You entered \"" ++ L8.unpack text ++ "\".\n")
+ outputChunk ("You uploaded a " ++ show (L8.length file) ++ " bytes long file.\n")
+ output ("The file name is " ++ show fileName ++ ".\n")