fixAllDocs :: FilePath -> IO ()
fixAllDocs pkg =
  do  maybeValue <- Json.decode <$> BS.readFile (pkg </> "documentation.json")
      writeAsJson
        (pkg </> "documentation.json")
        (maybeValue :: Maybe [Docs.Documentation])


-- FIX docs/*.json
fixAllDocs :: FilePath -> IO ()
fixAllDocs pkg =
  do  maybeValue <- Json.decode <$> BS.readFile (pkg </> "documentation.json")
      writeAsJson
        (pkg </> "documentation.json")
        (maybeValue :: Maybe [Docs.Documentation])


-- FIX docs/*.json
fixAllDocs pkg =
  do  maybeValue <- Json.decode <$> BS.readFile (pkg </> "documentation.json")
      writeAsJson
        (pkg </> "documentation.json")
        (maybeValue :: Maybe [Docs.Documentation])


-- FIX docs/*.json