generated from tpl/purs
fix: show uses toString
This commit is contained in:
parent
01f844b2d2
commit
4904879515
@ -231,7 +231,7 @@ derive instance Generic Proquint _
|
|||||||
derive instance Ord Proquint
|
derive instance Ord Proquint
|
||||||
derive instance Eq Proquint
|
derive instance Eq Proquint
|
||||||
instance Show Proquint where
|
instance Show Proquint where
|
||||||
show = genericShow
|
show pq = "(fromString " <> show (toString pq) <> ")"
|
||||||
|
|
||||||
pad :: Int -> Proquint -> Proquint
|
pad :: Int -> Proquint -> Proquint
|
||||||
pad n pq@(Proquint segs) =
|
pad n pq@(Proquint segs) =
|
||||||
|
Loading…
Reference in New Issue
Block a user