<commit_before>module GenericDeriving where

import Prelude

import Data.Generic

data Void

derive instance genericVoid :: Generic Void

data A a 
  = A Number String
  | B Int
  | C (Array (A a)) 
  | D { a :: a }
  | E Void

derive instance genericA :: (Generic a) => Generic (A a)

main = Control.Monad.Eff.Console.log (gShow (D { a: C [ A 1.0 "test", B 42, D { a: true } ] }))
<commit_msg>Added a type signatue to main.<commit_after>module GenericDeriving where

import Prelude

import Control.Monad.Eff (Eff())
import Control.Monad.Eff.Console (CONSOLE())
import Data.Generic

data Void

derive instance genericVoid :: Generic Void

data A a 
  = A Number String
  | B Int
  | C (Array (A a)) 
  | D { a :: a }
  | E Void

derive instance genericA :: (Generic a) => Generic (A a)

main :: forall eff. Eff (console :: CONSOLE | eff) Unit
main = Control.Monad.Eff.Console.log (gShow (D { a: C [ A 1.0 "test", B 42, D { a: true } ] }))

{'fraction_non_alphanumeric': 0.12779552715654952, 'fraction_numerical': 0.008519701810436636, 'mean_word_length': 3.234234234234234, 'pattern_counts': {'":': 0, '<': 3, '<?xml version=': 0, '>': 5, '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': '7547385', 'n_tokens_mistral': 351, 'n_tokens_neox': 340, 'n_words': 125}