Permalink
Browse files

Set the access method explicitly as needed for newer awful versions. …

…Thanks to Mario Goulart for the suggestion
  • Loading branch information...
1 parent c8945e7 commit afbc95d33085913b85aed5ed949e1a7b4a8a40b7 @ckeen committed Oct 3, 2011
Showing with 5 additions and 3 deletions.
  1. +5 −3 pastiche.scm
View
@@ -263,7 +263,7 @@
(navigation-links)))
title: "Pastiche: the Chicken Scheme pasting service")
- (define-page "paste"
+ (define handle-paste
(lambda ()
(let ((paste-title "Untitled paste"))
(with-request-variables ((nick (nonempty as-string))
@@ -320,8 +320,10 @@
(else (bail-out "Could not find a paste with this id:" id)))))
(navigation-links))
css: (page-css)
- title: paste-title))))
- no-template: #t)
+ title: paste-title)))))
+
+ (define-page "paste" handle-paste method: 'POST no-template: #t)
+ (define-page "paste" handle-paste method: 'GET no-template: #t)
(define-page "raw"
(lambda ()

0 comments on commit afbc95d

Please sign in to comment.