carymrobbins/ManualKey.hs

Last active May 2, 2017 23:58

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/carymrobbins/d59f9337f5a0c7e00245.js"></script>
Save carymrobbins/d59f9337f5a0c7e00245 to your computer and use it in GitHub Desktop.

Download ZIP

Yesod - manually creating a Key

Raw

ManualKey.hs

	-- Good
	import Database.Persist.Sql
	toSqlKey 1 :: UserId

	-- Bad
	Prelude.read "UserKey {unUserKey = SqlBackendKey {unSqlBackendKey = 1}}" :: UserId

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment