Tissevert/Hufflepdf
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

Add a Traversable instance for IdMap, needed in reveal and useful in general to be able to use atAll

Browse source
This commit is contained in:
Tissevert 2020-03-17 15:25:12 +01:00
parent ba7dd6a690
commit e94a09b3ec
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/Data/Id.hs
View file

@ -1,4 +1,5 @@
{-# LANGUAGE GeneralizedNewtypeDeriving #-} {-# LANGUAGE GeneralizedNewtypeDeriving #-}
{-# LANGUAGE DeriveTraversable #-}
{-# LANGUAGE FlexibleContexts #-} {-# LANGUAGE FlexibleContexts #-}
module Data.Id ( module Data.Id (
Id(..) Id(..)
@ -34,7 +35,7 @@ newtype Id a = Id {
} deriving (Eq, Enum, Ord, Show) } deriving (Eq, Enum, Ord, Show)
newtype IdMap a b = IdMap { newtype IdMap a b = IdMap {
intMap :: IntMap b intMap :: IntMap b
} deriving (Show, Functor, Semigroup, Monoid, Foldable) } deriving (Show, Functor, Semigroup, Monoid, Foldable, Traversable)
type Indexed a = IdMap a a type Indexed a = IdMap a a
at :: IdMap a b -> Id a -> b at :: IdMap a b -> Id a -> b