← Back
Editing: haskell-CbHKckgW.chunk.mjs.map
{"version":3,"file":"haskell-CbHKckgW.chunk.mjs","sources":["../node_modules/highlight.js/lib/languages/haskell.js"],"sourcesContent":["/*\nLanguage: Haskell\nAuthor: Jeremy Hull <sourdrums@gmail.com>\nContributors: Zena Treep <zena.treep@gmail.com>\nWebsite: https://www.haskell.org\nCategory: functional\n*/\n\nfunction haskell(hljs) {\n\n /* See:\n - https://www.haskell.org/onlinereport/lexemes.html\n - https://downloads.haskell.org/ghc/9.0.1/docs/html/users_guide/exts/binary_literals.html\n - https://downloads.haskell.org/ghc/9.0.1/docs/html/users_guide/exts/numeric_underscores.html\n - https://downloads.haskell.org/ghc/9.0.1/docs/html/users_guide/exts/hex_float_literals.html\n */\n const decimalDigits = '([0-9]_*)+';\n const hexDigits = '([0-9a-fA-F]_*)+';\n const binaryDigits = '([01]_*)+';\n const octalDigits = '([0-7]_*)+';\n const ascSymbol = '[!#$%&*+.\\\\/<=>?@\\\\\\\\^~-]';\n const uniSymbol = '(\\\\p{S}|\\\\p{P})'; // Symbol or Punctuation\n const special = '[(),;\\\\[\\\\]`|{}]';\n const symbol = `(${ascSymbol}|(?!(${special}|[_:\"']))${uniSymbol})`;\n\n const COMMENT = { variants: [\n // Double dash forms a valid comment only if it's not part of legal lexeme.\n // See: Haskell 98 report: https://www.haskell.org/onlinereport/lexemes.html\n //\n // The commented code does the job, but we can't use negative lookbehind,\n // due to poor support by Safari browser.\n // > hljs.COMMENT(`(?<!${symbol})--+(?!${symbol})`, '$'),\n // So instead, we'll add a no-markup rule before the COMMENT rule in the rules list\n // to match the problematic infix operators that contain double dash.\n hljs.COMMENT('--+', '$'),\n hljs.COMMENT(\n /\\{-/,\n /-\\}/,\n { contains: [ 'self' ] }\n )\n ] };\n\n const PRAGMA = {\n className: 'meta',\n begin: /\\{-#/,\n end: /#-\\}/\n };\n\n const PREPROCESSOR = {\n className: 'meta',\n begin: '^#',\n end: '$'\n };\n\n const CONSTRUCTOR = {\n className: 'type',\n begin: '\\\\b[A-Z][\\\\w\\']*', // TODO: other constructors (build-in, infix).\n relevance: 0\n };\n\n const LIST = {\n begin: '\\\\(',\n end: '\\\\)',\n illegal: '\"',\n contains: [\n PRAGMA,\n PREPROCESSOR,\n {\n className: 'type',\n begin: '\\\\b[A-Z][\\\\w]*(\\\\((\\\\.\\\\.|,|\\\\w+)\\\\))?'\n },\n hljs.inherit(hljs.TITLE_MODE, { begin: '[_a-z][\\\\w\\']*' }),\n COMMENT\n ]\n };\n\n const RECORD = {\n begin: /\\{/,\n end: /\\}/,\n contains: LIST.contains\n };\n\n const NUMBER = {\n className: 'number',\n relevance: 0,\n variants: [\n // decimal floating-point-literal (subsumes decimal-literal)\n { match: `\\\\b(${decimalDigits})(\\\\.(${decimalDigits}))?` + `([eE][+-]?(${decimalDigits}))?\\\\b` },\n // hexadecimal floating-point-literal (subsumes hexadecimal-literal)\n { match: `\\\\b0[xX]_*(${hexDigits})(\\\\.(${hexDigits}))?` + `([pP][+-]?(${decimalDigits}))?\\\\b` },\n // octal-literal\n { match: `\\\\b0[oO](${octalDigits})\\\\b` },\n // binary-literal\n { match: `\\\\b0[bB](${binaryDigits})\\\\b` }\n ]\n };\n\n return {\n name: 'Haskell',\n aliases: [ 'hs' ],\n keywords:\n 'let in if then else case of where do module import hiding '\n + 'qualified type data newtype deriving class instance as default '\n + 'infix infixl infixr foreign export ccall stdcall cplusplus '\n + 'jvm dotnet safe unsafe family forall mdo proc rec',\n unicodeRegex: true,\n contains: [\n // Top-level constructions.\n {\n beginKeywords: 'module',\n end: 'where',\n keywords: 'module where',\n contains: [\n LIST,\n COMMENT\n ],\n illegal: '\\\\W\\\\.|;'\n },\n {\n begin: '\\\\bimport\\\\b',\n end: '$',\n keywords: 'import qualified as hiding',\n contains: [\n LIST,\n COMMENT\n ],\n illegal: '\\\\W\\\\.|;'\n },\n {\n className: 'class',\n begin: '^(\\\\s*)?(class|instance)\\\\b',\n end: 'where',\n keywords: 'class family instance where',\n contains: [\n CONSTRUCTOR,\n LIST,\n COMMENT\n ]\n },\n {\n className: 'class',\n begin: '\\\\b(data|(new)?type)\\\\b',\n end: '$',\n keywords: 'data family type newtype deriving',\n contains: [\n PRAGMA,\n CONSTRUCTOR,\n LIST,\n RECORD,\n COMMENT\n ]\n },\n {\n beginKeywords: 'default',\n end: '$',\n contains: [\n CONSTRUCTOR,\n LIST,\n COMMENT\n ]\n },\n {\n beginKeywords: 'infix infixl infixr',\n end: '$',\n contains: [\n hljs.C_NUMBER_MODE,\n COMMENT\n ]\n },\n {\n begin: '\\\\bforeign\\\\b',\n end: '$',\n keywords: 'foreign import export ccall stdcall cplusplus jvm '\n + 'dotnet safe unsafe',\n contains: [\n CONSTRUCTOR,\n hljs.QUOTE_STRING_MODE,\n COMMENT\n ]\n },\n {\n className: 'meta',\n begin: '#!\\\\/usr\\\\/bin\\\\/env\\ runhaskell',\n end: '$'\n },\n // \"Whitespaces\".\n PRAGMA,\n PREPROCESSOR,\n\n // Literals and names.\n\n // Single characters.\n {\n scope: 'string',\n begin: /'(?=\\\\?.')/,\n end: /'/,\n contains: [\n {\n scope: 'char.escape',\n match: /\\\\./,\n },\n ]\n },\n hljs.QUOTE_STRING_MODE,\n NUMBER,\n CONSTRUCTOR,\n hljs.inherit(hljs.TITLE_MODE, { begin: '^[_a-z][\\\\w\\']*' }),\n // No markup, prevents infix operators from being recognized as comments.\n { begin: `(?!-)${symbol}--+|--+(?!-)${symbol}`},\n COMMENT,\n { // No markup, relevance booster\n begin: '->|<-' }\n ]\n };\n}\n\nmodule.exports = haskell;\n"],"names":["haskell","hljs","decimalDigits","hexDigits","binaryDigits","octalDigits","symbol","COMMENT","PRAGMA","PREPROCESSOR","CONSTRUCTOR","LIST","RECORD","NUMBER","haskell_1"],"mappings":"uCAQA,SAASA,EAAQC,EAAM,CAQrB,MAAMC,EAAgB,aAChBC,EAAY,mBACZC,EAAe,YACfC,EAAc,aAIdC,EAAS,4EAETC,EAAU,CAAE,SAAU,CAS1BN,EAAK,QAAQ,MAAO,GAAG,EACvBA,EAAK,QACH,MACA,MACA,CAAE,SAAU,CAAE,MAAM,CAAE,CAC5B,CACA,CAAG,EAEKO,EAAS,CACb,UAAW,OACX,MAAO,OACP,IAAK,QAGDC,EAAe,CACnB,UAAW,OACX,MAAO,KACP,IAAK,KAGDC,EAAc,CAClB,UAAW,OACX,MAAO,kBACP,UAAW,GAGPC,EAAO,CACX,MAAO,MACP,IAAK,MACL,QAAS,IACT,SAAU,CACRH,EACAC,EACA,CACE,UAAW,OACX,MAAO,0CAETR,EAAK,QAAQA,EAAK,WAAY,CAAE,MAAO,gBAAkB,EACzDM,CACN,GAGQK,EAAS,CACb,MAAO,KACP,IAAK,KACL,SAAUD,EAAK,UAGXE,EAAS,CACb,UAAW,SACX,UAAW,EACX,SAAU,CAER,CAAE,MAAO,OAAOX,CAAa,SAASA,CAAa,iBAAsBA,CAAa,QAAQ,EAE9F,CAAE,MAAO,cAAcC,CAAS,SAASA,CAAS,iBAAsBD,CAAa,QAAQ,EAE7F,CAAE,MAAO,YAAYG,CAAW,MAAM,EAEtC,CAAE,MAAO,YAAYD,CAAY,MAAM,CAC7C,GAGE,MAAO,CACL,KAAM,UACN,QAAS,CAAE,IAAI,EACf,SACE,wOAIF,aAAc,GACd,SAAU,CAER,CACE,cAAe,SACf,IAAK,QACL,SAAU,eACV,SAAU,CACRO,EACAJ,GAEF,QAAS,YAEX,CACE,MAAO,eACP,IAAK,IACL,SAAU,6BACV,SAAU,CACRI,EACAJ,GAEF,QAAS,YAEX,CACE,UAAW,QACX,MAAO,8BACP,IAAK,QACL,SAAU,8BACV,SAAU,CACRG,EACAC,EACAJ,CACV,GAEM,CACE,UAAW,QACX,MAAO,0BACP,IAAK,IACL,SAAU,oCACV,SAAU,CACRC,EACAE,EACAC,EACAC,EACAL,CACV,GAEM,CACE,cAAe,UACf,IAAK,IACL,SAAU,CACRG,EACAC,EACAJ,CACV,GAEM,CACE,cAAe,sBACf,IAAK,IACL,SAAU,CACRN,EAAK,cACLM,CACV,GAEM,CACE,MAAO,gBACP,IAAK,IACL,SAAU,uEAEV,SAAU,CACRG,EACAT,EAAK,kBACLM,CACV,GAEM,CACE,UAAW,OACX,MAAO,kCACP,IAAK,KAGPC,EACAC,EAKA,CACE,MAAO,SACP,MAAO,aACP,IAAK,IACL,SAAU,CACR,CACE,MAAO,cACP,MAAO,MAEnB,GAEMR,EAAK,kBACLY,EACAH,EACAT,EAAK,QAAQA,EAAK,WAAY,CAAE,MAAO,iBAAmB,EAE1D,CAAE,MAAO,QAAQK,CAAM,eAAeA,CAAM,EAAE,EAC9CC,EACA,CACE,MAAO,OAAO,CACtB,EAEA,CAEA,OAAAO,EAAiBd","x_google_ignoreList":[0]}
Save File
Cancel