Wizek/ManualKey.hs

Forked from carymrobbins/ManualKey.hs

Created 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/Wizek/dd10228f2c0e658a3b84c7e2f714699d.js"></script>
Save Wizek/dd10228f2c0e658a3b84c7e2f714699d 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