From 72743c5d30e027d1b46e1e6ca447eccb2651d034 Mon Sep 17 00:00:00 2001 From: Dan Doel Date: Tue, 6 Feb 2024 16:29:43 -0500 Subject: [PATCH] Eliminate commented dead code --- .../src/Unison/Codebase/Editor/HandleInput.hs | 20 ------------------- 1 file changed, 20 deletions(-) diff --git a/unison-cli/src/Unison/Codebase/Editor/HandleInput.hs b/unison-cli/src/Unison/Codebase/Editor/HandleInput.hs index 0bbaaef2d0..8973e0c78b 100644 --- a/unison-cli/src/Unison/Codebase/Editor/HandleInput.hs +++ b/unison-cli/src/Unison/Codebase/Editor/HandleInput.hs @@ -2071,22 +2071,6 @@ runScheme file args = do unless success $ Cli.returnEarly (PrintMessage "Scheme evaluation failed.") --- buildScheme :: String -> String -> Cli () --- buildScheme main file = do --- ensureSchemeExists --- statDir <- getSchemeStaticLibDir --- genDir <- getSchemeGenLibDir --- buildRacket genDir statDir main file - --- buildRacket :: String -> String -> String -> String -> Cli () --- buildRacket genDir statDir main file = --- let args = ["-l", "raco", "--", "exe", "-o", main, file] --- opts = racketOpts genDir statDir args --- in void . liftIO $ --- catch --- (True <$ callProcess "racket" opts) --- (\(_ :: IOException) -> pure False) - doCompile :: Bool -> String -> HQ.HashQualified Name -> Cli () doCompile native output main = do Cli.Env {codebase, runtime, nativeRuntime} <- ask @@ -2111,10 +2095,6 @@ doRunAsScheme main0 args = case HQ.fromString main0 of runScheme fullpath args Nothing -> Cli.respond $ BadName main0 --- doCompileScheme :: String -> HQ.HashQualified Name -> Cli () --- doCompileScheme out main = --- generateSchemeFile True out main >>= buildScheme out - generateSchemeFile :: Bool -> String -> HQ.HashQualified Name -> Cli String generateSchemeFile exec out main = do (comp, ppe) <- resolveMainRef main