你真的很接近了。你的错误在这一行：

| length hxStr /= 0 = (hexChar(last(hxStr)))+(10*parseHex(init(hxStr)))

想想你为什么要乘以10。记住...十六进制是以16为底的。

现在你已经得到了正确的答案，你应该考虑风格了。使用模式匹配，这看起来已经很清楚了：

parseHex :: String -> Integer
parseHex [] = 0
parseHex hxStr = (hexChar(last(hxStr)))+(16*parseHex(init(hxStr)))

而且它的效率也更高，因为你不需要在每次递归调用时计算length hxStr（也就是O（N））来决定哪种情况适用，总的运行时间从O（N**2）减少到O（N）。
如果你像groovy建议的那样去掉一些括号，看起来会更好：

parseHex :: String -> Integer
parseHex [] = 0
parseHex hxStr = hexChar (last hxStr) + 16 * parseHex (init hxStr))

不幸的是，您不能立即在hxStr上进行模式匹配，因为您需要init和last，而不是head和tail，但是您可以使用reverse和一个helper来缓解这种情况：

parseHex :: String -> Integer
parseHex hxStr = go (reverse hxStr)
    where go []     = 0
          go (x:xs) = hexChar x + 16 * parseHex xs

最后一个可能只是个口味问题。hexChar也变短了：

hexChar '0' = 0
hexChar '1' = 1
...                  -- other cases here
hexChar _ = 0        -- 'otherwise' case; maybe throw an error instead?

问题解决后，这里有一个较短的方式来写这个：

import Data.List
import Data.Maybe

hexChar ch = fromMaybe (error $ "illegal char " ++ [ch]) $ 
    elemIndex ch "0123456789ABCDEF"

parseHex hex = foldl' f 0 hex where
    f n c = 16*n + hexChar c