Haskell 中的解析错误

Question

以下代码：

import IO
import System(getArgs)

main = do
    args <- getArgs
    let l = length args
    if l == 0
        putStrLn "foo"
    else
        putStrLn "bar"

生成 if-else 子句的解析错误。我尝试过使用大括号但没有成功。 帮助！

Answer 1

只是为了证明我对马克的回答的评论

import System.Environment (getArgs)

main :: IO ()
main = do
    args <- getArgs
    let l = length args
    if l == 0
      then putStrLn "foo"
      else putStrLn "bar"

是合法的哈斯克尔。

---

使用 GHC 7.0 的 {-# LANGUAGE RebindableSyntax #-}< /a> 扩展名，你甚至可以逃脱

class IfThenElse a b c d | a b c -> d where
    ifThenElse :: a -> b -> c -> d
instance IfThenElse Bool a a a where
    ifThenElse True = const
    ifThenElse False = flip const
instance (Monad m, IfThenElse a (m b) (m b) (m b))
      => IfThenElse (m a) (m b) (m b) (m b) where
    ifThenElse = liftM ifThenElse

main =
    if liftM null getArgs
      then putStrLn "foo"
      else putStrLn "bar"

（无耻地模仿 blog.n-sch.de。）

Answer 2

两个问题：

1. 您缺少 let-in 子句（参见（并接受）@ephemient 的回答)

2. 你错过了then if-then-else 子句的一部分

所以它可能看起来像：

import IO import System(getArgs)

main = do
    args <- getArgs
    let l = length args in
        if l == 0 then
            putStrLn "foo"
        else
            putStrLn "bar"