@@ -30,7 +30,7 @@ getFromMgr mgr name = do
30 BS.packCStringLen (b, fromIntegral l)
30 BS.packCStringLen (b, fromIntegral l)
32getConfigs :: IO (Map Text ByteString)
32getConfigs :: IO (Map Text ByteString)
33−getConfigs = bracket getAssets freeAssetManager $ \mgrObj -> do
33+getConfigs = fmap (Map.mapKeys T.decodeUtf8) $ bracket getAssets freeAssetManager $ \mgrObj -> do
34 mgr <- assetManagerFromJava mgrObj
34 mgr <- assetManagerFromJava mgrObj
35 let openDir = do
35 let openDir = do
36 d <- withCString "config.files" $ \fn ->
36 d <- withCString "config.files" $ \fn ->