HaRe-0.6: tools/hs2stratego/Base2Stratego2.hs

module Base2Stratego2 where
import BaseStruct2Stratego2
import Syntax(HsPatI(..))

transPat (Pat p) = transP transId transPat p