--- Log opened Wed Jan 06 00:00:43 2010
--- Log closed Wed Jan 06 00:20:52 2010
--- Log opened Wed Jan 06 00:20:52 2010
--- Log closed Wed Jan 06 00:20:52 2010
--- Log opened Wed Jan 06 00:20:56 2010
02:34 < pham> how do I create my own 404 response with happstack?
02:34 < pham> instead of the silly haiku default
10:24 < stepcut> pham:
10:25 < stepcut> impl :: ServerPart Response
10:25 < stepcut> impl = msum [ dir "foo" $ ok (toResponse "foo")
10:25 < stepcut>             , notFound (toResponse "404")
10:25 < stepcut>             ]
10:25 < stepcut>        
10:25 < stepcut> just make your final case match on everything and return 404
--- Log closed Wed Jan 06 13:20:08 2010
--- Log opened Wed Jan 06 13:20:08 2010
--- Log closed Wed Jan 06 13:20:08 2010
--- Log opened Wed Jan 06 13:20:12 2010
--- Log closed Wed Jan 06 13:34:42 2010
--- Log opened Wed Jan 06 13:34:42 2010
--- Log closed Wed Jan 06 13:34:42 2010
--- Log opened Wed Jan 06 13:36:49 2010
--- Log closed Wed Jan 06 16:47:58 2010
--- Log opened Wed Jan 06 16:47:58 2010
--- Log closed Wed Jan 06 16:47:58 2010
--- Log opened Wed Jan 06 16:48:02 2010
--- Log closed Wed Jan 06 16:52:19 2010
--- Log opened Wed Jan 06 16:52:19 2010
--- Log closed Wed Jan 06 16:52:19 2010
--- Log opened Wed Jan 06 16:52:22 2010
--- Log closed Thu Jan 07 00:00:22 2010