Здравствуйте, trop, Вы писали:

T>как исправить такое поведение?

Взять библиотеку, работающую с ByteString напрямую?

import Data.Digest.Pure.MD5
import qualified Data.ByteString.Lazy as B
import System.Environment

main = do
    fname:_ <- getArgs
    B.readFile fname >>= print . md5