about summary refs log tree commit diff
path: root/users/Profpatsch/whatcd-resolver/src/ValidationParseT.hs
diff options
context:
space:
mode:
Diffstat (limited to 'users/Profpatsch/whatcd-resolver/src/ValidationParseT.hs')
-rw-r--r--users/Profpatsch/whatcd-resolver/src/ValidationParseT.hs3
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)))