diff options
Diffstat (limited to 'utils/ghc-pkg')
| -rw-r--r-- | utils/ghc-pkg/Main.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/utils/ghc-pkg/Main.hs b/utils/ghc-pkg/Main.hs index 4bc603459a..13e6d6f9c0 100644 --- a/utils/ghc-pkg/Main.hs +++ b/utils/ghc-pkg/Main.hs @@ -1515,11 +1515,11 @@ instance Functor Validate where fmap = liftM instance Applicative Validate where - pure = return + pure a = V $ pure (a, [], []) (<*>) = ap instance Monad Validate where - return a = V $ return (a, [], []) + return = pure m >>= k = V $ do (a, es, ws) <- runValidate m (b, es', ws') <- runValidate (k a) |