t; respond $ do
+ ioresult <- ioaction
+ showresult ioresult
+
+showresult showable = sresult 200 (show showable)
+
+
hunk ./src/HAppS/Examples/HTTP1.hs 151
+
+format_html xs = concat $ map newlinetobr xs
+ where newlinetobr '\n' = ""
+ newlinetobr x = [x]
+
+f &
Thomas Hartman db.com> writes:
>
>
> In the latest happs (darcs pulled, updated
> head is 0.9.1 iirc), I am experimenting with the example file in
src/HAppS/Examples/HTTP1.hs.
> I would like to combine state with io.
> Eventually io will mean stuff like reading from a database, but for now
> I'