version 0.0.0.10: fixed conditions (#18)

biocad · May 24, 2018 · 2cac761 · 2cac761
1 parent b7107c7
commit 2cac761
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 2 deletions.
diff --git 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
@@ -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
@@ -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