Skip to content

Instantly share code, notes, and snippets.

@pmiddend

pmiddend/Main.hs

Created December 7, 2016 17:42
Show Gist options
  • Save pmiddend/94447195ecf0da39fa0f377e3a6d971a to your computer and use it in GitHub Desktop.
Save pmiddend/94447195ecf0da39fa0f377e3a6d971a to your computer and use it in GitHub Desktop.
Download ZIP
Raw
Main.hs
, vcEvents = foldMap (flip Map.singleton <*> ((,Nothing) . (uidValue . veUID))) (issueToEvent <$> issues)
-- , vcEvents = foldMap (\issue -> Map.singleton ((,Nothing) . (uidValue . veUID) $ issue) issue) (issueToEvent <$> issues)
-- , vcEvents = foldMap (\issue -> Map.singleton (uidValue . veUID $ issue,Nothing) issue) (issueToEvent <$> issues)
-- , vcEvents = foldr (\issue map -> Map.insert ((uidValue . veUID $ issue,Nothing)) issue map) Map.empty (issueToEvent <$> issues)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment