diff options
author | http://claimid.com/strager <strager@web> | 2012-08-11 04:55:13 +0000 |
---|---|---|
committer | admin <admin@branchable.com> | 2012-08-11 04:55:13 +0000 |
commit | c3b0e01c5b46776356f9204050249cddf5b8b2db (patch) | |
tree | d3df708c1a26a5fdd0ca184d9587a15556089dbf /doc/design/assistant/blog/day_57__afk | |
parent | a2cc373879c7c81b3a59681ed875dfdd63c8920c (diff) |
Added a comment
Diffstat (limited to 'doc/design/assistant/blog/day_57__afk')
-rw-r--r-- | doc/design/assistant/blog/day_57__afk/comment_2_c70d3faccfcebf47deb25e270498cb56._comment | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/doc/design/assistant/blog/day_57__afk/comment_2_c70d3faccfcebf47deb25e270498cb56._comment b/doc/design/assistant/blog/day_57__afk/comment_2_c70d3faccfcebf47deb25e270498cb56._comment new file mode 100644 index 000000000..7539ea2de --- /dev/null +++ b/doc/design/assistant/blog/day_57__afk/comment_2_c70d3faccfcebf47deb25e270498cb56._comment @@ -0,0 +1,18 @@ +[[!comment format=mdwn + username="http://claimid.com/strager" + nickname="strager" + subject="comment 2" + date="2012-08-11T04:55:13Z" + content=""" +In fact, making a dedicated data type or some typeclasses may be more appropriate: + + class Cancelable a where cancel :: a -> IO () + class Pauseable a where pause :: a -> IO () + + -- Alternatively: + + data Transfer = Transfer { cancel :: IO (), pause :: IO () } + + -- Or both! + +"""]] |