Unified · Split
| @@ -1404,6 +1404,11 @@ Show a => Show (Maybe a) where · 1403 unmodified lines | |||
| 1404 | showPrec d Nothing = "Nothing" | 1404 | showPrec d Nothing = "Nothing" |
| 1405 | showPrec d (Just x) = showCon d "Just" (showArg x) | 1405 | showPrec d (Just x) = showCon d "Just" (showArg x) |
| 1406 | 1406 | ||
| 1407 | export | ||
| 1408 | (Show a, Show b) => Show (Either a b) where | ||
| 1409 | showPrec d (Left x) = showCon d "Left" $ showArg x | ||
| 1410 | showPrec d (Right x) = showCon d "Right" $ showArg x | ||
| 1411 | |||
| 1407 | -------- | 1412 | -------- |
| 1408 | -- IO -- | 1413 | -- IO -- |
| 1409 | -------- | 1414 | -------- |