summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorbjorn <bjorn@bringert.net>2008-10-16 08:22:04 +0000
committerbjorn <bjorn@bringert.net>2008-10-16 08:22:04 +0000
commit5422eb54d972ebccaa97e58a5fb3d60ca59a9604 (patch)
tree62743b6484e270cbc1e4084b33a42785e54317d4
parent856c31a64b3e4e46645ace364101fb5cf148b41e (diff)
code tweak: use Map.findWithDefault in PGF.Macros.lookMap
-rw-r--r--src/PGF/Macros.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/PGF/Macros.hs b/src/PGF/Macros.hs
index 9218fcb8f..9b768cd5f 100644
--- a/src/PGF/Macros.hs
+++ b/src/PGF/Macros.hs
@@ -131,7 +131,7 @@ kks = K . KS
-- lookup with default value
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
combinations :: [[a]] -> [[a]]