Skip to content

Instantly share code, notes, and snippets.

@codedmart

codedmart/Main.hs

Created October 16, 2014 19:37
Show Gist options
  • Save codedmart/843b44bf986ffbfd90f6 to your computer and use it in GitHub Desktop.
Save codedmart/843b44bf986ffbfd90f6 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
Main.hs
create d t = do
r <- runDB $ t R.# R.insert (R.toDatum d)
return . maybeHelper $ insertKey r
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment