<commit_before>module Main where

import           Control.Monad (replicateM_)
import           Data.Aeson    (encode)
import           Data.Time     (getCurrentTime)
import           System.IO     (readFile)

main :: IO ()
main = do
  putStrLn "Enter a message: "
  message <- getLine
  putStrLn "Enter a number of times to print: "
  repeat <- getLine

  replicateM_ (read repeat) (putStrLn message)
  -- putStrLn "Enter your name: "
  -- name <- getLine
  -- putStrLn $ greet name
  -- putStrLn $ greet "World"<commit_msg>Clean up a bit of the code<commit_after>module Main where

import           Control.Monad (replicateM_)
import           Data.Aeson    (encode)
import           Data.Time     (getCurrentTime)
import           System.IO     (readFile)

main :: IO ()
main = do
  putStrLn "Enter a message: "
  message <- getLine
  putStrLn "Enter a number of times to print: "
  repeat <- readLn

  -- when this is specialized to IO () the
  -- return type is IO ()
  replicateM_ repeat (putStrLn message)
  -- putStrLn "Enter your name: "
  -- name <- getLine
  -- putStrLn $ greet name
  -- putStrLn $ greet "World"
{'fraction_non_alphanumeric': 0.09608540925266904, 'fraction_numerical': 0.0, 'mean_word_length': 2.3582089552238807, 'pattern_counts': {'":': 0, '<': 9, '<?xml version=': 0, '>': 3, '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': '1006746', 'n_tokens_mistral': 370, 'n_tokens_neox': 357, 'n_words': 119}