thunderstrike/purescript-postgres
thunderstrike/purescript-postgres
2
0
Fork 0
generated from tpl/purs
Code Issues Pull Requests Packages Projects Releases Wiki Activity

feat: isReferenced

Browse Source
This commit is contained in:
orion 2023-12-18 09:04:55 -06:00
parent 2eba8bd07f
commit 30fff94a26
Signed by: orion
GPG Key ID: 6D4165AE4C928719
2 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
spago.yaml
View File

@ -10,6 +10,7 @@ package:
- effect - effect
- either - either
- exceptions - exceptions
- foldable-traversable
- foreign - foreign
- fork - fork
- maybe - maybe

8
src/Data.Postgres.Query.Builder.purs
View File

@ -2,8 +2,9 @@ module Data.Postgres.Query.Builder where
import Prelude import Prelude
import Control.Monad.State (StateT, modify, runStateT) import Control.Monad.State (StateT, get, modify, runStateT)
import Data.Array as Array import Data.Array as Array
import Data.Foldable (any, elem)
import Data.Set (Set) import Data.Set (Set)
import Data.Set as Set import Data.Set as Set
import Data.Tuple.Nested (type (/\)) import Data.Tuple.Nested (type (/\))
@ -18,6 +19,11 @@ runBuilder = flip runStateT { params: [], refs: Set.empty }
reference :: forall m. Monad m => String -> BuilderT m Unit reference :: forall m. Monad m => String -> BuilderT m Unit
reference k = void $ modify (\s@{ refs } -> s { refs = Set.insert k refs }) reference k = void $ modify (\s@{ refs } -> s { refs = Set.insert k refs })
isReferenced :: forall m. Monad m => Array String -> BuilderT m Boolean
isReferenced ts = do
{ refs } <- get
pure $ any (flip elem ts) refs
param :: forall m a. Monad m => ToSQLValue a => a -> BuilderT m String param :: forall m a. Monad m => ToSQLValue a => a -> BuilderT m String
param p = param p =
do do