just :: Prism (Maybe a) (Maybe b) a b
>>> Just 1 `shouldSatisfy` P.just (P.gt 0)
> just zero Just 0 :: Maybe Int > just false Just False :: Maybe Bool
>>> accept (just (eq "value")) Nothing False >>> accept (just (eq "value")) (Just "value") True >>> accept (just (eq "value")) (Just "wrong value") False