<commit_before>module Language.Haskell.GHC.ExactPrint.Lookup (keywordToString) where

import GHC (AnnKeywordId(..))

keywordToString :: AnnKeywordId -> String
keywordToString kw =
  case kw of
      AnnAs    -> "as"
      AnnAt   -> "at"
      AnnBang  -> "!"
      AnnBackquote   -> "`"
      AnnBy   -> "by"
      AnnCase  -> "case"
      AnnClass    -> "class"
--      AnnClose   -> ""
      AnnCloseC  -> "}"
      AnnCloseP  -> ")"
      AnnCloseS  -> "]"
      AnnColon    -> ":"
      AnnComma   -> ","
      AnnCommaTuple  -> ","
      AnnDarrow  -> "=>"
      AnnData   -> "data"
      AnnDcolon  -> "::"
      AnnDefault    -> "default"
      AnnDeriving   -> "deriving"
      AnnDo   -> "do"
      AnnDot   -> "."
      AnnDotdot  -> ".."
      AnnElse   -> "else"
      AnnEqual    -> "="
      AnnExport   -> "export"
      AnnFamily   -> "family"
      AnnForall   -> "forall"
      AnnForeign    -> "foreign"
--      AnnFunId   -> ""
      AnnGroup    -> "group"
--      AnnHeader  -> ""
--      for CType
      AnnHiding   -> "hiding"
      AnnIf   -> "if"
      AnnImport   -> "import"
      AnnIn   -> "in"
--      AnnInfix   -> ""
      AnnInstance   -> "instance"
      AnnLam    -> "\\"
      AnnLarrow  -> "<-"
      AnnLet    -> "let"
      AnnMdo    -> "mdo"
      AnnMinus   -> "-"
      AnnModule   -> "module"
      AnnNewtype   -> "newtype"
      AnnOf   -> "of"
      AnnOpen  -> ""
      AnnOpenC   -> "{"
      AnnOpenP   -> "("
      AnnOpenS   -> "["
--      AnnPackageName    -> "?"
      AnnPattern    -> "pattern"
      AnnProc   -> "proc"
      AnnQualified   -> "qualified"
      AnnRarrow  -> "->"
      AnnRec    -> "rec"
      AnnRole   -> "role"
      AnnSafe   -> "safe"
      AnnSemi  -> ";"
      AnnStatic  -> "static"
      AnnThen   -> "then"
      AnnTilde   -> "~"
      AnnTildehsh  -> "~#"
      AnnType   -> "type"
      AnnUnit  -> "()"
      AnnUsing    -> "using"
      AnnVbar  -> "|"
      AnnWhere    -> "where"
      Annlarrowtail  -> "-<"
      Annrarrowtail  -> "->"
      AnnLarrowtail  -> "-<<"
      AnnRarrowtail  -> ">>-"
      AnnEofPos -> ""

<commit_msg>Fix rendering of AnnAt<commit_after>module Language.Haskell.GHC.ExactPrint.Lookup (keywordToString) where

import GHC (AnnKeywordId(..))

keywordToString :: AnnKeywordId -> String
keywordToString kw =
  case kw of
      AnnAs    -> "as"
      AnnAt   -> "@"
      AnnBang  -> "!"
      AnnBackquote   -> "`"
      AnnBy   -> "by"
      AnnCase  -> "case"
      AnnClass    -> "class"
--      AnnClose   -> ""
      AnnCloseC  -> "}"
      AnnCloseP  -> ")"
      AnnCloseS  -> "]"
      AnnColon    -> ":"
      AnnComma   -> ","
      AnnCommaTuple  -> ","
      AnnDarrow  -> "=>"
      AnnData   -> "data"
      AnnDcolon  -> "::"
      AnnDefault    -> "default"
      AnnDeriving   -> "deriving"
      AnnDo   -> "do"
      AnnDot   -> "."
      AnnDotdot  -> ".."
      AnnElse   -> "else"
      AnnEqual    -> "="
      AnnExport   -> "export"
      AnnFamily   -> "family"
      AnnForall   -> "forall"
      AnnForeign    -> "foreign"
--      AnnFunId   -> ""
      AnnGroup    -> "group"
--      AnnHeader  -> ""
--      for CType
      AnnHiding   -> "hiding"
      AnnIf   -> "if"
      AnnImport   -> "import"
      AnnIn   -> "in"
--      AnnInfix   -> ""
      AnnInstance   -> "instance"
      AnnLam    -> "\\"
      AnnLarrow  -> "<-"
      AnnLet    -> "let"
      AnnMdo    -> "mdo"
      AnnMinus   -> "-"
      AnnModule   -> "module"
      AnnNewtype   -> "newtype"
      AnnOf   -> "of"
      AnnOpen  -> ""
      AnnOpenC   -> "{"
      AnnOpenP   -> "("
      AnnOpenS   -> "["
--      AnnPackageName    -> "?"
      AnnPattern    -> "pattern"
      AnnProc   -> "proc"
      AnnQualified   -> "qualified"
      AnnRarrow  -> "->"
      AnnRec    -> "rec"
      AnnRole   -> "role"
      AnnSafe   -> "safe"
      AnnSemi  -> ";"
      AnnStatic  -> "static"
      AnnThen   -> "then"
      AnnTilde   -> "~"
      AnnTildehsh  -> "~#"
      AnnType   -> "type"
      AnnUnit  -> "()"
      AnnUsing    -> "using"
      AnnVbar  -> "|"
      AnnWhere    -> "where"
      Annlarrowtail  -> "-<"
      Annrarrowtail  -> "->"
      AnnLarrowtail  -> "-<<"
      AnnRarrowtail  -> ">>-"
      AnnEofPos -> ""


{'fraction_non_alphanumeric': 0.1712875939849624, 'fraction_numerical': 0.0, 'mean_word_length': 1.3161044613710555, 'pattern_counts': {'":': 4, '<': 11, '<?xml version=': 0, '>': 159, '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': '3511773', 'n_tokens_mistral': 1494, 'n_tokens_neox': 1464, 'n_words': 252}