<commit_before>{-# LANGUAGE TemplateHaskell #-}

module Main where

import           Run

import           Data.String        (fromString)

import           System.Directory
import           System.Environment (getArgs)


main :: IO ()
main = do
    args <- getArgs
    let args = map fromString args
        [command, path'] = take 2 args
    path <- createDirectoryIfMissing True path' >> canonicalizePath path'
    res <- case command of
      "init"  -> run Init path
      "enter"  -> run Enter path
      "clear"  -> run Clear path
      "commit"  -> run (Commit $ args !! 2) path<commit_msg>fix: main loop<commit_after>{-# LANGUAGE TemplateHaskell #-}

module Main where

import           Run

import           Data.String        (fromString)

import           System.Directory
import           System.Environment (getArgs)


main :: IO ()
main = do
    args' <- getArgs
    let args = map fromString args'
        [command, path'] = take 2 args
    path <- createDirectoryIfMissing True path' >> canonicalizePath path'
    res <- case command of
      "init"  -> run Init path
      "enter"  -> run Enter path
      "clear"  -> run Clear path
      "commit"  -> run (Commit $ args !! 2) path
{'fraction_non_alphanumeric': 0.09924937447873228, 'fraction_numerical': 0.003336113427856547, 'mean_word_length': 2.10077519379845, 'pattern_counts': {'":': 0, '<': 9, '<?xml version=': 0, '>': 15, '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': '6218485', 'n_tokens_mistral': 350, 'n_tokens_neox': 337, 'n_words': 121}