Skip to content

Instantly share code, notes, and snippets.

@ptkato

ptkato/snippet.hs

Last active November 13, 2017 13:02
Show Gist options
  • Save ptkato/7877e91dda74644bbdb1d1260684ae3a to your computer and use it in GitHub Desktop.
Save ptkato/7877e91dda74644bbdb1d1260684ae3a to your computer and use it in GitHub Desktop.
Download ZIP
Raw
snippet.hs
runDB $ do
prods <- selectList [] []
forns <- mapM (get . produtoFornecedorId . entityVal) prods
return . zip prods $ catMaybes forns
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment