hasbolt 0.1.6.2 → 0.1.6.3
raw patch · 2 files changed
+14/−10 lines, 2 filesPVP ok
version bump matches the API change (PVP)
API changes (from Hackage documentation)
Files
- hasbolt.cabal +8/−6
- src/Database/Bolt/Record.hs +6/−4
hasbolt.cabal view
@@ -1,5 +1,5 @@ name: hasbolt-version: 0.1.6.2+version: 0.1.6.3 synopsis: Haskell driver for Neo4j 3+ (BOLT protocol) description: Haskell driver for Neo4j 3+ (BOLT protocol).@@ -39,7 +39,9 @@ || ==8.8.4 || ==8.10.7 || ==9.0.2- || ==9.2.2+ || ==9.2.8+ || ==9.4.5+ || ==9.6.2 library hs-source-dirs: src@@ -59,11 +61,11 @@ , Database.Bolt.Transaction build-depends: base >= 4.7 && < 5 , bytestring >= 0.10.8.1 && < 0.12- , text >= 1.2.2.1 && < 1.3+ , text >= 1.2.2.1 && < 2.1 , containers >= 0.5.7.1 && < 0.7 , binary >= 0.8.3.0 && < 1.0 , data-binary-ieee754 >= 0.4.4 && < 0.5- , mtl >= 2.2.0 && < 2.3+ , mtl >= 2.2.0 && < 2.4 , network >= 2.6.3.1 && < 3.2 , connection >= 0.2.8 && < 0.4 , data-default >= 0.7.1.1 && < 0.8@@ -96,7 +98,7 @@ other-modules: Hex build-depends: base >= 4.7 && < 5 , hasbolt- , hspec >= 2.4.1 && < 2.9+ , hspec >= 2.4.1 && < 2.11 , QuickCheck >= 2.9 && < 2.15 , text , containers@@ -116,7 +118,7 @@ , criterion , data-default , hasbolt- , hspec >= 2.4.1 && < 2.9+ , hspec >= 2.4.1 && < 2.11 ghc-options: -threaded -rtsopts -eventlog default-language: Haskell2010
src/Database/Bolt/Record.hs view
@@ -12,6 +12,7 @@ import Data.Map.Strict (Map) import qualified Data.Map.Strict as M (lookup) import Data.Text (Text)+import GHC.Float (int2Double) -- |Result type for query requests type Record = Map Text Value@@ -28,7 +29,7 @@ instance RecordValue () where exactEither (N _) = pure ()- exactEither _ = throwError NotNull + exactEither _ = throwError NotNull instance RecordValue Bool where exactEither (B b) = pure b@@ -40,6 +41,7 @@ instance RecordValue Double where exactEither (F d) = pure d+ exactEither (I i) = pure $ int2Double i exactEither _ = throwError NotFloat instance RecordValue Text where@@ -51,7 +53,7 @@ instance RecordValue a => RecordValue [a] where exactEither (L l) = traverse exactEither l- exactEither _ = throwError NotList + exactEither _ = throwError NotList instance RecordValue a => RecordValue (Maybe a) where exactEither (N _) = pure Nothing@@ -63,7 +65,7 @@ instance RecordValue Node where exactEither (S s) = fromStructure s- exactEither _ = throwError $ Not "Node" + exactEither _ = throwError $ Not "Node" instance RecordValue Relationship where exactEither (S s) = fromStructure s@@ -71,7 +73,7 @@ instance RecordValue URelationship where exactEither (S s) = fromStructure s- exactEither _ = throwError $ Not "URelationship" + exactEither _ = throwError $ Not "URelationship" instance RecordValue Path where exactEither (S s) = fromStructure s