bookhound-0.1.10.0: src/Bookhound/Internal/Map.hs

module Bookhound.Internal.Map where

import Data.Map (Map, elems, keys)


showMap :: String -> (String -> String) -> (a -> String) -> Map String a -> [String]
showMap sep showKey showValue mapping = (\(k, v) -> showKey k <> sep <> showValue v) <$> tuples where
  tuples = zip (keys mapping) (elems mapping)