Edit File by line

// CodeMirror, copyright (c) by Marijn Haverbeke and others

[0] Fix | Delete

// Distributed under an MIT license: http://codemirror.net/LICENSE

[1] Fix | Delete

[2] Fix | Delete

(function (mod) {

[3] Fix | Delete

if (typeof exports == "object" && typeof module == "object") // CommonJS

[4] Fix | Delete

mod(require("../../lib/codemirror"), require("../haskell/haskell"))

[5] Fix | Delete

else if (typeof define == "function" && define.amd) // AMD

[6] Fix | Delete

define(["../../lib/codemirror", "../haskell/haskell"], mod)

[7] Fix | Delete

else // Plain browser env

[8] Fix | Delete

mod(CodeMirror)

[9] Fix | Delete

})(function (CodeMirror) {

[10] Fix | Delete

"use strict"

[11] Fix | Delete

[12] Fix | Delete

CodeMirror.defineMode("haskell-literate", function (config, parserConfig) {

[13] Fix | Delete

var baseMode = CodeMirror.getMode(config, (parserConfig && parserConfig.base) || "haskell")

[14] Fix | Delete

[15] Fix | Delete

return {

[16] Fix | Delete

startState: function () {

[17] Fix | Delete

return {

[18] Fix | Delete

inCode: false,

[19] Fix | Delete

baseState: CodeMirror.startState(baseMode)

[20] Fix | Delete

}

[21] Fix | Delete

[22] Fix | Delete

token: function (stream, state) {

[23] Fix | Delete

if (stream.sol()) {

[24] Fix | Delete

if (state.inCode = stream.eat(">"))

[25] Fix | Delete

return "meta"

[26] Fix | Delete

}

[27] Fix | Delete

if (state.inCode) {

[28] Fix | Delete

return baseMode.token(stream, state.baseState)

[29] Fix | Delete

} else {

[30] Fix | Delete

stream.skipToEnd()

[31] Fix | Delete

return "comment"

[32] Fix | Delete

}

[33] Fix | Delete

[34] Fix | Delete

innerMode: function (state) {

[35] Fix | Delete

return state.inCode ? {state: state.baseState, mode: baseMode} : null

[36] Fix | Delete

}

[37] Fix | Delete

}

[38] Fix | Delete

}, "haskell")

[39] Fix | Delete

[40] Fix | Delete

CodeMirror.defineMIME("text/x-literate-haskell", "haskell-literate")

[41] Fix | Delete

});

[42] Fix | Delete

[43] Fix | Delete