{-# 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))