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