このタイプのエラーが発生します:
Couldn't match type `containers-0.5.0.0:Data.Map.Base.Map
ByteString [ByteString]'
with `M.Map ByteString [ByteString]'
Expected type: M.Map ByteString [ByteString]
Actual type: Params
ただし、Params 型は Map ByteString [ByteString] です。
type Params = Map ByteString [ByteString]
それが助けになるなら、これは完全な機能です:
import qualified Data.Map as M
categoryDoc :: Params -> Document
categoryDoc params = map (\(k,[v]) -> T.decodeUtf8 k =: T.decodeUtf8 v) $ M.toList params
ありがとうございました。