haskellでリストの文字を数字に変換したい

Question

[["aaaaabaa"],["aaaabaaa"],["aaabaaaa"]]というリストを数字に変換したいため下記のようなコードを書きました。
mainを実行すると
*** Exception: test.hs:(18,1)-(19,57): Non-exhaustive patterns in function change_number2
というエラーが吐かれました。
おそらくchange_number2の引数[[String]]と[["aaaaabaa"],["aaaabaaa"],["aaabaaaa"]]の型が合っていないためエラーが吐かれたのだと予想するのですが、なぜこのようなエラーになるのか教えてください

--数字に変換
change_number::[String]->[Int]
change_number []=[]
change_number (x:xs)
    |x==['a'] = 1:change_number xs
    |x==['b'] = 2:change_number xs
    |otherwise = 3: change_number xs
--リストごとに数字に変換
change_number2::[[String]]->[[Int]]
change_number2 [[]]=[[]]
change_number2 [x,y]=change_number x : change_number2 [y]

main :: IO()
main = do
    handle <- openFile "sample.txt" ReadMode
    text <- hGetContents handle 
    let ls = lines text --1行ずつ書き出し
    print  ls
    --["aaaaabaa","aaaabaaa","aaabaaaa"]
    let text2=[[y]|y<-ls]
    print text2
    --[["aaaaabaa"],["aaaabaaa"],["aaabaaaa"]]
    let number= change_number2 text2
    print number
    hClose handle

Answer 1

[]を外したら出来ました