removing warnings

kazu-yamamoto · Dec 18, 2024 · 0d7ac07 · 0d7ac07
1 parent 431d166
commit 0d7ac07
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/tls/util/Common.hs b/tls/util/Common.hs
@@ -125,9 +125,9 @@ printGroups = do
 split :: Char -> String -> [String]
 split _ "" = []
 split c s = case break (c ==) s of
-    ("", r) -> split c (tail r)
+    ("", _ : rs) -> split c rs
     (s', "") -> [s']
-    (s', r) -> s' : split c (tail r)
+    (s', _ : rs) -> s' : split c rs
 
 getCertificateStore :: [FilePath] -> IO CertificateStore
 getCertificateStore [] = getSystemCertificateStore