From 3ba26da21bb7b4d19577643735f367f738d7db22 Mon Sep 17 00:00:00 2001 From: David Nalchevanidze Date: Sun, 1 Sep 2024 15:25:30 +0200 Subject: [PATCH] select --- hconf/src/HConf/Utils/Core.hs | 1 - 1 file changed, 1 deletion(-) diff --git a/hconf/src/HConf/Utils/Core.hs b/hconf/src/HConf/Utils/Core.hs index 26b8e9d..c0ca89d 100644 --- a/hconf/src/HConf/Utils/Core.hs +++ b/hconf/src/HConf/Utils/Core.hs @@ -218,7 +218,6 @@ maybeBool = fromMaybe False getField :: (MonadFail m) => Name -> Map Name a -> m a getField = select "Field" - select :: (MonadFail m, Msg t, Ord t) => ErrorMsg -> t -> Map t a -> m a select e k = maybeToError ("Unknown " <> e <> ": " <> msg k <> "!") . lookup k