packages feed

hasbolt-extras 0.0.2.0 → 0.0.2.1

raw patch · 4 files changed

+11/−4 lines, 4 filesPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

API changes (from Hackage documentation)

- Database.Bolt.Extras.Graph: relations :: forall n_agaF a_agaG b_agaH b_agBG. Lens (Graph n_agaF a_agaG b_agaH) (Graph n_agaF a_agaG b_agBG) (Map (n_agaF, n_agaF) b_agaH) (Map (n_agaF, n_agaF) b_agBG)
+ Database.Bolt.Extras.Graph: relations :: forall n_agdL a_agdM b_agdN b_agEP. Lens (Graph n_agdL a_agdM b_agdN) (Graph n_agdL a_agdM b_agEP) (Map (n_agdL, n_agdL) b_agdN) (Map (n_agdL, n_agdL) b_agEP)
- Database.Bolt.Extras.Graph: vertices :: forall n_agaF a_agaG b_agaH a_agBH. Lens (Graph n_agaF a_agaG b_agaH) (Graph n_agaF a_agBH b_agaH) (Map n_agaF a_agaG) (Map n_agaF a_agBH)
+ Database.Bolt.Extras.Graph: vertices :: forall n_agdL a_agdM b_agdN a_agEQ. Lens (Graph n_agdL a_agdM b_agdN) (Graph n_agdL a_agEQ b_agdN) (Map n_agdL a_agdM) (Map n_agdL a_agEQ)

Files

CHANGELOG.md view
@@ -6,6 +6,9 @@  ## [Unreleased] +## [0.0.2.1] - 2023-01-24+### Added+- Add newline for Cyper queries. ## [0.0.2.0] - 2023-01-24 ### Added - `BoltGeneric` wrapper for `DerivingVia` to derive `IsValue` and `RecordValue` for Haskell types.
hasbolt-extras.cabal view
@@ -1,5 +1,5 @@ name:           hasbolt-extras-version:        0.0.2.0+version:        0.0.2.1 synopsis:       Extras for hasbolt library description:    Extras for hasbolt library homepage:       https://github.com/biocad/hasbolt-extras#readme
src/Database/Bolt/Extras/DSL/Internal/Executer.hs view
@@ -35,12 +35,12 @@ -- | Helper to translate 'Expr' with something, which can be translated to cypher. -- executeHelperC :: ToCypher a => Text -> a -> b -> Writer [Text] b-executeHelperC txt s n = tell [txt <> toCypher s] >> pure n+executeHelperC txt s n = tell [txt <> toCypher s <> "\n"] >> pure n  -- | Helper to translate 'Expr' with 'Text's. -- executeHelperT :: Text -> [Text] -> b -> Writer [Text] b-executeHelperT txt t n = tell [txt <> intercalate ", " t] >> pure n+executeHelperT txt t n = tell [txt <> intercalate ", " t <> "\n"] >> pure n  formQueryW :: Free Expr () -> Writer [Text] () formQueryW = foldFree execute
src/Database/Bolt/Extras/DSL/Typed.hs view
@@ -154,7 +154,11 @@      ]    returnF ["lib"] :}-MERGE (name:Name{name:"CT42"}) MERGE (user:User{user:"123-456"}) CREATE (lib:BinderLibrary:Library), (name)-[:NAME_OF]->(lib), (user)-[:USER_CREATED{timestamp:1572340394000}]->(lib) RETURN lib+MERGE (name:Name{name:"CT42"})+ MERGE (user:User{user:"123-456"})+ CREATE (lib:BinderLibrary:Library), (name)-[:NAME_OF]->(lib), (user)-[:USER_CREATED{timestamp:1572340394000}]->(lib)+ RETURN lib+...  ==== Dropping types