We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 04d5ff8 commit a9e8b5eCopy full SHA for a9e8b5e
src/Data/These.purs
@@ -136,13 +136,13 @@ theseRight (Both _ x) = Just x
136
theseRight (That x) = Just x
137
theseRight _ = Nothing
138
139
--- | Returns the `a` value iff the value is constructed with `This`.
+-- | Returns the `a` value if and only if the value is constructed with `This`.
140
this :: forall a b. These a b -> Maybe a
141
this = case _ of
142
This x -> Just x
143
_ -> Nothing
144
145
--- | Returns the `b` value iff the value is constructed with `That`.
+-- | Returns the `b` value if and only if the value is constructed with `That`.
146
that :: forall a b. These a b -> Maybe b
147
that = case _ of
148
That x -> Just x
0 commit comments