Skip to content

Instantly share code, notes, and snippets.

@AnthonySuper

AnthonySuper/User.hs Secret

Created August 29, 2021 03:27
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save AnthonySuper/eecf08998135685774cfbc17f484327b to your computer and use it in GitHub Desktop.
Save AnthonySuper/eecf08998135685774cfbc17f484327b to your computer and use it in GitHub Desktop.
Download ZIP
Slightly Evil Haskell Stuff
Raw
User.hs
getIds = do
users <- selectFromTable #profiles
artworks <- innerJoinTable #artworks $ \aw -> aw ^. #profile_id .== users ^. #id
pure $ mkRow #userName (users ^. #name) <:> mkRow #artworkName (artworks ^. #title) <:> emptyRow
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment