diff options
Diffstat (limited to 'users/Profpatsch/whatcd-resolver/src/ValidationParseT.hs')
-rw-r--r-- | users/Profpatsch/whatcd-resolver/src/ValidationParseT.hs | 16 |
1 files changed, 0 insertions, 16 deletions
diff --git a/users/Profpatsch/whatcd-resolver/src/ValidationParseT.hs b/users/Profpatsch/whatcd-resolver/src/ValidationParseT.hs deleted file mode 100644 index 593b7ebf3918..000000000000 --- a/users/Profpatsch/whatcd-resolver/src/ValidationParseT.hs +++ /dev/null @@ -1,16 +0,0 @@ -module ValidationParseT where - -import Control.Selective (Selective) -import Data.Functor.Compose (Compose (..)) -import PossehlAnalyticsPrelude - --- | A simple way to create an Applicative parser that parses from some environment. --- --- Use with DerivingVia. Grep codebase for examples. -newtype ValidationParseT env m a = ValidationParseT {unValidationParseT :: env -> m (Validation (NonEmpty Error) a)} - deriving - (Functor, Applicative, Selective) - via ( Compose - ((->) env) - (Compose m (Validation (NonEmpty Error))) - ) |