ptkato/snippet.hs

Last active November 13, 2017 13:02

Star () You must be signed in to star a gist
Fork () You must be signed in to fork a gist

Learn more about clone URLs
Clone this repository at <script src="https://gist.github.com/ptkato/7877e91dda74644bbdb1d1260684ae3a.js"></script>
Save ptkato/7877e91dda74644bbdb1d1260684ae3a to your computer and use it in GitHub Desktop.

Download ZIP

Raw

	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