Skip to content

Instantly share code, notes, and snippets.

@deque-blog

deque-blog/suggestedPostsForCombined.hs

Last active June 29, 2018 12:13
Show Gist options
  • Save deque-blog/181c9938cd2b7c2e04fcbd27b861f6bc to your computer and use it in GitHub Desktop.
Save deque-blog/181c9938cd2b7c2e04fcbd27b861f6bc to your computer and use it in GitHub Desktop.
Download ZIP
Raw
suggestedPostsForCombined.hs
testCombination = do -- a new computation in our DSL in which we:
p1 <- suggestedPostsFor 1 -- * compute the suggested posts for user 1
p1' <- suggestedPostsFor 1 -- * compute the suggested posts for user 1 (again)
p2 <- suggestedPostsFor 2 -- * compute the suggested posts for user 2
return (p1, p1', p2) -- * return a tuple with the result of these computations
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment