Skip to content

Commit

Permalink
Enable fnkParsedResultAction for ghc >= 9.6
Browse files Browse the repository at this point in the history
Remove CPP macros wrapping "fnkParsedResultAction" for ghc >= 9.6, export the
actual implementation.
  • Loading branch information
8c6794b6 committed Jul 10, 2024
1 parent 9ac83a3 commit afec6ad
Showing 1 changed file with 6 additions and 10 deletions.
16 changes: 6 additions & 10 deletions finkel-kernel/src/Language/Finkel/ParsedResult.hs
Original file line number Diff line number Diff line change
Expand Up @@ -4,27 +4,23 @@ module Language.Finkel.ParsedResult (
fnkParsedResultAction
) where

#if MIN_VERSION_ghc(9,6,0)

-- Not supported in ghc >= 9.6.
fnkParsedResultAction :: a
fnkParsedResultAction = error "Use Language.Finkel.Hooks.finkelHooks instead"

-- Requires parsedResultaction field in the 'Plugin' data type, which is
-- supported from ghc 8.6.0.
#elif MIN_VERSION_ghc(8,6,0)
#if MIN_VERSION_ghc(8,6,0)

#include "ghc_modules.h"

-- base
import Control.Exception (displayException, throwIO)
import Control.Monad.IO.Class (MonadIO (..))
import Data.List (foldl')
import Data.Maybe (fromMaybe)
import System.Console.GetOpt (ArgOrder (..), getOpt)
import System.Environment (getProgName)
import System.Exit (exitFailure, exitSuccess)

#if !MIN_VERSION_base(4,20,0)
import Data.List (foldl')
#endif

-- ghc
import GHC_Driver_Env (Hsc (..), HscEnv (..))
import GHC_Driver_Main (getHscEnv)
Expand Down Expand Up @@ -52,7 +48,7 @@ import Language.Finkel.Exception (FinkelException (..),
finkelExceptionLoc,
handleFinkelException)
import Language.Finkel.Fnk (FnkEnv (..), FnkInvokedMode (..),
runFnk', initFnkEnv)
initFnkEnv, runFnk')
import Language.Finkel.Make (mkParsedResult)
import Language.Finkel.Make.Summary (TargetSummary (..), compileFnkFile,
dumpParsedAST)
Expand Down

0 comments on commit afec6ad

Please sign in to comment.