Cachix Server Repl using hint

Repl.hs

{-# OPTIONS_GHC -fno-warn-orphans #-}

module Repl where

import Cachix.Config (readConfig)
import Cachix.Env (setupApp)
import Cachix.Server.Prelude
import qualified Control.Exception.Safe as Safe
import qualified Language.Haskell.Interpreter as Interpreter
import Protolude
import qualified System.IO
import qualified Prelude


extensions :: Interpreter.OptionVal (Interpreter.InterpreterT App)
extensions =
  Interpreter.languageExtensions
    Interpreter.:= [ Interpreter.NoImplicitPrelude,
                     Interpreter.DeriveGeneric,
                     Interpreter.LambdaCase,
                     Interpreter.OverloadedStrings
                   ]

main :: FilePath -> IO ()
main configPath = do
  config <- readConfig $ toS configPath
  finished <- setupApp config $ Interpreter.runInterpreter $ do
    Interpreter.set
      [ extensions,
        Interpreter.searchPath Interpreter.:= ["src"],
        Interpreter.installedModulesInScope Interpreter.:= True
      ]
    putText "Loading modules ..."
    Interpreter.loadModules ["Cachix.Server"]
    Interpreter.setImports ["Prelude"]
    putText ""
    putText "Welcome to Cachix Server REPL!"
    putText ""
    loop
  escalate finished

loop :: Interpreter.InterpreterT App ()
loop = do
  liftIO $ putStr ("> " :: Text)
  liftIO $ System.IO.hFlush System.IO.stdout
  statement <- liftIO Prelude.getLine
  type_ <- Interpreter.typeOf statement
  Safe.handle handleInterpreterError $ Interpreter.runStmt statement
  liftIO $ putStrLn $ ":: " <> type_
  loop

handleInterpreterError :: Interpreter.InterpreterError -> Interpreter.InterpreterT App ()
handleInterpreterError = print