Refactor how automatic annotations are read

This commit is contained in:
Alexander Kobjolke 2022-03-08 23:07:42 +01:00
parent 4514d0f120
commit 9da29e683a
3 changed files with 12 additions and 6 deletions

4
src/Annotator/Util.hs Normal file
View file

@ -0,0 +1,4 @@
module Annotator.Util where
anyp :: [a -> Bool] -> a -> Bool
anyp preds x = or (map ($ x) preds)