From 25620576674d729a472951d4c03d7aadbbfa2057 Mon Sep 17 00:00:00 2001
From: Brad Richardson <everythingfunctional@protonmail.com>
Date: Wed, 21 Oct 2020 16:35:25 -0500
Subject: Add another print statement for debugging Windows

---
 bootstrap/src/Build.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'bootstrap')

diff --git a/bootstrap/src/Build.hs b/bootstrap/src/Build.hs
index 0e6a7c7..68a8e3c 100644
--- a/bootstrap/src/Build.hs
+++ b/bootstrap/src/Build.hs
@@ -64,6 +64,8 @@ buildProgram programDirectory libraryDirectories sourceExtensions buildDirectory
   = do
     let includeFlags = map ("-I" ++) libraryDirectories
     sourceFiles <- getDirectoriesFiles [programDirectory] sourceExtensions
+    print sourceFiles
+    print (programDirectory </> programSource)
     rawSources  <- mapM sourceFileToRawSource sourceFiles
     let sources' = map processRawSource rawSources
     let isThisProgramOrNotProgram p@(Program{}) =
@@ -101,7 +103,6 @@ buildProgram programDirectory libraryDirectories sourceExtensions buildDirectory
                           ["-o", objectFile, sourceFile]
           want [buildDirectory </> programName <.> exe]
           buildDirectory </> programName <.> exe %> \executable -> do
-            liftIO $ print objectFiles
             need objectFiles
             cmd compiler objectFiles archives ["-o", executable] flags
           mapM_ infoToRule compileTimeInfo
-- 
cgit v1.2.3