From d28087da36aabe9a2e6474a70582aa9ad183c4c7 Mon Sep 17 00:00:00 2001
From: Denis Tereshkin <denis@kasan.ws>
Date: Wed, 5 Jan 2022 09:52:46 +0700
Subject: [PATCH] Support '*' wildcard character

---
 src/ATrade/MDS/HistoryServer.hs | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/ATrade/MDS/HistoryServer.hs b/src/ATrade/MDS/HistoryServer.hs
index 9cc859d..c452944 100644
--- a/src/ATrade/MDS/HistoryServer.hs
+++ b/src/ATrade/MDS/HistoryServer.hs
@@ -85,7 +85,10 @@ serveQHP db sock = forever $ do
 
     chunkSize = 4096
 
-    replaceWildcards = T.map (\x -> if x == '?' then '_' else x)
+    replaceWildcards = T.map mapWildcard
+    mapWildcard '?' = '_'
+    mapWildcard '*' = '%'
+    mapWildcard x   = x
 
 serveHAP :: (Sender a, Receiver a) => MdsHandle -> Socket a -> IO ()
 serveHAP db sock = forever $ do