Commits

Greg Slepak committed 849cf52

error handler now uses 'display-error', therefore supporting the nice built-in 500 view

  • Participants
  • Parent commits 026a68d

Comments (0)

Files changed (1)

example-site/dragonfly-framework/dragonfly.lsp

 
 ; setup our error handler
 (define (error-handler)
-	(Response:status 500)
-	(Response:content-type Response:text-type)
-	
 	;(log-err "Got error (" (last (last-error)) ") with STDOUT contents:\n{" STDOUT "}")
 	(log-err (last (last-error)))
-	
-	(set 'STDOUT "") ; clear STDOUT
-	(println (last (last-error)))
+	(display-error 500)
 	(send-and-exit)
 )