From bc641331a060a8bd4941b1854a08a97b3700fe6c Mon Sep 17 00:00:00 2001 From: Josh Rahm Date: Tue, 2 Nov 2021 00:53:16 -0600 Subject: Changed how titles are parsed. --- src/Main.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'src') diff --git a/src/Main.hs b/src/Main.hs index 7e1cc68..195c151 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -92,5 +92,6 @@ main = do splitOnAll arr str = splitOnAll' arr [str] splitOnAll' [] str = str - splitOnAll' (a:as) str = splitOnAll' as (concatMap (splitOn a) str) + splitOnAll' (a:as) [str] = splitOnAll' as (splitOn a str) + splitOnAll' _ lst = lst -- cgit