fixModuleDocs :: FilePath -> IO ()
fixModuleDocs pkg =
  do  moduleDocs <-
          filter (\path -> takeExtension path == ".json")
            <$> Dir.getDirectoryContents (pkg </> "docs")

      forM_ moduleDocs $ \file ->
        do  maybeValue <- Json.decode <$> BS.readFile (pkg </> "docs" </> file)
            writeAsJson
              (pkg </> "docs" </> file)
              (maybeValue :: Maybe Docs.Documentation)


-- WRITE JSON
fixModuleDocs :: FilePath -> IO ()
fixModuleDocs pkg =
  do  moduleDocs <-
          filter (\path -> takeExtension path == ".json")
            <$> Dir.getDirectoryContents (pkg </> "docs")

      forM_ moduleDocs $ \file ->
        do  maybeValue <- Json.decode <$> BS.readFile (pkg </> "docs" </> file)
            writeAsJson
              (pkg </> "docs" </> file)
              (maybeValue :: Maybe Docs.Documentation)


-- WRITE JSON
fixModuleDocs pkg =
  do  moduleDocs <-
          filter (\path -> takeExtension path == ".json")
            <$> Dir.getDirectoryContents (pkg </> "docs")

      forM_ moduleDocs $ \file ->
        do  maybeValue <- Json.decode <$> BS.readFile (pkg </> "docs" </> file)
            writeAsJson
              (pkg </> "docs" </> file)
              (maybeValue :: Maybe Docs.Documentation)


-- WRITE JSON