Почему я получаю сообщение об отсутствии исключений?

Question

Я изучаю Хаскелл. Мой код:

main = do 
    args <- getArgs 
    if length args < 2 then 
    putStrLn invalidCallingSignature 
    else 
    dispatch fileName command commandArgs 
    where (fileName : command : commandArgs) = args -- But I get an Exception: src3.hs:22:48: Not in scope: `args' 

Я смущен исключением Я получаю для последней строки кода. Почему я понял?

Answer 1

Пункт where применяется к функции в целом, а отступ вводит вас в заблуждение. То, что компилятор видит:

main = do 
    args <- getArgs 
    if length args < 2 then 
     putStrLn invalidCallingSignature 
    else 
     dispatch fileName command commandArgs 
    where (fileName : command : commandArgs) = args 

Так args не видно. Вы хотите делать нотацию let:

main = do 
    args <- getArgs 
    if length args < 2 then 
     putStrLn invalidCallingSignature 
    else do 
     let (fileName : command : commandArgs) = args 
     dispatch fileName command commandArgs