Commit f9ad735f authored by simonpj@microsoft.com's avatar simonpj@microsoft.com
Browse files

Extra instance for Outputable on 5-tuples

parent 609db9ce
...@@ -472,11 +472,20 @@ instance (Outputable a, Outputable b, Outputable c) => Outputable (a, b, c) wher ...@@ -472,11 +472,20 @@ instance (Outputable a, Outputable b, Outputable c) => Outputable (a, b, c) wher
instance (Outputable a, Outputable b, Outputable c, Outputable d) => instance (Outputable a, Outputable b, Outputable c, Outputable d) =>
Outputable (a, b, c, d) where Outputable (a, b, c, d) where
ppr (x,y,z,w) = ppr (a,b,c,d) =
parens (sep [ppr x <> comma, parens (sep [ppr a <> comma,
ppr y <> comma, ppr b <> comma,
ppr z <> comma, ppr c <> comma,
ppr w]) ppr d])
instance (Outputable a, Outputable b, Outputable c, Outputable d, Outputable e) =>
Outputable (a, b, c, d, e) where
ppr (a,b,c,d,e) =
parens (sep [ppr a <> comma,
ppr b <> comma,
ppr c <> comma,
ppr d <> comma,
ppr e])
instance Outputable FastString where instance Outputable FastString where
ppr fs = ftext fs -- Prints an unadorned string, ppr fs = ftext fs -- Prints an unadorned string,
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment