<commit_before>{-# LANGUAGE OverloadedStrings #-}
module Main
    ( main
    ) where

import Control.Monad (forM_)
import System.Random (randomRIO)

import qualified Data.Text as T

import Sihemo
import Sihemo.Client
import Sihemo.Types

randomCheck :: IO Bool
randomCheck = do
    random <- randomRIO (0 :: Int, 10)
    return $ random > 0

main :: IO ()
main = runSihemoWith (\_ -> return ()) $ \monitor ->
    forM_ [1 :: Int .. 5] $ \i ->
        forM_ (services i) $ \s ->
            checkEvery monitor s 10 12 randomCheck
  where
    services nr = map (Service group) ["usb", "gyrid", "ping", "ssh"]
      where
        group = "gyrid-" `T.append` (T.pack (show nr))
<commit_msg>Remove random gyrid data<commit_after>{-# LANGUAGE OverloadedStrings #-}
module Main
    ( main
    ) where

import Sihemo (runSihemo)

main :: IO ()
main = runSihemo

{'fraction_non_alphanumeric': 0.12895662368112543, 'fraction_numerical': 0.011723329425556858, 'mean_word_length': 2.8468468468468466, 'pattern_counts': {'":': 0, '<': 4, '<?xml version=': 0, '>': 8, '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': '2425052', 'n_tokens_mistral': 302, 'n_tokens_neox': 290, 'n_words': 92}