{-# LANGUAGE TemplateHaskell #-}
module Language.Java.Inline.Internal.QQMarker.Names where

import Data.Maybe
import GhcPlugins
import qualified GhcPlugins.Extras
import Language.Java.Inline.Internal.QQMarker

-- | Get the names of all markers used for java quasiquotations.
getQQMarkers :: CoreM [Name]
getQQMarkers :: CoreM [Name]
getQQMarkers = Maybe Name -> [Name]
forall a. Maybe a -> [a]
maybeToList (Maybe Name -> [Name]) -> CoreM (Maybe Name) -> CoreM [Name]
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Name -> CoreM (Maybe Name)
GhcPlugins.Extras.findTHName 'qqMarker