steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Don't boilerplate error pages

db4
Slava Pestov 2008-09-29 19:43:45 -05:00
parent 399824edad
commit 2cf2dde83c
1 changed files with 2 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
basis/furnace/boilerplate/boilerplate.factor
View File

@ -17,16 +17,13 @@ TUPLE: boilerplate < filter-responder template init ;
[ ] >>init ; [ ] >>init ;
: wrap-boilerplate? ( response -- ? ) : wrap-boilerplate? ( response -- ? )
{ { [ code>> 200 = ] [ content-type>> "text/html" = ] } 1&& ;
[ code>> { [ 200 = ] [ 400 499 between? ] } 1|| ]
[ content-type>> "text/html" = ]
} 1&& ;
M:: boilerplate call-responder* ( path responder -- ) M:: boilerplate call-responder* ( path responder -- )
begin-form begin-form
path responder call-next-method path responder call-next-method
responder init>> call responder init>> call
dup content-type>> "text/html" = [ dup wrap-boilerplate? [
clone [| body | clone [| body |
[ [
body body