From 6e004613855a332364e21b2c5616b6752002458a Mon Sep 17 00:00:00 2001 From: Tom Smeding Date: Mon, 12 May 2025 17:49:50 +0200 Subject: Show Bag --- src/Data/Bag.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Data/Bag.hs') diff --git a/src/Data/Bag.hs b/src/Data/Bag.hs index 84c770a..b424857 100644 --- a/src/Data/Bag.hs +++ b/src/Data/Bag.hs @@ -4,7 +4,7 @@ module Data.Bag where -- | An ordered sequence that can be folded over. data Bag a = BZero | BOne a | BTwo (Bag a) (Bag a) | BList [Bag a] - deriving (Functor, Foldable, Traversable) + deriving (Show, Functor, Foldable, Traversable) -- Really only here for 'pure' instance Applicative Bag where -- cgit v1.2.3-70-g09d2