{-# LANGUAGE TemplateHaskell #-}moduleHappstack.Util.THwhereimportLanguage.Haskell.TH-- | Version of 'instanceD' that takes in a Q [Dec] instead of a [Q Dec]-- and filters out signatures from the list of declarationsinstanceD'::CxtQ->TypeQ->Q[Dec]->DecQinstanceD'ctxttydecs=dodecs'<-decsletdecs''=filter(not.isSigD)decs'instanceDctxtty(mapreturndecs'')-- | Returns true if the Dec matches a SigD constructorisSigD::Dec->BoolisSigD(SigD__)=TrueisSigD_=False