示例#1
0
文件: index.js 项目: sebug/no-win-fs
 return function (_982) {
     if (_982 instanceof Data_Maybe.Just && _982.value0 instanceof Undo) {
         return Data_Maybe.fromMaybe(_981)(Prelude[">>="](Data_Maybe.bindMaybe)(pop(_981.value0))(function (_53) {
             return Prelude["return"](Data_Maybe.monadMaybe)(new UndoRedoState(_53.value1, _53.value0, new Push(_981.value1, _981.value2)));
         }));
     };
     if (_982 instanceof Data_Maybe.Just && _982.value0 instanceof Redo) {
         return Data_Maybe.fromMaybe(_981)(Prelude[">>="](Data_Maybe.bindMaybe)(pop(_981.value2))(function (_54) {
             return Prelude["return"](Data_Maybe.monadMaybe)(new UndoRedoState(new Push(_981.value1, _981.value0), _54.value0, _54.value1));
         }));
     };
     if (_982 instanceof Data_Maybe.Nothing) {
         return new UndoRedoState(new Push(_981.value1, _981.value0), f(_981.value1)(i), Empty.value);
     };
     throw new Error("Failed pattern match");
 };
示例#2
0
 return function (_53) {
     return Prelude["=="](Data_Maybe.eqMaybe(__dict_Eq_2))(_52)(_53);
 };
示例#3
0
 return function (_55) {
     return Prelude["/="](Data_Maybe.eqMaybe(__dict_Eq_2))(_54)(_55);
 };
示例#4
0
 return new Prelude.Show(function (_58) {
     return "First (" + (Prelude.show(Data_Maybe.showMaybe(__dict_Show_0))(_58) + ")");
 });
 return function (_165) {
     return Prelude.compare(Data_Maybe.ordMaybe(__dict_Ord_1))(_164)(_165);
 };
 return function (_161) {
     return Prelude["=="](Data_Maybe.eqMaybe(__dict_Eq_2))(_160)(_161);
 };
示例#7
0
文件: index.js 项目: sebug/no-win-fs
var eqNullable = function (__dict_Eq_2) {
    return new Prelude.Eq(Data_Function.on(Prelude["/="](Data_Maybe.eqMaybe(__dict_Eq_2)))(toMaybe), Data_Function.on(Prelude["=="](Data_Maybe.eqMaybe(__dict_Eq_2)))(toMaybe));
};
                            continue tco;
                        };
                        throw new Error("Failed pattern match");
                    };
                };
            };
            return go(xs)(ys);
        };
    };
};

/**
 *  | Filter an array of optional values, keeping only the elements which contain
 *  | a value, creating a new array.
 */
var catMaybes = concatMap(Data_Maybe.maybe([  ])(singleton));
var monadArray = new Prelude.Monad(function () {
    return applicativeArray;
}, function () {
    return bindArray;
});
var bindArray = new Prelude.Bind(Prelude.flip(concatMap), function () {
    return applyArray;
});
var applyArray = new Prelude.Apply(Prelude.ap(monadArray), function () {
    return functorArray;
});
var applicativeArray = new Prelude.Applicative(function () {
    return applyArray;
}, singleton);
var altArray = new Control_Alt.Alt(append, function () {
示例#9
0
 return new Monoid(function () {
     return Data_Maybe.semigroupMaybe(__dict_Semigroup_0);
 }, Data_Maybe.Nothing.value);
var boundedFirst = function (dictBounded) {
    return new Prelude.Bounded(Prelude.bottom(Data_Maybe.boundedMaybe(dictBounded)), Prelude.top(Data_Maybe.boundedMaybe(dictBounded)));
};
 return function (v1) {
     return Prelude.compare(Data_Maybe.ordMaybe(dictOrd))(v)(v1);
 };
 return function (v1) {
     return Prelude["=="](Data_Maybe.eqMaybe(dictEq))(v)(v1);
 };
 return new Prelude.Show(function (v) {
     return "First (" + (Prelude.show(Data_Maybe.showMaybe(dictShow))(v) + ")");
 });
示例#14
0
文件: index.js 项目: sebug/no-win-fs
var ordNullable = function (__dict_Ord_1) {
    return new Prelude.Ord(function () {
        return eqNullable(__dict_Ord_1["__superclass_Prelude.Eq_0"]());
    }, Data_Function.on(Prelude.compare(Data_Maybe.ordMaybe(__dict_Ord_1)))(toMaybe));
};
示例#15
0
 return function (_57) {
     return Prelude.compare(Data_Maybe.ordMaybe(__dict_Ord_1))(_56)(_57);
 };
示例#16
0
 return new Prelude.Show(function (_170) {
     return "Last (" + (Prelude.show(Data_Maybe.showMaybe(__dict_Show_0))(_170) + ")");
 });
示例#17
0
 return function (_163) {
     return Prelude["/="](Data_Maybe.eqMaybe(__dict_Eq_2))(_162)(_163);
 };
示例#18
0
var mapMaybe = function (f) {
    return concatMap(Prelude["<<<"](Prelude.semigroupoidArr)(Data_Maybe.maybe([  ])(singleton))(f));
};
示例#19
0
文件: index.js 项目: sebug/no-win-fs
// Generated by psc-make version 0.6.8
"use strict";
var Data_Maybe = require("Data.Maybe");
var Data_Function = require("Data.Function");
var Prelude = require("Prelude");
var $$null = null;
function nullable(a, r, f) {  return a === null || typeof a === 'undefined' ? r : f(a);};
function notNull(x) {  return x;};
var toNullable = Data_Maybe.maybe($$null)(notNull);
var toMaybe = function (n) {
    return nullable(n, Data_Maybe.Nothing.value, Data_Maybe.Just.create);
};
var showNullable = function (__dict_Show_0) {
    return new Prelude.Show(function (n) {
        var _1864 = toMaybe(n);
        if (_1864 instanceof Data_Maybe.Nothing) {
            return "null";
        };
        if (_1864 instanceof Data_Maybe.Just) {
            return Prelude.show(__dict_Show_0)(_1864.value0);
        };
        throw new Error("Failed pattern match");
    });
};
var eqNullable = function (__dict_Eq_2) {
    return new Prelude.Eq(Data_Function.on(Prelude["/="](Data_Maybe.eqMaybe(__dict_Eq_2)))(toMaybe), Data_Function.on(Prelude["=="](Data_Maybe.eqMaybe(__dict_Eq_2)))(toMaybe));
};
var ordNullable = function (__dict_Ord_1) {
    return new Prelude.Ord(function () {
        return eqNullable(__dict_Ord_1["__superclass_Prelude.Eq_0"]());
    }, Data_Function.on(Prelude.compare(Data_Maybe.ordMaybe(__dict_Ord_1)))(toMaybe));