never executed always true always false

    1 module Main where
    2 
    3 import LI11718
    4 import qualified Tarefa4_2017li1g186 as T4
    5 
    6 import System.Environment
    7 import Text.Read
    8 
    9 main = do
   10     args <- getArgs
   11     case args of
   12         ["atualiza"] -> do
   13             str <- getContents
   14             let params = readMaybe str
   15             case params of
   16                 Nothing -> error "parâmetros inválidos"
   17                 Just (tempo,jogo,jogador,acao) -> print $ T4.atualiza tempo jogo jogador acao
   18         ["testes"] -> print $ take 100 $ T4.testesT4
   19         otherwise -> error "RunT4 argumentos inválidos"