This commit is contained in:
Joey Hess 2013-12-25 18:28:46 -04:00
parent 0e2022be95
commit 72765aa95e

View file

@ -11,7 +11,7 @@ instance Receivable Response where
parseCommand "PREPARE-SUCCESS" = parse0 PREPARE_SUCCESS
parseCommand "TRANSFER-SUCCESS" = parse2 TRANSFER_SUCCESS
parseCommand "TRANSFER-FAILURE" = parse3 TRANSFER_FAILURE
"""]]]
"""]]
An especially nice part of this implementation is that it knows exactly how
many parameters each message should have (and their types of course), and so