Skip to content

Instantly share code, notes, and snippets.

@rcampbell

rcampbell/gist:769538

Created January 7, 2011 14:52
Show Gist options
  • Save rcampbell/769538 to your computer and use it in GitHub Desktop.
Save rcampbell/769538 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.hs
insertTemplate :: Template -> IO ()
insertTemplate (Template _ src) = do
conn <- connectPostgreSQL "hostaddr=127.0.0.1 dbname=sandbox user=postgres password="
insertTemplateStmt <- prepare conn "INSERT INTO templates VALUES (?, ?)"
pk <- friendlyId 6
execute insertTemplateStmt [toSql pk, toSql src]
commit conn
disconnect conn
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment