<commit_before>
module Files (
 Root(..),
 removeBuildStepName,
 getMaybeBuildStepName,     putMaybeBuildStepName,
 readBuildStepName,         readMaybeBuildStepName,     writeBuildStepName,
 removeBuildStepSubdir,
 getMaybeBuildStepSubdir,   putMaybeBuildStepSubdir,
 readBuildStepSubdir,       readMaybeBuildStepSubdir,   writeBuildStepSubdir,
 removeBuildStepProg,
 getMaybeBuildStepProg,     putMaybeBuildStepProg,
 readBuildStepProg,         readMaybeBuildStepProg,     writeBuildStepProg,
 removeBuildStepArgs,
 getMaybeBuildStepArgs,     putMaybeBuildStepArgs,
 readBuildStepArgs,         readMaybeBuildStepArgs,     writeBuildStepArgs,
 removeBuildStepExitcode,
 getMaybeBuildStepExitcode, putMaybeBuildStepExitcode,
 readBuildStepExitcode,     readMaybeBuildStepExitcode, writeBuildStepExitcode,
 removeBuildStepOutput,
 getMaybeBuildStepOutput,   putMaybeBuildStepOutput,
 removeBuildResult,
 getMaybeBuildResult,       putMaybeBuildResult,
 readBuildResult,                                       writeBuildResult,
 removeBuildInstructions,
 getMaybeBuildInstructions, putMaybeBuildInstructions,
 readBuildInstructions,                                 writeBuildInstructions,
             ) where

import Utils

import Control.Monad.Trans
import Data.Maybe
import System.Directory
import System.Exit
import System.FilePath

data Root = Client FilePath
          | Server FilePath User

mkPath :: Root -> FilePath -> FilePath
mkPath (Client root)      fp = root </>          fp
mkPath (Server root user) fp = root </> user </> fp

-- Stuff in each build step

dirBuildStep :: BuildNum -> BuildStepNum -> FilePath
dirBuildStep bn bsn = "builds" </> show bn </> "steps" </> show bsn
<commit_msg>Fix warning<commit_after>
module Files (
 Root(..),
 removeBuildStepName,
 getMaybeBuildStepName,     putMaybeBuildStepName,
 readBuildStepName,         readMaybeBuildStepName,     writeBuildStepName,
 removeBuildStepSubdir,
 getMaybeBuildStepSubdir,   putMaybeBuildStepSubdir,
 readBuildStepSubdir,       readMaybeBuildStepSubdir,   writeBuildStepSubdir,
 removeBuildStepProg,
 getMaybeBuildStepProg,     putMaybeBuildStepProg,
 readBuildStepProg,         readMaybeBuildStepProg,     writeBuildStepProg,
 removeBuildStepArgs,
 getMaybeBuildStepArgs,     putMaybeBuildStepArgs,
 readBuildStepArgs,         readMaybeBuildStepArgs,     writeBuildStepArgs,
 removeBuildStepExitcode,
 getMaybeBuildStepExitcode, putMaybeBuildStepExitcode,
 readBuildStepExitcode,     readMaybeBuildStepExitcode, writeBuildStepExitcode,
 removeBuildStepOutput,
 getMaybeBuildStepOutput,   putMaybeBuildStepOutput,
 removeBuildResult,
 getMaybeBuildResult,       putMaybeBuildResult,
 readBuildResult,                                       writeBuildResult,
 removeBuildInstructions,
 getMaybeBuildInstructions, putMaybeBuildInstructions,
 readBuildInstructions,                                 writeBuildInstructions,
             ) where

import Utils

import Control.Monad.Trans
import System.Directory
import System.Exit
import System.FilePath

data Root = Client FilePath
          | Server FilePath User

mkPath :: Root -> FilePath -> FilePath
mkPath (Client root)      fp = root </>          fp
mkPath (Server root user) fp = root </> user </> fp

-- Stuff in each build step

dirBuildStep :: BuildNum -> BuildStepNum -> FilePath
dirBuildStep bn bsn = "builds" </> show bn </> "steps" </> show bsn

{'fraction_non_alphanumeric': 0.061170212765957445, 'fraction_numerical': 0.0, 'mean_word_length': 3.8426323319027182, 'pattern_counts': {'":': 0, '<': 15, '<?xml version=': 0, '>': 23, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 4, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '1098004', 'n_tokens_mistral': 915, 'n_tokens_neox': 912, 'n_words': 205}