diff --git a/lib/mobility-core/src/Kernel/Storage/Clickhouse/Config.hs b/lib/mobility-core/src/Kernel/Storage/Clickhouse/Config.hs index 80d236114..6ec54f228 100644 --- a/lib/mobility-core/src/Kernel/Storage/Clickhouse/Config.hs +++ b/lib/mobility-core/src/Kernel/Storage/Clickhouse/Config.hs @@ -5,7 +5,6 @@ import Data.String.Conversions import Data.Text as T import Data.Word (Word16) import qualified Database.ClickHouseDriver.HTTP as CH -import Debug.Trace as DB import Kernel.Prelude import Kernel.Types.Common import Kernel.Utils.Dhall (FromDhall) @@ -31,7 +30,7 @@ createConn :: ClickhouseCfg -> IO ClickhouseEnv createConn ClickhouseCfg {..} = ClickhouseEnv <$> CH.httpConnectDb - (if T.null database then DB.traceShowId Nothing else DB.traceShowId $ Just (cs database)) + (if T.null database then Nothing else Just (cs database)) (cs username) (cs password) (fromIntegral port) diff --git a/lib/mobility-core/src/Kernel/Utils/Servant/Client.hs b/lib/mobility-core/src/Kernel/Utils/Servant/Client.hs index 77416f759..c370a8eb4 100644 --- a/lib/mobility-core/src/Kernel/Utils/Servant/Client.hs +++ b/lib/mobility-core/src/Kernel/Utils/Servant/Client.hs @@ -20,7 +20,6 @@ module Kernel.Utils.Servant.Client where import qualified Data.Aeson as A import qualified Data.Map.Strict as Map import qualified Data.Text as T -import qualified Debug.Trace as DB import qualified EulerHS.Language as L import EulerHS.Prelude hiding (id, notElem) import qualified EulerHS.Types as ET @@ -108,11 +107,11 @@ callAPI' mbManagerSelector baseUrl eulerClient desc api = return res where buildSanitizedUrl = do - let url = T.split (== '/') $ T.pack (baseUrlPath $ DB.traceShowId baseUrl) + let url = T.split (== '/') $ T.pack (baseUrlPath baseUrl) urlPath = if listToMaybe url == Just "" then drop 1 url else url let req = Wai.defaultRequest - baseRequest = DB.traceShowId $ req {Wai.pathInfo = DB.traceShowId urlPath} - fromMaybe (removeUUID $ showBaseUrlText baseUrl) (DB.traceShowId $ getSanitizedUrl api baseRequest) + baseRequest = req {Wai.pathInfo = urlPath} + fromMaybe (removeUUID $ showBaseUrlText baseUrl) (getSanitizedUrl api baseRequest) removeUUID url = T.pack $ TR.subRegex (TR.mkRegex "[0-9a-z]{8}-([0-9a-z]{4}-){3}[0-9a-z]{12}") (T.unpack url) ":id"