{-# LANGUAGE OverloadedStrings #-} module BNFC.Backend.Haskell.GADT.Utils where import BNFC.Prelude import BNFC.Backend.Haskell.Utilities.Utils import BNFC.CF isTreeType :: (Label, ARHS) -> Bool isTreeType (_,arhs) = not (null $ printArgs arhs) && not (all isItemBuiltin (filter isNTerminal arhs))