+-- |'QuasiQuoter' for 'StatusCode' declarations.
+--
+-- Top-level splicing
+--
+-- @
+-- ['statusCodes'|
+-- 200 OK
+-- 400 Bad Request
+-- 405 Method Not Allowed
+-- |]
+-- @
+--
+-- becomes:
+--
+-- @
+-- data OK = OK deriving ('Eq', 'Show', 'Typeable')
+-- instance OK where
+-- 'numericCode' _ = 200
+-- 'textualStatus' _ = 'A.unsafeFromString' \"200 OK\"
+--
+-- data BadRequest = BadRequest deriving ('Eq', 'Show', 'Typeable')
+-- instance BadRequest where
+-- 'numericCode' _ = 400
+-- 'textualStatus' _ = 'A.unsafeFromString' \"400 Bad Request\"
+--
+-- data MethodNotAllowed = MethodNotAllowed deriving ('Eq', 'Show', 'Typeable')
+-- instance MethodNotAllowed where
+-- 'numericCode' _ = 405
+-- 'textualStatus' _ = 'A.unsafeFromString' \"405 Method Not Allowed\"
+-- @