Skip to content

Instantly share code, notes, and snippets.

@KirinDave

KirinDave/thing.clj Secret

Created October 6, 2010 01:04
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save KirinDave/c9c8d6cb47fdc5416993 to your computer and use it in GitHub Desktop.
Save KirinDave/c9c8d6cb47fdc5416993 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
thing.clj
(ns clothesline.protocol.graph
(:use [clothesline.protocol
[response-helpers]
[syntax]
[graph-helpers]])
(:require [clothesline [service :as s]]))
;; Proposed syntax
defsta ; I type defsta(M-<TAB>) and get no completions.
(protocol-machine "v3"
(defstate b13
"Check if service has been made unavailable. Return status 503 if not."
:test s/service-available?
:yes :b12
:no (stop-response 503))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment