Allow destination search by room ID

1 files changed, 2 insertions, 2 deletions

diff --git a/DWProxy.hs b/DWProxy.hs
index 5ff3cf7..10776c9 100644
--- a/DWProxy.hs
+++ b/DWProxy.hs
@@ -203,8 +203,8 @@ c2s c leftover = do
                 "select * from rooms where room_short like ? or room_id = ?"
                 ((T.concat ["%", f', "%"]), f')
               toRooms <- SQLite.query (dbConn c)
-                "select * from rooms where room_short like ?"
-                (SQLite.Only (concat ["%", t, "%"]))
+                "select * from rooms where room_short like ? or room_id = ?"
+                ((concat ["%", t, "%"]), t)
               let routes = sortOn (\(_, _, p) -> length p) $ rights
                     [ (\p -> (showRoom from, showRoom to, p)) <$>
                     findPath (cPF c) (roomID from) (roomID to)