Тут команда просто строка из протокола http://redis.io
PING посылается на все сервера-ноды.
SET k v - на ноду, которую вычислили по ключу k

Есть догадка!
А может когда пишешь функцию
cmdType "PING" = Just CmdToAll
, то не смотря на {-# LANGUAGE OverloadedStrings #-}
тут "PING" - это обычные строки, а не ByteString.
Тогда все становиться на свои места: большое значение MUT.