Text/Julius.hs:120:23: error:
    • Couldn't match type ‘Data.Aeson.KeyMap.KeyMap Value’
                     with ‘H.HashMap T.Text Value’
      Expected type: H.HashMap T.Text Value
        Actual type: aeson-2.0.1.0:Data.Aeson.Types.Internal.Object
    • In the first argument of ‘H.toList’, namely ‘m’
      In the expression: H.toList m
      In the expression:
        case H.toList m of
          (x : xs) -> singleton '{' <> one x <> foldr f (singleton '}') xs
          _ -> "{}"
    |
120 |         case H.toList m of
    |                       ^