diff --git a/CHANGELOG.md b/CHANGELOG.md index 79918a8..3c26f0b 100644 --- a/CHANGELOG.md +++ b/CHANGELOG.md @@ -6,6 +6,10 @@ and this project adheres to [Semantic Versioning](http://semver.org/spec/v2.0.0. ## [Unreleased] +## [0.0.0.10] - 2018-05-24 +### Changed +- Fixed conditions. + ## [0.0.0.9] - 2018-05-18 ### Added - New types for conditions in `DSL`. diff --git a/hasbolt-extras.cabal b/hasbolt-extras.cabal index f217b00..1064f8a 100644 --- a/hasbolt-extras.cabal +++ b/hasbolt-extras.cabal @@ -1,5 +1,5 @@ name: hasbolt-extras -version: 0.0.0.9 +version: 0.0.0.10 synopsis: Extras for hasbolt library description: Extras for hasbolt library homepage: https://github.com/biocad/hasbolt-extras#readme diff --git a/src/Database/Bolt/Extras/DSL/Internal/Instances.hs b/src/Database/Bolt/Extras/DSL/Internal/Instances.hs index 2ce3d7f..e4811e9 100644 --- a/src/Database/Bolt/Extras/DSL/Internal/Instances.hs +++ b/src/Database/Bolt/Extras/DSL/Internal/Instances.hs @@ -91,7 +91,7 @@ instance ToCypher Selectors where instance ToCypher Cond where toCypher (ID t bId) = pack $ printf "ID(%s)=%d" t (fromInt bId) toCypher (IDs t bIds) = pack $ printf "ID(%s) in [%s]" t (intercalate ", " $ fmap (pack . show) bIds) - toCypher (IN t txts) = pack $ printf "ID(%s) in [%s]" t (intercalate ", " $ fmap (\s -> [text|"$s"|]) txts) + toCypher (IN t txts) = pack $ printf "%s in [%s]" t (intercalate ", " $ fmap (\s -> [text|"$s"|]) txts) toCypher (TC txt) = txt instance ToCypher Conds where