
12 Dec
2010
12 Dec
'10
1:43 p.m.
* Miguel Mitrofanov:
Not sure if that's what you need:
data NodeF f = Node {name :: String, refs :: [f (NodeF f)]}
newtype Const a b = Const a newtype Id a = Id a
type NodeS = NodeF (Const String) type Node = NodeF Id
Thanks for the suggestion. Yes, the resulting syntax looks better, and it is more obvious to me what is going on.