Вообщем, у меня еще одна проблема import Base import System.IO printTask :: Task

-> IO ()
printTask (Necessary t) = putStrLn $ "You need to " ++ t
printTask (Wish t) = putStrLn $ "You want to " ++ t

makeTask :: String -> Int -> Task
makeTask n 1 = Necessary n
makeTask n _ = Wish n

act :: [Task] -> Int -> IO [Task]
act t 2 = do
mapM_ printTask t
hFlush stdout
return t
act t 1 = do
putStr "Enter name of the task: "
hFlush stdout
name <- getLine
putStr "Enter type of the task (1 - necessary, 2 - wish): "
hFlush stdout
typ <- readLn :: IO Int
return $ makeTask name typ : t
act t _ = do
putStrLn "Wrong usage."
hFlush stdout
return t

loop :: IO [Task] -> IO ()
loop t = do
putStrLn "What do you want to do?"
putStrLn "1 - Add task"
putStrLn "2 - List tasks"
putStrLn "3 - Get plan of the day and exit the program"
hFlush stdout

var <- readLn :: IO Int
tasks <- t
loop (act tasks var)

main :: IO ()
main = do
let t = [] :: [Task]
loop (return t)
вот код, я пытаюсь сделать интерактив на хаскелле, он ведет себя ужасно (предположительно из-за ленивости языка):
сначала 2 раза спрашивает что я хочу сделать а потом делает первое действие, то есть спрашивает наперёд
куда копать?

вообще работает еще страннее, чем я описал

Стикер