MPSCandidate.hs

module Panda.Helper.MPSCandidate where
import MPS
import Prelude hiding ((.), (/), (^), id)
import Data.Typeable
import Data.Generics
import Text.XHtml.Strict

introspect a = zip fields (gmapQ gshow a)
  where fields = constrFields $ toConstr a

map_fields f x = map f (introspect x)
render_fields f x = map_fields f x .concatHtml