refactor: generalize join to Monoid

arkeros · Dec 24, 2024 · 1d7ddee · 1d7ddee
1 parent 56b9d3c
commit 1d7ddee
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/23/Main.hs b/23/Main.hs
@@ -29,7 +29,7 @@ inputP = edge `sepBy` newline
 (∈) :: (Ord a) => a -> Set a -> Bool
 (∈) = Set.member
 
-join :: (Foldable t) => String -> t String -> String
+join :: (Foldable t, Monoid a) => a -> t a -> a
 join sep = foldr1 (\a b -> a <> sep <> b)
 
 solve :: Input -> (Int, String)