Programs are now actually compiled all the way through.

language.cabal

@@ -51,6 +51,7 @@ executable language
       , hspec
       , QuickCheck
       , directory
+      , process
 
     default-language: GHC2021
 
@@ -83,5 +84,6 @@ Test-suite language-testsuite
       , hspec
       , QuickCheck
       , process
+      , bytestring
 
     default-language: GHC2021

src/Compiler.hs

@@ -1,4 +1,4 @@
-module Compiler where
+module Compiler (compile) where
 
 import           Grammar.ErrM         (Err)
 import           System.Exit          (exitFailure, exitSuccess)
@@ -13,15 +13,10 @@ import           System.Process.Extra (CreateProcess (..),
 --spawnWait s = spawnCommand s >>= \s >>= waitForProcess
 
 optimize :: String -> IO String
-optimize prg = do
+optimize = readCreateProcess (shell "opt --O3 -S")
-    result <- readCreateProcess (shell "opt --O3") prg
-    putStrLn result
 
+compileClang :: String -> IO String
+compileClang = readCreateProcess (shell "clang -x ir -o hello_world -")
 
-    -- (Just hin, Just hout, _, _) <- createProcess (proc "opt" ["--O3"]){ std_in = CreatePipe, std_out = CreatePipe }
+compile :: String -> IO String
-    -- hSetBuffering hin NoBuffering
+compile s = optimize s >>= compileClang
-    -- hPutStrLn hin prg
-    -- hFlush hin
-    --bytes <- hGetContents hout
-    --putStrLn bytes
-    pure ""

src/Main.hs

@@ -14,15 +14,12 @@ import Monomorphizer.Monomorphizer (monomorphize)
 import           Control.Monad               (when)
 import           Data.List.Extra             (isSuffixOf)
 
-import Compiler (optimize)
+import           Compiler                    (compile)
 import           Renamer.Renamer             (rename)
-import System.Directory (
+import           System.Directory            (createDirectory, doesPathExist,
-    createDirectory,
-    doesPathExist,
                                               getDirectoryContents,
                                               removeDirectoryRecursive,
-    setCurrentDirectory,
+                                              setCurrentDirectory)
- )
 import           System.Environment          (getArgs)
 import           System.Exit                 (exitFailure, exitSuccess)
 import           System.IO                   (stderr)
@@ -67,8 +64,7 @@ main' debug s = do
         writeFile "output/llvm.ll" generatedCode
         debugDotViz
 
-    optimize generatedCode
+    compile generatedCode
-
     -- interpred <- fromInterpreterErr $ interpret lifted
     -- putStrLn "\n-- interpret"
     -- print interpred