From 061303ccc06b72752872e038b924cc08a21132b1 Mon Sep 17 00:00:00 2001 From: vvsob Date: Thu, 25 Dec 2025 19:00:01 +0300 Subject: [PATCH] add fancy prompt before input --- app/Main.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/app/Main.hs b/app/Main.hs index 6966ae6..a93fb36 100644 --- a/app/Main.hs +++ b/app/Main.hs @@ -1,6 +1,7 @@ import Lox.Scanner import Lox.Parser import Lox.Interpreter +import System.IO run :: String -> IO () run source = print result @@ -9,4 +10,4 @@ run source = print result tokens = scanTokensFromSource source main :: IO () -main = getLine >>= run +main = putStr ">> " >> hFlush stdout >> getLine >>= run