<commit_before>{-# LANGUAGE DeriveDataTypeable
           , FlexibleContexts
           , FlexibleInstances
           , KindSignatures
           , MultiParamTypeClasses
           , OverlappingInstances
           , RankNTypes
           , TypeOperators
           #-}

{-# OPTIONS_GHC -fno-warn-unused-binds -fwarn-incomplete-patterns #-}

module Translations
    ( Compilation
    , compileN
    , compileAO
    -- , compileAONew
    , compileS
    -- , compileS2
    , compileSAU
    , compileSN
    , compileBN
    , compileBS
    , compileUnbox
    , compileAoptUnbox
    -- , compileAoptUnbox2
    , compileSU
    , compileBSAU
    , sf2java
    , compilesf2java
    , DumpOption(..)
    ) where

import Parser    (reader)
import TypeCheck (typeCheck)
import Desugar   (desugar)
import Simplify  (simplify)

import qualified Core
import ClosureF

import PrettyUtils
import JavaUtils      (ClassName, inferClassName)

import BaseTransCFJava
-- import ApplyTransCFJava
-- import StackTransCFJava
-- import qualified ApplyTransCFJava2 as A
-- import qualified StackTransCFJava2 as S
import ApplyTransCFJava2
import StackTransCFJava2
import BenchGenCF2J
import BenchGenStack
import UnboxTransCFJava

import Inliner
import PartialEvaluator

import Inheritance
import MonadLib

import qualified Language.Java.Syntax as J
import Language.Java.Pretty

import Text.PrettyPrint.Leijen

import System.Exit (exitFailure)

import Data.Data

import qualified Data.Map as Map
import qualified Data.Set as Set

import Prelude hiding (exp)

-- import Control.Monad.Trans.Error (runErrorT)

-- import Debug.Trace      (trace)

data DumpOption
  = NoDump
  | DumpParsed<commit_msg>Stupid mistake.<commit_after>{-# LANGUAGE DeriveDataTypeable
           , FlexibleContexts
           , FlexibleInstances
           , KindSignatures
           , MultiParamTypeClasses
           , OverlappingInstances
           , RankNTypes
           , TypeOperators
           #-}

{-# OPTIONS_GHC -fno-warn-unused-binds -fwarn-incomplete-patterns #-}

module Translations
    ( Compilation
    , compileN
    , compileAO
    -- , compileAONew
    , compileS
    -- , compileS2
    , compileSAU
    , compileSN
    , compileBN
    , compileBS
    , compileUnbox
    , compileAoptUnbox
    -- , compileAoptUnbox2
    , compileSU
    , compileBSAU
    , sf2java
    , compilesf2java
    , DumpOption(..)
    ) where

import Parser    (reader)
import TypeCheck (typeCheck)
import Desugar   (desugar)
import Simplify  (simplify)

import qualified Core
import ClosureF

import PrettyUtils
import JavaUtils      (ClassName, inferClassName)

import BaseTransCFJava
import ApplyTransCFJava
import StackTransCFJava
import BenchGenCF2J
import BenchGenStack
import UnboxTransCFJava

import Inliner
import PartialEvaluator

import Inheritance
import MonadLib

import qualified Language.Java.Syntax as J
import Language.Java.Pretty

import Text.PrettyPrint.Leijen

import System.Exit (exitFailure)

import Data.Data

import qualified Data.Map as Map
import qualified Data.Set as Set

import Prelude hiding (exp)

-- import Control.Monad.Trans.Error (runErrorT)

-- import Debug.Trace      (trace)

data DumpOption
  = NoDump
  | DumpParsed
{'fraction_non_alphanumeric': 0.0634375, 'fraction_numerical': 0.004375, 'mean_word_length': 2.9763975155279505, 'pattern_counts': {'":': 0, '<': 3, '<?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': '481122', 'n_tokens_mistral': 999, 'n_tokens_neox': 974, 'n_words': 244}