summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
8592c89)
Use , as element separator in lists and tuples not comma followed by space (important stuffcvs-diff PrelBase.lhs)
showList__ showx (x:xs) = showChar '[' . showx x . showl xs
where
showl [] = showChar ']'
showList__ showx (x:xs) = showChar '[' . showx x . showl xs
where
showl [] = showChar ']'
- showl (x:xs) = showString ", " . showx x . showl xs
+ showl (x:xs) = showChar ',' . showx x . showl xs
showSpace :: ShowS
showSpace = {-showChar ' '-} \ xs -> ' ' : xs
showSpace :: ShowS
showSpace = {-showChar ' '-} \ xs -> ' ' : xs
\begin{code}
instance (Show a, Show b) => Show (a,b) where
\begin{code}
instance (Show a, Show b) => Show (a,b) where
- showsPrec p (x,y) = showChar '(' . shows x . showString ", " .
+ showsPrec p (x,y) = showChar '(' . shows x . showChar ',' .
shows y . showChar ')'
showList = showList__ (showsPrec 0)
instance (Show a, Show b, Show c) => Show (a, b, c) where
shows y . showChar ')'
showList = showList__ (showsPrec 0)
instance (Show a, Show b, Show c) => Show (a, b, c) where
- showsPrec p (x,y,z) = showChar '(' . showsPrec 0 x . showString ", " .
- showsPrec 0 y . showString ", " .
+ showsPrec p (x,y,z) = showChar '(' . showsPrec 0 x . showChar ',' .
+ showsPrec 0 y . showChar ',' .
showsPrec 0 z . showChar ')'
showList = showList__ (showsPrec 0)
instance (Show a, Show b, Show c, Show d) => Show (a, b, c, d) where
showsPrec 0 z . showChar ')'
showList = showList__ (showsPrec 0)
instance (Show a, Show b, Show c, Show d) => Show (a, b, c, d) where
- showsPrec p (w,x,y,z) = showChar '(' . showsPrec 0 w . showString ", " .
- showsPrec 0 x . showString ", " .
- showsPrec 0 y . showString ", " .
+ showsPrec p (w,x,y,z) = showChar '(' . showsPrec 0 w . showChar ',' .
+ showsPrec 0 x . showChar ',' .
+ showsPrec 0 y . showChar ',' .
showsPrec 0 z . showChar ')'
showList = showList__ (showsPrec 0)
instance (Show a, Show b, Show c, Show d, Show e) => Show (a, b, c, d, e) where
showsPrec 0 z . showChar ')'
showList = showList__ (showsPrec 0)
instance (Show a, Show b, Show c, Show d, Show e) => Show (a, b, c, d, e) where
- showsPrec p (v,w,x,y,z) = showChar '(' . showsPrec 0 v . showString ", " .
- showsPrec 0 w . showString ", " .
- showsPrec 0 x . showString ", " .
- showsPrec 0 y . showString ", " .
+ showsPrec p (v,w,x,y,z) = showChar '(' . showsPrec 0 v . showChar ',' .
+ showsPrec 0 w . showChar ',' .
+ showsPrec 0 x . showChar ',' .
+ showsPrec 0 y . showChar ',' .
showsPrec 0 z . showChar ')'
showList = showList__ (showsPrec 0)
\end{code}
showsPrec 0 z . showChar ')'
showList = showList__ (showsPrec 0)
\end{code}