fromValue n (E.Map as)      = "{"  <> "\n" <> fromAssoc (n+1) (M.assocs as) <> spaces n <> "}"
fromValue n (E.Map as)      = "{"  <> "\n" <> fromAssoc (n+1) (M.assocs as) <> spaces n <> "}"
fromValue n (E.Map as)      = "{"  <> "\n" <> fromAssoc (n+1) (M.assocs as) <> spaces n <> "}"