fix: show uses toString

This commit is contained in:
orion 2023-12-16 14:36:15 -06:00
parent 01f844b2d2
commit 4904879515
Signed by: orion
GPG Key ID: 6D4165AE4C928719

View File

@ -231,7 +231,7 @@ derive instance Generic Proquint _
derive instance Ord Proquint
derive instance Eq Proquint
instance Show Proquint where
show = genericShow
show pq = "(fromString " <> show (toString pq) <> ")"
pad :: Int -> Proquint -> Proquint
pad n pq@(Proquint segs) =