diff --git a/src/Database/Bolt/Extras/DSL/Internal/Instances.hs b/src/Database/Bolt/Extras/DSL/Internal/Instances.hs
index c408223..d1d31e6 100644
--- a/src/Database/Bolt/Extras/DSL/Internal/Instances.hs
+++ b/src/Database/Bolt/Extras/DSL/Internal/Instances.hs
@@ -122,6 +122,7 @@ instance ToCypher PathSelector where
 
 instance ToCypher Selector where
   toCypher (PS ps)  = toCypher ps
+  toCypher (PSwN (name, ps)) = name <> "=" <> toCypher ps   
   toCypher (TS txt) = txt
 
 instance ToCypher Selectors where
diff --git a/src/Database/Bolt/Extras/DSL/Internal/Types.hs b/src/Database/Bolt/Extras/DSL/Internal/Types.hs
index 24c961d..a130acc 100644
--- a/src/Database/Bolt/Extras/DSL/Internal/Types.hs
+++ b/src/Database/Bolt/Extras/DSL/Internal/Types.hs
@@ -118,6 +118,7 @@ infixl 1 <-:
 ns <-: pp = P ns :<-!: pp
 
 data Selector = PS PathSelector -- ^ path selector
+              | PSwN (Text, Selector) -- ^ named selector
               | TS Text         -- ^ free text selector
   deriving (Show, Eq)