Skip to content

Instantly share code, notes, and snippets.

@codygman

codygman/foo.hs

Last active November 21, 2019 21:08
Show Gist options
  • Save codygman/fbed8aa283fba74d3689e776383d0afc to your computer and use it in GitHub Desktop.
Save codygman/fbed8aa283fba74d3689e776383d0afc to your computer and use it in GitHub Desktop.
Download ZIP
Raw
foo.hs
Interaction.getUserTeams :: MonadMongo p => Gluon.UserExternalId -> p [Gluon.SavedTeam]
WebInteraction.getUserTeams :: MonadMongo p => Gluon.EnterpriseGrantExternalId -> Gluon.UserExternalId -> p [Gluon.SavedTeam]
WebInteraction.getUserTeams = if hasAccess eGrantId then Interaction.getUserTeams
-- vs
Interaction.getUserTeams :: MonadMongo p => Gluon.UserExternalId -> p [Gluon.SavedTeam]
Interaction.webGetUserTeams :: MonadMongo p => Gluon.EnterpriseGrantExternalId -> Gluon.UserExternalId -> p [Gluon.SavedTeam]
WebInteraction.getUserTeams = if hasAccess eGrantId then Interaction.getUserTeams
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment