summaryrefslogtreecommitdiff
path: root/DWProxy.hs
diff options
context:
space:
mode:
Diffstat (limited to 'DWProxy.hs')
-rw-r--r--DWProxy.hs4
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)