Merge branch 'main' of gitlab.laihua.com:linshizhi/monitor

src/Lib.hs

@@ -36,8 +36,8 @@ monitorUrls = [
   defaultMI "http://69.234.216.199:5001/ppt2newdraft"
   ]
 
-buildCMD :: WebHook -> Msg -> String
-buildCMD wh msg =
+cmdFactory :: WebHook -> Msg -> String
+cmdFactory wh msg =
   "curl " ++ wh ++
   " -H 'Content-Type: application/json'"  ++
   " -d '" ++
@@ -74,8 +74,8 @@ onFailure mi = do
 
       connected <- checkServerConn
       let cmd = if connected
-            then buildCMD webHook ("Fail to access api " ++ url mi)
-            else buildCMD webHook "Server (69.234.216.199) down"
+            then cmdFactory webHook ("Fail to access api " ++ url mi)
+            else cmdFactory webHook "Server (69.234.216.199) down"
 
       current <- getCurrentTime
             -- FIXME: system may failed need to check it's return code
@@ -86,7 +86,7 @@ onSuccess mi = do
   current <- getCurrentTime
 
   if not $ status mi
-    then do let cmd = buildCMD webHook ("Api has recovered: " ++ url mi)
+    then do let cmd = cmdFactory webHook ("Api has recovered: " ++ url mi)
             system cmd >> return (MI (url mi) True current)
     else return mi