haskell-neo4j-client 0.3.1.1 → 0.3.1.2

raw patch · 5 files changed

+9/−7 lines, 5 filesdep ~basePVP ok

version bump matches the API change (PVP)

Dependency ranges changed: base

API changes (from Hackage documentation)

Files

• haskell-neo4j-client.cabal +3/−3
• src/Database/Neo4j/Batch/Label.hs +2/−2
• src/Database/Neo4j/Batch/Relationship.hs +1/−1
• src/Database/Neo4j/Traversal.hs +2/−0
• src/Database/Neo4j/Types.hs +1/−1

@@ -1,5 +1,5 @@ name:                haskell-neo4j-client-version:             0.3.1.1+version:             0.3.1.2 synopsis:            A Haskell neo4j client description:              Library to interact with Neo4j databases. @@ -37,7 +37,7 @@      Type:           exitcode-stdio-1.0      Hs-Source-Dirs: src, tests      Main-is:        IntegrationTests.hs-     Build-Depends:  base                        >= 4.6        && < 4.8+     Build-Depends:  base                        >= 4.6        && < 4.9                    , bytestring                  == 0.10.*                    , test-framework              == 0.8.*                    , test-framework-quickcheck2  == 0.3.*@@ -72,7 +72,7 @@                        Database.Neo4j.Property, Database.Neo4j.Label, Database.Neo4j.Index, Database.Neo4j.Batch.Node,                        Database.Neo4j.Batch.Relationship, Database.Neo4j.Batch.Property,                        Database.Neo4j.Batch.Label, Database.Neo4j.Batch.Types-  build-depends:       base                  >= 4.6        && < 4.8+  build-depends:       base                  >= 4.6        && < 4.9                      , containers            == 0.5.*                      , text                  >= 1.1        && < 1.3                      , http-conduit          == 2.1.*

@@ -38,7 +38,7 @@           propUrl Nothing = ""           propUrl (Just (name, value)) = '?' : urlEncodeVars [(T.unpack name, lbsToStr $ J.encode value)]           lbsToStr = S.unpack . L.toStrict-          parser jn g = foldl (\gacc n -> G.addNodeLabel n lbl (G.addNode n gacc)) g (tryParseBody jn)+          parser jn g = foldl (\gacc n -> G.addNodeLabel n lbl (G.addNode n gacc)) g (tryParseBody jn :: [Node])  -- | Add labels to a node -- | Raises Neo4jNoEntityException if the node doesn't exist@@ -46,7 +46,7 @@ addLabels lbls n = nextState cmd     where cmd = defCmd{cmdMethod = HT.methodPost, cmdPath = path, cmdBody = J.toJSON lbls, cmdParse = parser}           path = getNodeBatchId n <> "/labels"-          parser jn g = let from = parseLabelsPath jn "/labels" in foldl (flip (G.addNodeLabel from)) g lbls+          parser jn g = let from = parseLabelsPath jn "/labels" in foldl (flip (G.addNodeLabel from)) g (lbls :: [Label])  -- | Change node labels -- | Raises Neo4jNoEntityException if the node doesn't exist

@@ -80,7 +80,7 @@ getRelationships n dir types = nextState cmd     where cmd = defCmd{cmdMethod = HT.methodGet, cmdPath = path, cmdBody = "", cmdParse = parser}           path = getNodeBatchId n <> "/relationships/" <> dirStr dir <> filterStr types-          parser jr g = foldl (flip G.addRelationship) g (tryParseBody jr)+          parser jr g = foldl (flip G.addRelationship) g (tryParseBody jr :: [Relationship])           dirStr Outgoing = "out"           dirStr Incoming = "in"           dirStr Any = "all"

@@ -22,6 +22,8 @@  import Data.Default +import Prelude hiding (traverse)+ import Control.Applicative import Control.Exception.Base (throw, catch) import Control.Monad (mzero)

@@ -340,7 +340,7 @@     (<*>) = ap  instance MonadIO Neo4j where-	liftIO f = Neo4j $ const (liftIO f)+    liftIO f = Neo4j $ const (liftIO f)  instance MonadThrow Neo4j where     throwM e = Neo4j $ const (throw e)