Snippet saved on:
10/14/2023, 9:55:48 AM (raw)
10/14/2023, 9:55:48 AM (raw)
LANGUAGE
importControl.Lens
test3s = [Left (1::Int), Left (2::Int),Right 3]
test3_3::MaybeEitherIntInt
test3_3 =
case preview (_head . _Left) test3s of
Just _ -> Just (set (_head . _Left) 200 test3s)
Nothing -> Nothing
main = print test3_3
GHC output
Errors
Output