Couldn't match type ‘Either String’ with ‘[]’

Question

I have this main method:

main :: IO ()
main = do 
     x <- getArgs
     case x of
         [] -> putStrLn "Empty"
         [x] ->  putStrL