%PDF-
%PDF-
Mini Shell
Mini Shell
{"version":3,"file":"highlight/haskell.js?v=af9589f1a8263e86270d","mappings":"+GAwNAA,EAAOC,QAhNP,SAAiBC,GAQf,MAAMC,EAAgB,aAChBC,EAAY,mBAMZC,EAAS,4EAETC,EAAU,CAAEC,SAAU,CAS1BL,EAAKI,QAAQ,MAAO,KACpBJ,EAAKI,QACH,MACA,MACA,CAAEE,SAAU,CAAE,YAIZC,EAAS,CACbC,UAAW,OACXC,MAAO,OACPC,IAAK,QAGDC,EAAe,CACnBH,UAAW,OACXC,MAAO,KACPC,IAAK,KAGDE,EAAc,CAClBJ,UAAW,OACXC,MAAO,kBACPI,UAAW,GAGPC,EAAO,CACXL,MAAO,MACPC,IAAK,MACLK,QAAS,IACTT,SAAU,CACRC,EACAI,EACA,CACEH,UAAW,OACXC,MAAO,0CAETT,EAAKgB,QAAQhB,EAAKiB,WAAY,CAAER,MAAO,kBACvCL,IAUEc,EAAS,CACbV,UAAW,SACXK,UAAW,EACXR,SAAU,CAER,CAAEc,MAAO,OAAOlB,UAAsBA,kBAAmCA,WAEzE,CAAEkB,MAAO,cAAcjB,UAAkBA,kBAA+BD,WAExE,CAAEkB,MAAO,2BAET,CAAEA,MAAO,4BAIb,MAAO,CACLC,KAAM,UACNC,QAAS,CAAE,MACXC,SACE,wOAIFC,cAAc,EACdjB,SAAU,CAER,CACEkB,cAAe,SACfd,IAAK,QACLY,SAAU,eACVhB,SAAU,CACRQ,EACAV,GAEFW,QAAS,YAEX,CACEN,MAAO,eACPC,IAAK,IACLY,SAAU,6BACVhB,SAAU,CACRQ,EACAV,GAEFW,QAAS,YAEX,CACEP,UAAW,QACXC,MAAO,8BACPC,IAAK,QACLY,SAAU,8BACVhB,SAAU,CACRM,EACAE,EACAV,IAGJ,CACEI,UAAW,QACXC,MAAO,0BACPC,IAAK,IACLY,SAAU,oCACVhB,SAAU,CACRC,EACAK,EACAE,EAvEO,CACbL,MAAO,KACPC,IAAK,KACLJ,SAAUQ,EAAKR,UAsETF,IAGJ,CACEoB,cAAe,UACfd,IAAK,IACLJ,SAAU,CACRM,EACAE,EACAV,IAGJ,CACEoB,cAAe,sBACfd,IAAK,IACLJ,SAAU,CACRN,EAAKyB,cACLrB,IAGJ,CACEK,MAAO,gBACPC,IAAK,IACLY,SAAU,uEAEVhB,SAAU,CACRM,EACAZ,EAAK0B,kBACLtB,IAGJ,CACEI,UAAW,OACXC,MAAO,kCACPC,IAAK,KAGPH,EACAI,EAKA,CACEgB,MAAO,SACPlB,MAAO,aACPC,IAAK,IACLJ,SAAU,CACR,CACEqB,MAAO,cACPR,MAAO,SAIbnB,EAAK0B,kBACLR,EACAN,EACAZ,EAAKgB,QAAQhB,EAAKiB,WAAY,CAAER,MAAO,mBAEvC,CAAEA,MAAO,QAAQN,gBAAqBA,KACtCC,EACA,CACEK,MAAO,UAGf,C","sources":["webpack:///text/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":["module","exports","hljs","decimalDigits","hexDigits","symbol","COMMENT","variants","contains","PRAGMA","className","begin","end","PREPROCESSOR","CONSTRUCTOR","relevance","LIST","illegal","inherit","TITLE_MODE","NUMBER","match","name","aliases","keywords","unicodeRegex","beginKeywords","C_NUMBER_MODE","QUOTE_STRING_MODE","scope"],"sourceRoot":""}
Zerion Mini Shell 1.0