如何在Haskell中简单退出？

Question

这是代码：

main :: IO()
main =  do 
{
         putStrLn ("Meniu: ");
         putStrLn ("1. menu 1");
         putStrLn ("2. menu 2");
         putStrLn ("3. menu 3");
         putStrLn ("4. menu 4");
         putStrLn ("5. Exit - Iesire)");
         putStrLn ("-------------------------");
         putStr ("Enter option: ");
         opt <- getLine;
         if(opt == "1") then do
         {
            Code one etc
            main
         }
            else if(opt == "2") then do
         {
            Code 2 etc
            main
         }
            else if(opt == "3") then do
         {
            code 3 etc
            main
         }
         else if(opt == "4") then do
         {
            code 4 etc
            main

         }
         else if(opt == "5") then do
         {
            ??????????? ()
         }
         else putStrLn "Option is not exist";
}

问题：在选项5 (opt == 5)我需要编写代码来停止菜单，但是我不知道该怎么做。 我试图在Google和StackOverflow上找到更多示例，但实际上找不到解决方案。

Answer 1

return ()将在这里工作。 在这种情况下， return行为实际上与程序语言中的行为相同（但请注意，这通常不是正确的）。

关于样式的注意事项：在Haskell中，带有相等比较的if ... else链非常不习惯。 正确的方法是一个case ：

main =  do 
     putStrLn "Meniu: "
     sequence_ [ putStrLn $ [n]++". menu "++[n] | n<-['1'..'5'] ]
     putStrLn "-------------------------"
     putStr "Enter option: "

     opt <- getLine
     case opt of
      "1" -> do
        Code one etc
        main
      "2" -> do
        Code 2 etc
        main
      "3" -> do
        code 3 etc
        main
      "4" -> do
        code 4 etc
        main
      "5" -> return ()
      _ -> putStrLn "Option does not exist"

如果正确缩进代码，则不需要大括号和分号。

return ()在这里所做的只是...什么都没有，这是无操作。 因为main在case切换后结束，所以如果您不像其他选项一样递归回main ，程序也会结束。