msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

code tweak: use Map.findWithDefault in PGF.Macros.lookMap

Browse Source
This commit is contained in:
bjorn
2008-10-16 08:22:04 +00:00
parent 856c31a64b
commit 5422eb54d9
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/PGF/Macros.hs
View File

@@ -131,7 +131,7 @@ kks = K . KS
-- lookup with default value -- lookup with default value
lookMap :: (Show i, Ord i) => a -> i -> Map.Map i a -> a lookMap :: (Show i, Ord i) => a -> i -> Map.Map i a -> a
lookMap d c m = fromMaybe d $ Map.lookup c m lookMap d c m = Map.findWithDefault d c m
--- from Operations --- from Operations
combinations :: [[a]] -> [[a]] combinations :: [[a]] -> [[a]]