use insert_ for speed improvement
persistent-2.14.4.1 makes insert_ faster than insert because it skips getting the key back. Sponsored-by: Dartmouth College's DANDI project
This commit is contained in:
parent
aa041596f5
commit
cf892f4256
2 changed files with 19 additions and 1 deletions
|
@ -93,7 +93,7 @@ addAssociatedFile k f = queueDb $
|
|||
-- any old key.
|
||||
newAssociatedFile :: Key -> TopFilePath -> WriteHandle -> IO ()
|
||||
newAssociatedFile k f = queueDb $
|
||||
void $ insert $ Associated k af
|
||||
insert_ $ Associated k af
|
||||
where
|
||||
af = SFilePath (getTopFilePath f)
|
||||
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue