cc36c8516a
https://github.com/yesodweb/persistent/issues/1457 Sponsored-by: Dartmouth College's DANDI project
27 lines
693 B
Haskell
27 lines
693 B
Haskell
{- Persistent sqlite database utilities.
|
|
-
|
|
- Copyright 2023 Joey Hess <id@joeyh.name>
|
|
-
|
|
- Licensed under the GNU AGPL version 3 or higher.
|
|
-}
|
|
|
|
{-# LANGUAGE TypeFamilies, CPP #-}
|
|
{-# OPTIONS_GHC -fno-warn-missing-signatures #-}
|
|
|
|
module Database.Utility (
|
|
insertUniqueFast,
|
|
) where
|
|
|
|
import Control.Monad
|
|
import Database.Persist.Class
|
|
|
|
{- insertUnique_ is 2x as fast as insertUnique, so use when available.
|
|
-
|
|
- It would be difficult to write the type signature here, since older
|
|
- versions of persistent have different constraints on insertUnique.
|
|
-}
|
|
#if MIN_VERSION_persistent(2,14,5)
|
|
insertUniqueFast x = void (insertUnique_ x)
|
|
#else
|
|
insertUniqueFast x = void (insertUnique x)
|
|
#endif
|