Skip to content

Commit

Permalink
select
Browse files Browse the repository at this point in the history
  • Loading branch information
nalchevanidze committed Sep 1, 2024
1 parent 031222f commit 3ba26da
Showing 1 changed file with 0 additions and 1 deletion.
1 change: 0 additions & 1 deletion hconf/src/HConf/Utils/Core.hs
Original file line number Diff line number Diff line change
Expand Up @@ -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

Expand Down

0 comments on commit 3ba26da

Please sign in to comment.