Hi Matthijs,<br><br>This is a shameless plug for EMGM, a library for generic programming that we've been working on at Utrecht.<br><br><div class="gmail_quote"><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
<div class="Ih2E3d">| However, there are two issues bothering me still. The first is that the<br>
| Core types (in particular CoreExpr) are not instances of Show. They are<br>
| instances of Outputable, which allows them to be pretty printed.<br>
| However, this pretty printing is good to view the structure of the<br>
| expression that the CoreExpr represents, but doesn't show the structure<br>
| of the CoreExpr itself. For example, tuple construction is printed<br>
| simply as (a, b), while the actual core expression is a nested<br>
| application of two types, and a and b to the GHC.Tuple.(,) function<br>
| (or datacon?). Also, the exact constructors used are not quite clear,<br>
<br>
</div>There's absolutely no reason why<br>
CoreExpr<br>
CoreBind<br>
Type<br>
should not be an instance of Show. It'd take you 10 mins to make it so, with the aid of 'standalone deriving' (described in the GHC user manual).<br>
<br>
There *is* a reason why TyCon and Class are not:<br>
a TyCon<br>
enumerates its DataCons<br>
whose type mentions the TyCon<br>
<br>
In short, the data structures are, by design, cyclic. Printing one of these would take a long time.<br>
<br>
But I bet you could get a long way with the three above, plus just printing the *name* of a TyCon or Class or Id. Something like:<br>
instance Show TyCon where<br>
show tc = showSDoc (ppr tc)<br></blockquote></div><br>Suppose you want to print a type with the exception of one constructor, because it is mutually recursive with another or just prints out lots of useless information. There are at least two ways to do it, one with EMGM, and one with standalone deriving. I show both below.<br>
<br><span style="font-family: courier new,monospace;">> {-# LANGUAGE TemplateHaskell #-}<br>> {-# LANGUAGE FlexibleInstances #-}<br>> {-# LANGUAGE FlexibleContexts #-}<br>> {-# LANGUAGE MultiParamTypeClasses #-}<br>
> {-# LANGUAGE OverlappingInstances #-}<br>> {-# LANGUAGE UndecidableInstances #-}<br>> {-# LANGUAGE StandaloneDeriving #-}<br>> <br>> module Example where<br>> <br>> import qualified Generics.EMGM as G<br>
> <br>> -----------------------------------------<br>> <br>> data A = A0 Int | A1 B<br>> data B = B0 Char | B1 A<br>> <br>> $(G.derive ''A)<br>> $(G.derive ''B)<br>> <br>> instance G.Rep G.Show B where<br>
> rep = G.Show (\_ _ -> f)<br>> where<br>> f (B0 c) = showString "(B0 " . showChar c . showString ")"<br>> f (B1 _) = showString "(B1 <some A>)"<br>> <br>
> valAB = A1 (B1 (A0 37))<br>> showAB = G.show valAB<br>> <br>> -----------------------------------------<br>> <br>> data C = C0 Int | C1 D<br>> data D = D0 Char | D1 C<br>> <br>> deriving instance Show C<br>
> instance Show D where<br>> showsPrec _ = f<br>> where<br>> f (D0 c) = showString "(D0 " . showChar c . showString ")"<br>> f (D1 _) = showString "(D1 <some C>)"<br>
> <br>> valCD = C1 (D1 (C0 37))<br>> showCD = show valCD<br>> <br>> -----------------------------------------</span><br>
<br>The first one uses EMGM's Template Haskell-based derive function to generate the type representation. I then give an overriding instance for the generic Show function (where G.Show is a newtype used for all show/shows/showsPrec generic functions). So, the constructor B1 will not print out the value of its A-type argument.<br>
<br>The second uses standalone deriving and a handwritten instance for D that does the same thing as the first solution did for B.<br><br>What's the difference? Well, between these instances of G.Show and Show, there's not much. However, the EMGM approach gives you access to a lot of other generic functions including Read, Crush, Collect, etc. See the documentation for all of them [1].<br>
<br>One function you may be able to take advantage of is 'collect', perhaps to collect the B values in valAB.<br><br><span style="font-family: courier new,monospace;">*Example> G.show (G.collect valAB :: [B])</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;">"[(B1 <some A>)]"</span><br style="font-family: courier new,monospace;"><br>Moral of the story: you can do it either way, but EMGM gives you a lot extra.<br>
<br>Apologies for the self-promotion, but we're looking for people who might want to use EMGM. ;) If you have feedback, let us know! [2]<br><br>Regards,<br>Sean<br><br>[1] <a href="http://hackage.haskell.org/cgi-bin/hackage-scripts/package/emgm">http://hackage.haskell.org/cgi-bin/hackage-scripts/package/emgm</a><br>
[2] <a href="http://www.cs.uu.nl/wiki/GenericProgramming/EMGM">http://www.cs.uu.nl/wiki/GenericProgramming/EMGM</a><br>