cosmetic: switch from `fmap` to <$>
commit9ebce901a51bf0e05d68d083c8b9a00ce539a842
authorEvan Czaplicki <evancz@users.noreply.github.com>
dateFri 5 Aug 2016, 16:54 (10 years ago)
parentaae0428
src/Canonicalize/Variable.hs+2−2
@@ -59,7 +59,7 @@ variable region env var =
5959 logVar (Var.Canonical (Var.Module moduleName) varName)
6060
6161 _ ->
62− case Set.toList `fmap` Map.lookup var (Env._values env) of
62+ case Set.toList <$> Map.lookup var (Env._values env) of
6363 Just [v] ->
6464 logVar v
6565
@@ -104,7 +104,7 @@ pvar
104104 -> Int
105105 -> Result Var.Canonical
106106pvar region env var actualArgs =
107− case Set.toList `fmap` Map.lookup var (Env._patterns env) of
107+ case Set.toList <$> Map.lookup var (Env._patterns env) of
108108 Just [value] ->
109109 foundArgCheck value
110110