From 23a139ec07919985c751adb10f98ba956e6cac19 Mon Sep 17 00:00:00 2001 From: bjorn Date: Thu, 16 Oct 2008 08:22:04 +0000 Subject: [PATCH] code tweak: use Map.findWithDefault in PGF.Macros.lookMap --- src/PGF/Macros.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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]]