From 6ce08448d8e2376076f42841088687a01930b51b Mon Sep 17 00:00:00 2001
From: Brad Richardson <everythingfunctional@protonmail.com>
Date: Wed, 21 Oct 2020 10:23:06 -0500
Subject: Put print statement in for debugging Windows

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

(limited to 'bootstrap')

diff --git a/bootstrap/src/Build.hs b/bootstrap/src/Build.hs
index fb5f2a9..bee5bba 100644
--- a/bootstrap/src/Build.hs
+++ b/bootstrap/src/Build.hs
@@ -22,6 +22,7 @@ import           Development.Shake              ( FilePattern
                                                 , Change(ChangeModtimeAndDigest)
                                                 , cmd
                                                 , getDirectoryFilesIO
+                                                , liftIO
                                                 , need
                                                 , progressSimple
                                                 , shake
@@ -100,6 +101,7 @@ 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