{"version":3,"file":"haskell-CDbzIoQO.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":"4YAQA,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,OAAU,CACzB,CACL,GAEQO,EAAS,CACb,UAAW,OACX,MAAO,OACP,IAAK,MACT,EAEQC,EAAe,CACnB,UAAW,OACX,MAAO,KACP,IAAK,GACT,EAEQC,EAAc,CAClB,UAAW,OACX,MAAO,kBACP,UAAW,CACf,EAEQC,EAAO,CACX,MAAO,MACP,IAAK,MACL,QAAS,IACT,SAAU,CACRH,EACAC,EACA,CACE,UAAW,OACX,MAAO,wCACR,EACDR,EAAK,QAAQA,EAAK,WAAY,CAAE,MAAO,gBAAkB,EACzDM,CACD,CACL,EAEQK,EAAS,CACb,MAAO,KACP,IAAK,KACL,SAAUD,EAAK,QACnB,EAEQE,EAAS,CACb,UAAW,SACX,UAAW,EACX,SAAU,CAER,CAAE,MAAO,OAAOX,CAAa,SAASA,CAAa,iBAAsBA,CAAa,QAAU,EAEhG,CAAE,MAAO,cAAcC,CAAS,SAASA,CAAS,iBAAsBD,CAAa,QAAU,EAE/F,CAAE,MAAO,YAAYG,CAAW,MAAQ,EAExC,CAAE,MAAO,YAAYD,CAAY,MAAQ,CAC1C,CACL,EAEE,MAAO,CACL,KAAM,UACN,QAAS,CAAE,IAAM,EACjB,SACE,wOAIF,aAAc,GACd,SAAU,CAER,CACE,cAAe,SACf,IAAK,QACL,SAAU,eACV,SAAU,CACRO,EACAJ,CACD,EACD,QAAS,UACV,EACD,CACE,MAAO,eACP,IAAK,IACL,SAAU,6BACV,SAAU,CACRI,EACAJ,CACD,EACD,QAAS,UACV,EACD,CACE,UAAW,QACX,MAAO,8BACP,IAAK,QACL,SAAU,8BACV,SAAU,CACRG,EACAC,EACAJ,CACD,CACF,EACD,CACE,UAAW,QACX,MAAO,0BACP,IAAK,IACL,SAAU,oCACV,SAAU,CACRC,EACAE,EACAC,EACAC,EACAL,CACD,CACF,EACD,CACE,cAAe,UACf,IAAK,IACL,SAAU,CACRG,EACAC,EACAJ,CACD,CACF,EACD,CACE,cAAe,sBACf,IAAK,IACL,SAAU,CACRN,EAAK,cACLM,CACD,CACF,EACD,CACE,MAAO,gBACP,IAAK,IACL,SAAU,uEAEV,SAAU,CACRG,EACAT,EAAK,kBACLM,CACD,CACF,EACD,CACE,UAAW,OACX,MAAO,kCACP,IAAK,GACN,EAEDC,EACAC,EAKA,CACE,MAAO,SACP,MAAO,aACP,IAAK,IACL,SAAU,CACR,CACE,MAAO,cACP,MAAO,KACR,CACF,CACF,EACDR,EAAK,kBACLY,EACAH,EACAT,EAAK,QAAQA,EAAK,WAAY,CAAE,MAAO,iBAAmB,EAE1D,CAAE,MAAO,QAAQK,CAAM,eAAeA,CAAM,EAAE,EAC9CC,EACA,CACE,MAAO,OAAS,CACnB,CACL,CACA,CAEA,IAAAO,EAAiBd","x_google_ignoreList":[0]}