idris-lang/Idris2
1
1
Fork 0
mirror of https://github.com/idris-lang/Idris2.git synced 2024-12-24 20:23:11 +03:00
Code Issues Projects Releases Wiki Activity

[ regression ] revert to previous implementation of Show

Browse Source
This commit is contained in:
stefan-hoeck 2023-03-22 06:19:54 +01:00 committed by CodingCellist
parent 83f5ef27b6
commit bc1a51ea18
2 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
libs/base/Data/List/Quantifiers.idr
View File

@ -122,7 +122,12 @@ namespace All
export
All (Show . p) xs => Show (All p xs) where
show = show . forget . imapProperty (Show . p) show
show pxs = "[" ++ show' "" pxs ++ "]"
where
show' : String -> All (Show . p) xs' => All p xs' -> String
show' acc @{[]} [] = acc
show' acc @{[_]} [px] = acc ++ show px
show' acc @{_ :: _} (px :: pxs) = show' (acc ++ show px ++ ", ") pxs
export
All (Eq . p) xs => Eq (All p xs) where

7
libs/base/Data/Vect/Quantifiers.idr
View File

@ -136,7 +136,12 @@ namespace All
export
All (Show . p) xs => Show (All p xs) where
show = show . forget . imapProperty (Show . p) show
show pxs = "[" ++ show' "" pxs ++ "]"
where
show' : String -> All (Show . p) xs' => All p xs' -> String
show' acc @{[]} [] = acc
show' acc @{[_]} [px] = acc ++ show px
show' acc @{_ :: _} (px :: pxs) = show' (acc ++ show px ++ ", ") pxs
export
All (Eq . p) xs => Eq (All p xs) where