will-holdsworth/comp30002-project-2
1
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix: prompt was not visible outside interactive mode, flush stdout so it's visible

Browse source
This commit is contained in:
wi11-holdsworth 2025-09-25 11:15:07 +10:00
parent c8079cb914
commit 4ecd8803af
1 changed files with 2 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Main.hs
View file

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