diff options
| author | Profpatsch <mail@profpatsch.de> | 2023-06-29T11·18+0200 |
|---|---|---|
| committer | Profpatsch <mail@profpatsch.de> | 2023-07-14T08·03+0000 |
| commit | 68a9037d179b02f4736d088510721686d5798f81 (patch) | |
| tree | f3ef687128ecc11c81c64f7fd04170a73932a10b /users/Profpatsch/whatcd-resolver/src/ValidationParseT.hs | |
| parent | 5cfdd259df88bc8ecc739b76c68943c7a45f5389 (diff) | |
feat(users/Profpatsch/whatcd-resolver): Add server-side search r/6417
Change-Id: Ifbbe3bca6988b0a090f456ae8d9dbaa808c89e19 Reviewed-on: https://cl.tvl.fyi/c/depot/+/8867 Tested-by: BuildkiteCI Reviewed-by: Profpatsch <mail@profpatsch.de>
Diffstat (limited to 'users/Profpatsch/whatcd-resolver/src/ValidationParseT.hs')
| -rw-r--r-- | users/Profpatsch/whatcd-resolver/src/ValidationParseT.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/users/Profpatsch/whatcd-resolver/src/ValidationParseT.hs b/users/Profpatsch/whatcd-resolver/src/ValidationParseT.hs index 62322a0ac0bc..593b7ebf3918 100644 --- a/users/Profpatsch/whatcd-resolver/src/ValidationParseT.hs +++ b/users/Profpatsch/whatcd-resolver/src/ValidationParseT.hs @@ -1,5 +1,6 @@ module ValidationParseT where +import Control.Selective (Selective) import Data.Functor.Compose (Compose (..)) import PossehlAnalyticsPrelude @@ -8,7 +9,7 @@ import PossehlAnalyticsPrelude -- Use with DerivingVia. Grep codebase for examples. newtype ValidationParseT env m a = ValidationParseT {unValidationParseT :: env -> m (Validation (NonEmpty Error) a)} deriving - (Functor, Applicative) + (Functor, Applicative, Selective) via ( Compose ((->) env) (Compose m (Validation (NonEmpty Error))) |