diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2015-08-18 19:17:50 +0200 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2015-08-21 12:10:06 +0200 |
| commit | 0d0e651d789a9a1b62139a210f4b013fa5453cfa (patch) | |
| tree | c82ed8c39bfa7553c6951e69b912cf674b5e9f4f /compiler/utils/Bag.hs | |
| parent | a146b282fe9019ab0d3b0eea6c54dbe628ff5cc8 (diff) | |
| download | haskell-0d0e651d789a9a1b62139a210f4b013fa5453cfa.tar.gz | |
Bag: Add Foldable instance
Diffstat (limited to 'compiler/utils/Bag.hs')
| -rw-r--r-- | compiler/utils/Bag.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/compiler/utils/Bag.hs b/compiler/utils/Bag.hs index 8fbfa13ccc..09fc00acdc 100644 --- a/compiler/utils/Bag.hs +++ b/compiler/utils/Bag.hs @@ -29,6 +29,7 @@ import Util import MonadUtils import Data.Data import Data.List ( partition ) +import qualified Data.Foldable as Foldable infixr 3 `consBag` infixl 3 `snocBag` @@ -269,3 +270,6 @@ instance Data a => Data (Bag a) where gunfold _ _ = error "gunfold" dataTypeOf _ = mkNoRepType "Bag" dataCast1 x = gcast1 x + +instance Foldable.Foldable Bag where + foldr = foldrBag |