main :: IO ()
main =
  do s  <- newSiteState (disableWrite localStorage)
                        (disableWrite localSharedStorage)
     cats <- loadCats
     fs <- listFuns s FilterAll
     infos <- mapM (getFunInfo s cats) fs
     BS.putStrLn $ BS.append "var data = "
                 $ JS.encode [ summarize i | Right i <- infos ]
main :: IO ()
main =
  do s  <- newSiteState (disableWrite localStorage)
                        (disableWrite localSharedStorage)
     cats <- loadCats
     fs <- listFuns s FilterAll
     infos <- mapM (getFunInfo s cats) fs
     BS.putStrLn $ BS.append "var data = "
                 $ JS.encode [ summarize i | Right i <- infos ]
main =
  do s  <- newSiteState (disableWrite localStorage)
                        (disableWrite localSharedStorage)
     cats <- loadCats
     fs <- listFuns s FilterAll
     infos <- mapM (getFunInfo s cats) fs
     BS.putStrLn $ BS.append "var data = "
                 $ JS.encode [ summarize i | Right i <- infos ]