sayable-1.2.3.0: test/Helpers.hs

module Helpers where

import qualified Language.Haskell.TH as TH

foo2Filter :: TH.Name -> Bool
foo2Filter nm = and [ "HiddenValue" /= TH.nameBase nm
                    , maybe False ("Main" ==) $ TH.nameModule nm
                    ]