From 4ecd8803afea14695b2bf3f0adc70112bfc94e1b Mon Sep 17 00:00:00 2001
From: wi11-holdsworth <83637728+wi11-holdsworth@users.noreply.github.com>
Date: Thu, 25 Sep 2025 11:15:07 +1000
Subject: [PATCH] fix: prompt was not visible outside interactive mode, flush
 stdout so it's visible

---
 Main.hs | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/Main.hs b/Main.hs
index 4596dfb..bbd5eec 100644
--- a/Main.hs
+++ b/Main.hs
@@ -9,6 +9,7 @@ module Main where
 import Data.List
 import Data.Maybe
 import Proj2
+import System.IO (hFlush, stdout)
 
 -- | Guess the given target, counting and showing the guesses.
 guessTest :: [Pitch] -> IO ()
@@ -39,5 +40,6 @@ toChord = fromJust . mapM toPitch . words
 main :: IO ()
 main = do
   putStr "Target chord (3 pitches separated by spaces): "
+  hFlush stdout
   text <- getLine
   guessTest $ toChord text