module Clang.Monad
( ClangApp
, runClangApp
) where

import Clang.Internal.ClangApp (ClangApp, runClangApp)

{-# LANGUAGE RankNTypes #-}

module Clang.Monad
( ClangApp
, clangScope
) where

import Control.Monad.Trans (liftIO)

import Clang.Internal.ClangApp (ClangApp, runClangApp)

clangScope :: (forall s. ClangApp s a) -> ClangApp s' a
clangScope app = liftIO $ runClangApp app
{-# INLINEABLE clangScope #-}

Replace the public runClangApp with clangScope
Replace the public runClangApp with clangScope
