module GHC.Util.HsType ( Brackets'(..) , fromTyParen' , isTyQuasiQuote' , isUnboxedTuple' ) where import HsSyn import SrcLoc import GHC.Util.Brackets fromTyParen' :: LHsType GhcPs -> LHsType GhcPs fromTyParen' :: LHsType GhcPs -> LHsType GhcPs fromTyParen' (LL _ (HsParTy _ x)) = LHsType GhcPs x fromTyParen' x :: LHsType GhcPs x = LHsType GhcPs x isTyQuasiQuote' :: LHsType GhcPs -> Bool isTyQuasiQuote' :: LHsType GhcPs -> Bool isTyQuasiQuote' (LL _ (HsSpliceTy _ HsQuasiQuote{})) = Bool True; isTyQuasiQuote' _ = Bool False isUnboxedTuple' :: HsTupleSort -> Bool isUnboxedTuple' :: HsTupleSort -> Bool isUnboxedTuple' HsUnboxedTuple = Bool True isUnboxedTuple' _ = Bool False