github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-20 05:11:44 +03:00
Code Issues Projects Releases Wiki Activity

Derive an Ord instance for OrderedMap.

Browse Source
This commit is contained in:
Rob Rix 2016-06-29 11:23:06 -04:00
parent bd11e9e0ee
commit 4c3c85bf87
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Data/OrderedMap.hs
View File

@ -18,7 +18,7 @@ import Prologue hiding (toList, empty)
-- | An ordered map of keys and values.
newtype OrderedMap key value = OrderedMap { toList :: [(key, value)] }
deriving (Show, Eq, Functor, Foldable, Traversable)
deriving (Eq, Foldable, Functor, Ord, Show, Traversable)
-- | Construct an ordered map from a list of pairs of keys and values.
fromList :: [(key, value)] -> OrderedMap key value