<commit_before>
import System.Environment

import qualified Plumbing
import qualified Store.Mem as Mem
import qualified Store.Flat as Flat
import qualified Store.LevelDB as LevelDB
import qualified Store.RemoteHttp as Remote
import System.Directory as Dir

main :: IO ()
main = do
  [path] <- getArgs
  home <- Dir.getHomeDirectory
  treeId <- Plumbing.writeTree path $ Flat.createStore (home ++ "/.bitcloud")
  Plumbing.setRef "master" treeId $ LevelDB.createStore (home ++ "/.bitcloud/leveldb")
  return ()
  <commit_msg>Separated out calculating the app settings directory<commit_after>
import System.Environment

import qualified Plumbing
import qualified Store.Mem as Mem
import qualified Store.Flat as Flat
import qualified Store.LevelDB as LevelDB
import qualified Store.RemoteHttp as Remote
import System.Directory as Dir
import System.FilePath ( (</>) )
import System.Directory as Directory

main :: IO ()
main = do
  home <- Dir.getHomeDirectory
  let appUserDir = home </> ".clod"
  Directory.createDirectoryIfMissing False appUserDir
  [path] <- getArgs
  treeId <- Plumbing.writeTree path $ Flat.createStore (appUserDir)
  Plumbing.setRef "master" treeId $ LevelDB.createStore (appUserDir </> "leveldb")
  return ()
  
{'fraction_non_alphanumeric': 0.08854589764419171, 'fraction_numerical': 0.0, 'mean_word_length': 4.6255707762557075, 'pattern_counts': {'":': 0, '<': 12, '<?xml version=': 0, '>': 6, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '3323405', 'n_tokens_mistral': 357, 'n_tokens_neox': 342, 'n_words': 120}