edwinb/Idris2-boot
1
1
Fork 0
mirror of https://github.com/edwinb/Idris2-boot.git synced 2024-11-27 10:41:08 +03:00
Code Issues Projects Releases Wiki Activity

Add Show for Either

Browse Source
This commit is contained in:
Edwin Brady 2020-05-17 14:51:27 +01:00
parent a302be38f4
commit 1acbf1b67e
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
libs/prelude/Prelude.idr
View File

@ -1404,6 +1404,11 @@ Show a => Show (Maybe a) where
showPrec d Nothing = "Nothing" showPrec d Nothing = "Nothing"
showPrec d (Just x) = showCon d "Just" (showArg x) showPrec d (Just x) = showCon d "Just" (showArg x)
export
(Show a, Show b) => Show (Either a b) where
showPrec d (Left x) = showCon d "Left" $ showArg x
showPrec d (Right x) = showCon d "Right" $ showArg x
-------- --------
-- IO -- -- IO --
-------- --------