<commit_before>module Network.Oracle.BMC.Path
    ( expand )
    where

import           System.Directory (getHomeDirectory)
import           Data.Semigroup((<>))

-- | Expands a shorthand path expression i.e ~/Workspace will be expanded
--   to an absolute path including the users home directory
--
expand :: FilePath -> IO FilePath
expand p = do
    home <- getHomeDirectory
    return $ case p of
      ('~' : t) -> home <> t
      _         -> p<commit_msg>Update Path.hs<commit_after>module Network.Oracle.BMC.Path
    ( expand )
    where

import           System.Directory (getHomeDirectory)

-- | Expands a shorthand path expression i.e ~/Workspace will be expanded
--   to an absolute path including the users home directory
--
expand :: FilePath -> IO FilePath
expand p = do
    home <- getHomeDirectory
    return $ case p of
      ('~' : t) -> home ++ t
      _         -> p
{'fraction_non_alphanumeric': 0.10146561443066517, 'fraction_numerical': 0.0, 'mean_word_length': 2.338345864661654, 'pattern_counts': {'":': 0, '<': 7, '<?xml version=': 0, '>': 11, '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': '4487992', 'n_tokens_mistral': 256, 'n_tokens_neox': 251, 'n_words': 88}