<commit_before>module Main (main) where

import Language.Haskell.HLint (hlint)
import System.Exit (exitFailure, exitSuccess)

arguments :: [String]
arguments =
  [ "library"
  , "library-gen"
  , "tests"
  , "-i", "Use newtype instead of data"
  ]

main :: IO ()
main = do
  hints <- hlint arguments
  if null hints then exitSuccess else exitFailure<commit_msg>Fix HLint tests for LANGUAGE pragma<commit_after>module Main (main) where

import Language.Haskell.HLint (hlint)
import System.Exit (exitFailure, exitSuccess)

arguments :: [String]
arguments =
  [ "library"
  , "library-gen"
  , "tests"
  , "-i", "Use newtype instead of data"
  , "-i", "Unused LANGUAGE pragma"
  ]

main :: IO ()
main = do
  hints <- hlint arguments
  if null hints then exitSuccess else exitFailure
{'fraction_non_alphanumeric': 0.11938382541720154, 'fraction_numerical': 0.0, 'mean_word_length': 4.064935064935065, 'pattern_counts': {'":': 0, '<': 5, '<?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': '2588383', 'n_tokens_mistral': 266, 'n_tokens_neox': 258, 'n_words': 82}