From 494e8c93528edef2fb3fcbeede245f5fe1769231 Mon Sep 17 00:00:00 2001 From: osmarks Date: Fri, 21 Jun 2024 12:40:10 +0100 Subject: [PATCH] remove test code --- README.md | 2 +- StringGroup.hs | 5 ----- 2 files changed, 1 insertion(+), 6 deletions(-) diff --git a/README.md b/README.md index fc47e16..339805d 100644 --- a/README.md +++ b/README.md @@ -58,4 +58,4 @@ This comes with absolutely no guarantee of support or correct function, although * `nn.sql` - half an RNN in SQLite, unfinished because it *apparently* can't do recursive common table expressions. * `alexandergriffing_spite.py` - spites sometime by doing bad numerics in Python. * `screensaver.html` - an attempt to replicate one of Apple's screensavers (incomplete). -* `StringGroup.hs` - native Haskell strings are only a monoid, so I improved them to be a group instead. \ No newline at end of file +* `StringGroup.hs` - native Haskell strings are only a monoid, so I made an improved version which forms a group instead. \ No newline at end of file diff --git a/StringGroup.hs b/StringGroup.hs index 93ec228..97fc178 100644 --- a/StringGroup.hs +++ b/StringGroup.hs @@ -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 []