packages feed

hasbolt-extras 0.0.1.6 → 0.0.1.7

raw patch · 3 files changed

+10/−6 lines, 3 filesnew-uploaderPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

API changes (from Hackage documentation)

- Database.Bolt.Extras.DSL.Typed: collectParams :: QueryWithParams params m fun => CypherDSL () -> [(Text, Value)] -> fun
+ Database.Bolt.Extras.DSL.Typed: collectParams :: (QueryWithParams params m fun, HasCallStack) => CypherDSL () -> [(Text, Value)] -> fun
- Database.Bolt.Extras.DSL.Typed: queryWithParams :: forall params m fun. MonadIO m => QueryWithParams params m fun => CypherDSLParams params () -> fun
+ Database.Bolt.Extras.DSL.Typed: queryWithParams :: forall params m fun. MonadIO m => QueryWithParams params m fun => HasCallStack => CypherDSLParams params () -> fun
- Database.Bolt.Extras.Graph: relations :: forall n_aa9V a_aa9W b_aa9X b_adZ2. Lens (Graph n_aa9V a_aa9W b_aa9X) (Graph n_aa9V a_aa9W b_adZ2) (Map (n_aa9V, n_aa9V) b_aa9X) (Map (n_aa9V, n_aa9V) b_adZ2)
+ Database.Bolt.Extras.Graph: relations :: forall n_aadK a_aadL b_aadM b_ae40. Lens (Graph n_aadK a_aadL b_aadM) (Graph n_aadK a_aadL b_ae40) (Map (n_aadK, n_aadK) b_aadM) (Map (n_aadK, n_aadK) b_ae40)
- Database.Bolt.Extras.Graph: vertices :: forall n_aa9V a_aa9W b_aa9X a_adZ3. Lens (Graph n_aa9V a_aa9W b_aa9X) (Graph n_aa9V a_adZ3 b_aa9X) (Map n_aa9V a_aa9W) (Map n_aa9V a_adZ3)
+ Database.Bolt.Extras.Graph: vertices :: forall n_aadK a_aadL b_aadM a_ae41. Lens (Graph n_aadK a_aadL b_aadM) (Graph n_aadK a_ae41 b_aadM) (Map n_aadK a_aadL) (Map n_aadK a_ae41)

Files

CHANGELOG.md view
@@ -6,6 +6,10 @@  ## [Unreleased] +## [0.0.1.7] - 2021-04-28+### Changed+- Add more `HasCallStack`.+ ## [0.0.1.6] - 2020-12-26 ### Fixed - Fix `makeNodeLike` for `Maybe` fields, bug introduced in previous version.
hasbolt-extras.cabal view
@@ -1,5 +1,5 @@ name:           hasbolt-extras-version:        0.0.1.6+version:        0.0.1.7 synopsis:       Extras for hasbolt library description:    Extras for hasbolt library homepage:       https://github.com/biocad/hasbolt-extras#readme
src/Database/Bolt/Extras/DSL/Typed/Parameters.hs view
@@ -15,10 +15,9 @@ import           Data.Kind                                  (Type) import qualified Data.Map.Strict                            as Map import           Data.Text                                  (Text, pack)-import           Database.Bolt                              (BoltActionT,-                                                             IsValue (..),-                                                             Record, Value,-                                                             queryP)+import           Database.Bolt                              (BoltActionT, IsValue (..), Record,+                                                             Value, queryP)+import           GHC.Stack                                  (HasCallStack, withFrozenCallStack) import           GHC.TypeLits                               (Symbol)  import           Database.Bolt.Extras.DSL.Internal.Executer (formQuery)@@ -53,7 +52,7 @@ -- This should be considered an implementation detail. class QueryWithParams (params :: [(Symbol, Type)]) (m :: Type -> Type) fun | params m -> fun where   -- | Internal function that accumulates parameters from type-level list.-  collectParams :: CypherDSL () -> [(Text, Value)] -> fun+  collectParams :: HasCallStack => CypherDSL () -> [(Text, Value)] -> fun  -- | Base case: if there are no parameters, perform query with 'queryP'. instance MonadIO m => QueryWithParams '[] m (BoltActionT m [Record]) where@@ -95,6 +94,7 @@   :: forall params m fun   .  MonadIO m   => QueryWithParams params m fun+  => HasCallStack   => CypherDSLParams params ()   -> fun queryWithParams (CypherDSLParams dsl) = collectParams @params @m dsl []