Fixed a broken path.
This commit is contained in:
parent
4809cad1cb
commit
92a2ff3235
1 changed files with 32 additions and 41 deletions
27
src/Main.hs
27
src/Main.hs
|
|
@ -15,27 +15,18 @@ import Grammar.Print (printTree)
|
||||||
import LambdaLifter (lambdaLift)
|
import LambdaLifter (lambdaLift)
|
||||||
import Monomorphizer.Monomorphizer (monomorphize)
|
import Monomorphizer.Monomorphizer (monomorphize)
|
||||||
import Renamer.Renamer (rename)
|
import Renamer.Renamer (rename)
|
||||||
import System.Console.GetOpt (
|
import System.Console.GetOpt (ArgDescr (NoArg, ReqArg),
|
||||||
ArgDescr (NoArg, ReqArg),
|
|
||||||
ArgOrder (RequireOrder),
|
ArgOrder (RequireOrder),
|
||||||
OptDescr (Option),
|
OptDescr (Option), getOpt,
|
||||||
getOpt,
|
usageInfo)
|
||||||
usageInfo,
|
import System.Directory (createDirectory, doesPathExist,
|
||||||
)
|
|
||||||
import System.Directory (
|
|
||||||
createDirectory,
|
|
||||||
doesPathExist,
|
|
||||||
getDirectoryContents,
|
getDirectoryContents,
|
||||||
removeDirectoryRecursive,
|
removeDirectoryRecursive,
|
||||||
setCurrentDirectory,
|
setCurrentDirectory)
|
||||||
)
|
|
||||||
import System.Environment (getArgs)
|
import System.Environment (getArgs)
|
||||||
import System.Exit (
|
import System.Exit (ExitCode (ExitFailure),
|
||||||
ExitCode (ExitFailure),
|
exitFailure, exitSuccess,
|
||||||
exitFailure,
|
exitWith)
|
||||||
exitSuccess,
|
|
||||||
exitWith,
|
|
||||||
)
|
|
||||||
import System.IO (stderr)
|
import System.IO (stderr)
|
||||||
import System.Process (spawnCommand, waitForProcess)
|
import System.Process (spawnCommand, waitForProcess)
|
||||||
import TypeChecker.TypeChecker (TypeChecker (Bi, Hm), typecheck)
|
import TypeChecker.TypeChecker (TypeChecker (Bi, Hm), typecheck)
|
||||||
|
|
@ -128,7 +119,7 @@ main' opts s = do
|
||||||
debugDotViz
|
debugDotViz
|
||||||
|
|
||||||
compile generatedCode
|
compile generatedCode
|
||||||
spawnWait "./hello_world"
|
spawnWait "./output/hello_world"
|
||||||
|
|
||||||
exitSuccess
|
exitSuccess
|
||||||
|
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue