github/calrissian
1
0
Fork 0
mirror of https://github.com/correl/calrissian.git synced 2024-11-23 11:09:58 +00:00
Code Issues Projects Releases Packages Wiki Activity

Use standard indentation.

Browse source
This commit is contained in:
Duncan M. McGreggor 2015-05-19 23:08:24 -05:00
parent 9f12d3edf8
commit 2ea5b9289c
1 changed files with 13 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

26
README.rst
View file

@ -74,25 +74,25 @@ and execution will cease.
(include-lib "deps/calrissian/include/monads.lfe")
(defun dostuff ()
(do-m (monad 'error)
(input <- (fetch-input)) ;; fetch-input -> (tuple 'ok result) | (tuple 'error reason)
(parsed <- (parse-input input)) ;; parse-input -> (tuple 'ok result) | (tuple 'error reason)
(store-data parsed))) ;; store-data -> 'ok | (tuple 'error reason)
(do-m (monad 'error)
(input <- (fetch-input)) ;; fetch-input -> (tuple 'ok result) | (tuple 'error reason)
(parsed <- (parse-input input)) ;; parse-input -> (tuple 'ok result) | (tuple 'error reason)
(store-data parsed))) ;; store-data -> 'ok | (tuple 'error reason)
Without the error monad, the code might have looked like this:
.. code:: scheme
(defun dostuff ()
(case (fetch-input)
((tuple 'error reason)
(tuple 'error reason))
((tuple 'ok input)
(case (parse-input input)
((tuple 'error reason)
(tuple 'error reason))
((tuple 'ok parsed)
(store-data parsed))))))
(case (fetch-input)
((tuple 'error reason)
(tuple 'error reason))
((tuple 'ok input)
(case (parse-input input)
((tuple 'error reason)
(tuple 'error reason))
((tuple 'ok parsed)
(store-data parsed))))))
.. Links
.. -----