gistfile1.txt

OLD:
-- native execution
compileAndRunNative ::
  Language i o       ->
  CompilationOptions ->
  FilePath           -> --the original input file, also serves as the program name
  i                  ->
  IO (Val Output)
compileAndRunNative l@(Language _ _ _ _ subLang) opts inputFile input = do
  code <- compileAndWriteResult l opts inputFile input
  munge (recur subLang) code where
  recur Nothing    _    = return <$> runSFileNative sFile (sFile^.directory) where
    sFile = inputFile & extension .~ (outputExtension l) & directory .~ (getOutputDirOrElse opts inputFile)
  recur (Just sub) code = compileAndRunNative sub opts inputFile code

NEW:
compileAndRunNativeT ::
  Compiler i X86     ->
  CompilationOptions ->
  FilePath           -> --the original input file, also serves as the program name
  i                  ->
  IO (Val Output)
compileAndRunNativeT c opts inputFile input = do
  x86 <- compileAndWriteResultT c opts inputFile input
  return <$> runSFileNative sFile (sFile^.directory) where
    sFile = inputFile & extension .~ (extT c) & directory .~ (getOutputDirOrElse opts inputFile)