Skip to content

Commit

Permalink
Eliminate commented dead code
Browse files Browse the repository at this point in the history
  • Loading branch information
dolio committed Feb 6, 2024
1 parent c3c62c4 commit 72743c5
Showing 1 changed file with 0 additions and 20 deletions.
20 changes: 0 additions & 20 deletions unison-cli/src/Unison/Codebase/Editor/HandleInput.hs
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand All @@ -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
Expand Down

0 comments on commit 72743c5

Please sign in to comment.