string - Haskell で文字列識別子の数値部分をインクリメントする

Question

私はこのコードを持っています (私は Haskell 初心者です)。

import Data.List.Split

padL :: Int -> String -> String
padL n s
    | length s < n = replicate (n - length s) '0' ++ s
    | otherwise = s

strInc :: String -> String -> String
strInc sep str = 
        let strarr = splitOn sep str
            zprefix = strarr !! 0
            znumber = strarr !! 1
        in zprefix ++ sep ++ padL ( length (znumber) ) ( show ( read ( znumber ) + 1 ) )

それは悪い、平均的な、または良い Haskell コードですか? どうすれば改善できますか？ありがとう。