remove test code

2026-07-30 15:38:56 +00:00 · 2024-06-21 12:40:10 +01:00
parent 1e062135b3
commit 494e8c9352
2 changed files with 1 additions and 6 deletions
@@ -26,11 +26,6 @@ instance Semigroup SString where
                | otherwise = go xs (P x:N y:ys)
            go (x:xs) acc = go xs (x:acc)

-concat' [] [] = []
-concat' [] ys = ys
-concat' xs [] = xs
-concat' (x:xs) ys = x:concat' xs ys
-
 instance Monoid SString where
    mempty = SString []