SQL: Don't list starting nodes in graph reachable set

src/Database/Persist/Sql/Graph/Reachable.hs

@@ -138,9 +138,10 @@ xreachable' follow filter initials mlen proxy = do
             , " ) SELECT DISTINCT ", temp ^* tid
             , " FROM ", dbname temp
             , " WHERE NOT ", temp ^* tcycle
+            , " AND array_length(", temp ^* tpath, ", 1) "
             , case mlen of
-                Nothing -> ""
-                Just _ -> " AND array_length(" <> temp ^* tpath <> ", 1) <= ?"
+                Nothing -> ">= 2"
+                Just _  -> "BETWEEN 2 AND ?"
             ]
         toP = fmap toPersistValue
         toPL = map toPersistValue