
9 Aug
2012
9 Aug
'12
6:57 p.m.
Here's an even smaller one: {-# LANGUAGE MultiParamTypeClasses, FlexibleContexts #-} data D m = D { bar :: P m () } data P m c = P class S m c where foo :: S m () => P m () foo = undefined emptyDef :: S m () => D m emptyDef = D foo haskellStyle :: S m () => D m haskellStyle = emptyDef { bar = foo } Cheers, -- Felipe.