Navigation Menu

Skip to content

Instantly share code, notes, and snippets.

@paulcc

paulcc/Files.hs

Created November 27, 2012 23:02
Show Gist options
  • Star 1 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save paulcc/4157816 to your computer and use it in GitHub Desktop.
Save paulcc/4157816 to your computer and use it in GitHub Desktop.
Download ZIP
Async JS via Fay (Haskell) - see the December PragPub Magazine article
Raw
Files.hs
{-# LANGUAGE RankNTypes #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE NoMonomorphismRestriction #-}
-- Example for December 2012 Prag Pub Magazine
-- expects Fay 0.10
--
-- Fay doesn't support type classes yet (hopefully soon) so this code contains
-- various workarounds and so is a bit more complex than it should be!
module FileRead where
import Language.Fay.FFI
import Language.Fay.Prelude
--------------------------------------------------------------------------------
-- The main code
-- do something with the contents of the text file in the current directory
--
-- the real code starts with "do"
-- * get the dir entries
-- * select the entries which are text files
-- * grab all of their contents
-- * print something
--
-- the "case ... of ... ->" part is the no-classes workaround: it's basically
-- ensuring that inside the do-block that the appriopriate monad definition is used
demo :: FileOps ()
demo = case contT of
CC return (>>=) (>>) _ lift ->
do all_entries <- readDir "."
all_files <- filterM return (>>=) isFile all_entries
all_text <- sequenceM return (>>=) $ map readFile all_files
lift $ print $ length $ concat $ take 3 all_text
lift $ putStrLn $ do_something all_text
-- junk function - just grabs something not too boring but not too long
-- first 40 chars from the first (up to) 10 strings in the input list
do_something = unlines . take 10 . map (take 40)
-- this is the bit that gets run
-- it 'executes' the monadic action from 'demo', passing in a boring continuation
-- as the final step - because a continuation has to go somewhere
main :: Fay ()
main = runContT demo (\_ -> return ())
--------------------------------------------------------------------------------
-- basic interface to the 'fs' library
--
-- remember: foo_ is the continuation-based version
-- and: ContT wraps the continuation up to make a monad
-- NB ignoring error handling for this simple example
readDir_ :: Foreign b => String -> ([String] -> Fay b) -> Fay b
readDir_ = ffi "require('fs').readdir(%1,function(_,s){ %2(s); })"
readDir s = ContT $ readDir_ s
readFile_ :: Foreign b => String -> (String -> Fay b) -> Fay b
readFile_ = ffi "require('fs').readFile(%1,'utf-8',function(_,s){ %2(s); })"
readFile = ContT . readFile_
isFile_ :: Foreign b => String -> (Bool -> Fay b) -> Fay b
isFile_ = ffi "require('fs').stat(%1,function(_,s){ %2(s.isFile()); })"
isFile :: String -> FileOps Bool
isFile = ContT . isFile_
--------------------------------------------------------------------------------
-- Own version of basic monad functions
--
-- Another bit of workaround - provide non-class versions of standard
-- monadic utilities which pass the "overloaded" operators around explicitly
-- sequenceM - runs a list of monadic actions and returns the list of results
-- sequenceM :: (a -> m a) -> (m a -> (a -> m b) -> m b) -> [m a] -> m [a]
sequenceM return (>>=) [] = return []
sequenceM return (>>=) (x:xs) = do { r <- x; rs <- sequenceM return (>>=) xs; return $ r : rs }
-- filterM - runs an action on a list of values and returns the list of values which returned True
-- filterM :: (a -> m a) -> (m a -> (a -> m b) -> m b) -> (a -> m Bool) -> [a] -> m [a]
filterM return (>>=) op [] = return []
filterM return (>>=) op (x:xs) = do r <- op x
ys <- filterM return (>>=) op xs
return (if r then x:ys else ys)
--------------------------------------------------------------------------------
-- Continuation library.
-- taken from https://github.com/faylang/fay/blob/master/examples/Cont.hs
-- first, a record type which will hold the definition of the monadic operators.
-- this isn't normally needed - but it's used here as part of the workaround.
-- the type class decl normally does this job, setting out the types of members
--
-- 'cc_then' is just a simpler version of cc_bind
-- 'cc_lift' allows Fay actions to be run inside the larger ContT monad
-- 'cc_callCC' is an exercise for the reader (-:
data CC = CC
{ cc_return :: forall a r. a -> ContT r Fay a
, cc_bind :: forall a b r. ContT r Fay a -> (a -> ContT r Fay b) -> ContT r Fay b
, cc_then :: forall a b r. ContT r Fay a -> ContT r Fay b -> ContT r Fay b
, cc_callCC :: forall a b r. ((a -> ContT r Fay b) -> ContT r Fay a) -> ContT r Fay a
, cc_lift :: forall a r . Fay a -> ContT r Fay a
}
-- The continuation monad.
-- the continuation pattern is ((a -> b) -> b)
-- and we're working on top of some monad so we parametrize further
-- (this monad param is usually Fay though)
data ContT r m a = ContT { runContT :: (a -> m r) -> m r }
-- but we'll be using it in this way - so it looks like a simple monad
type FileOps a = ContT () Fay a
-- currently not used for Fay, but is required for the type checker
instance (Monad m) => Monad (ContT r m)
-- The definitions of the monadic operators for ContT
-- the class instance decl normally does this job, holding the defs of member fns
contT =
let return a = ContT (\f -> f a)
m >>= k = ContT $ \c -> runContT m (\a -> runContT (k a) c)
m >> n = m >>= \_ -> n
callCC f = ContT $ \c -> runContT (f (\a -> ContT $ \_ -> c a)) c
lift m = ContT (\x -> m >>=* x)
in CC return (>>=) (>>) callCC lift where (>>=*) = (>>=)
Raw
Files.js
/** @constructor
*/
var FileRead = function() {
var True = true;
var False = false;
/*******************************************************************************
* Thunks.
*/
// Force a thunk (if it is a thunk) until WHNF.
function _(thunkish, nocache) {
while (thunkish instanceof $) {
thunkish = thunkish.force(nocache);
}
return thunkish;
}
// Apply a function to arguments (see method2 in Fay.hs).
function __() {
var f = arguments[0];
for (var i = 1, len = arguments.length; i < len; i++) {
f = (f instanceof $ ? _(f) : f)(arguments[i]);
}
return f;
}
// Thunk object.
function $(value) {
this.forced = false;
this.value = value;
}
// Force the thunk.
$.prototype.force = function(nocache) {
return nocache ? this.value() : (this.forced ? this.value : (this.value = this.value(), this.forced = true, this.value));
};
function Fay$$seq(x) {
return function(y) {
_(x, false);
return y;
}
}
function Fay$$seq$36$uncurried(x, y) {
_(x, false);
return y;
}
/*******************************************************************************
* Monad.
*/
function Fay$$Monad(value) {
this.value = value;
}
// This is used directly from Fay, but can be rebound or shadowed. See primOps in Types.hs.
// >>
function Fay$$then(a) {
return function(b) {
return Fay$$bind(a)(function(_) {
return b;
});
};
}
// This is used directly from Fay, but can be rebound or shadowed. See primOps in Types.hs.
// >>
function Fay$$then$36$uncurried(a, b) {
return Fay$$bind$36$uncurried(a, function(_) {
return b;
});
}
// >>=
// This is used directly from Fay, but can be rebound or shadowed. See primOps in Types.hs.
function Fay$$bind(m) {
return function(f) {
return new $(function() {
var monad = _(m, true);
return f(monad.value);
});
};
}
// >>=
// This is used directly from Fay, but can be rebound or shadowed. See primOps in Types.hs.
function Fay$$bind$36$uncurried(m, f) {
return new $(function() {
var monad = _(m, true);
return f(monad.value);
});
}
// This is used directly from Fay, but can be rebound or shadowed.
function Fay$$$_return(a) {
return new Fay$$Monad(a);
}
// Allow the programmer to access thunk forcing directly.
function Fay$$force(thunk) {
return function(type) {
return new $(function() {
_(thunk, type);
return new Fay$$Monad(Fay$$unit);
})
}
}
// This is used directly from Fay, but can be rebound or shadowed.
function Fay$$return$36$uncurried(a) {
return new Fay$$Monad(a);
}
// Unit: ().
var Fay$$unit = null;
/*******************************************************************************
* Serialization.
* Fay <-> JS. Should be bijective.
*/
// Serialize a Fay object to JS.
function Fay$$fayToJs(type, fayObj) {
var base = type[0];
var args = type[1];
var jsObj;
switch (base) {
case "action":
{
// A nullary monadic action. Should become a nullary JS function.
// Fay () -> function(){ return ... }
jsObj = function() {
return Fay$$fayToJs(args[0], _(fayObj, true).value);
};
break;
}
case "function":
{
// A proper function.
jsObj = function() {
var fayFunc = fayObj;
var return_type = args[args.length - 1];
var len = args.length;
// If some arguments.
if (len > 1) {
// Apply to all the arguments.
fayFunc = _(fayFunc, true);
// TODO: Perhaps we should throw an error when JS
// passes more arguments than Haskell accepts.
for (var i = 0, len = len; i < len - 1 && fayFunc instanceof Function; i++) {
// Unserialize the JS values to Fay for the Fay callback.
fayFunc = _(fayFunc(Fay$$jsToFay(args[i], arguments[i])), true);
}
// Finally, serialize the Fay return value back to JS.
var return_base = return_type[0];
var return_args = return_type[1];
// If it's a monadic return value, get the value instead.
if (return_base == "action") {
return Fay$$fayToJs(return_args[0], fayFunc.value);
}
// Otherwise just serialize the value direct.
else {
return Fay$$fayToJs(return_type, fayFunc);
}
} else {
throw new Error("Nullary function?");
}
};
break;
}
case "string":
{
// Serialize Fay string to JavaScript string.
var str = "";
fayObj = _(fayObj);
while (fayObj instanceof Fay$$Cons) {
str += fayObj.car;
fayObj = _(fayObj.cdr);
}
jsObj = str;
break;
}
case "list":
{
// Serialize Fay list to JavaScript array.
var arr = [];
fayObj = _(fayObj);
while (fayObj instanceof Fay$$Cons) {
arr.push(Fay$$fayToJs(args[0], fayObj.car));
fayObj = _(fayObj.cdr);
}
jsObj = arr;
break;
}
case "tuple":
{
// Serialize Fay tuple to JavaScript array.
var arr = [];
fayObj = _(fayObj);
var i = 0;
while (fayObj instanceof Fay$$Cons) {
arr.push(Fay$$fayToJs(args[i++], fayObj.car));
fayObj = _(fayObj.cdr);
}
jsObj = arr;
break;
}
case "defined":
{
fayObj = _(fayObj);
if (fayObj instanceof $_Language$Fay$Stdlib$Undefined) {
jsObj = undefined;
} else {
jsObj = Fay$$fayToJs(args[0], fayObj["slot1"]);
}
break;
}
case "double":
{
// Serialize double, just force the argument. Doubles are unboxed.
jsObj = _(fayObj);
break;
}
case "int":
{
// Serialize int, just force the argument. Ints are unboxed.
jsObj = _(fayObj);
break;
}
case "bool":
{
// Bools are unboxed.
jsObj = _(fayObj);
break;
}
case "unknown":
case "user":
{
if (fayObj instanceof $) fayObj = _(fayObj);
jsObj = Fay$$fayToJsUserDefined(type, fayObj);
break;
}
default:
throw new Error("Unhandled Fay->JS translation type: " + base);
}
return jsObj;
}
// Unserialize an object from JS to Fay.
function Fay$$jsToFay(type, jsObj) {
var base = type[0];
var args = type[1];
var fayObj;
switch (base) {
case "action":
{
// Unserialize a "monadic" JavaScript return value into a monadic value.
fayObj = new Fay$$Monad(Fay$$jsToFay(args[0], jsObj));
break;
}
case "string":
{
// Unserialize a JS string into Fay list (String).
fayObj = Fay$$list(jsObj);
break;
}
case "list":
{
// Unserialize a JS array into a Fay list ([a]).
var serializedList = [];
for (var i = 0, len = jsObj.length; i < len; i++) {
// Unserialize each JS value into a Fay value, too.
serializedList.push(Fay$$jsToFay(args[0], jsObj[i]));
}
// Pop it all in a Fay list.
fayObj = Fay$$list(serializedList);
break;
}
case "tuple":
{
// Unserialize a JS array into a Fay tuple ((a,b,c,...)).
var serializedTuple = [];
for (var i = 0, len = jsObj.length; i < len; i++) {
// Unserialize each JS value into a Fay value, too.
serializedTuple.push(Fay$$jsToFay(args[i], jsObj[i]));
}
// Pop it all in a Fay list.
fayObj = Fay$$list(serializedTuple);
break;
}
case "defined":
{
if (jsObj === undefined) {
fayObj = new $_Language$Fay$Stdlib$Undefined();
} else {
fayObj = new $_Language$Fay$Stdlib$Defined(Fay$$jsToFay(args[0], jsObj));
}
break;
}
case "double":
{
// Doubles are unboxed, so there's nothing to do.
fayObj = jsObj;
break;
}
case "int":
{
// Int are unboxed, so there's no forcing to do.
// But we can do validation that the int has no decimal places.
// E.g. Math.round(x)!=x? throw "NOT AN INTEGER, GET OUT!"
fayObj = Math.round(jsObj);
if (fayObj !== jsObj) throw "Argument " + jsObj + " is not an integer!";
break;
}
case "bool":
{
// Bools are unboxed.
fayObj = jsObj;
break;
}
case "unknown":
case "user":
{
if (jsObj && jsObj['instance']) {
fayObj = Fay$$jsToFayUserDefined(type, jsObj);
} else fayObj = jsObj;
break;
}
default:
throw new Error("Unhandled JS->Fay translation type: " + base);
}
return fayObj;
}
/*******************************************************************************
* Lists.
*/
// Cons object.
function Fay$$Cons(car, cdr) {
this.car = car;
this.cdr = cdr;
}
// Make a list.
function Fay$$list(xs) {
var out = null;
for (var i = xs.length - 1; i >= 0; i--)
out = new Fay$$Cons(xs[i], out);
return out;
}
// Built-in list cons.
function Fay$$cons(x) {
return function(y) {
return new Fay$$Cons(x, y);
};
}
// List index.
function Fay$$index(index) {
return function(list) {
for (var i = 0; i < index; i++) {
list = _(list).cdr;
}
return list.car;
};
}
// List length.
function Fay$$listLen(list, max) {
for (var i = 0; list !== null && i < max + 1; i++) {
list = _(list).cdr;
}
return i == max;
}
/*******************************************************************************
* Numbers.
*/
// Built-in *.
function Fay$$mult(x) {
return function(y) {
return new $(function() {
return _(x) * _(y);
});
};
}
function Fay$$mult$36$uncurried(x, y) {
return new $(function() {
return _(x) * _(y);
});
}
// Built-in +.
function Fay$$add(x) {
return function(y) {
return new $(function() {
return _(x) + _(y);
});
};
}
// Built-in +.
function Fay$$add$36$uncurried(x, y) {
return new $(function() {
return _(x) + _(y);
});
}
// Built-in -.
function Fay$$sub(x) {
return function(y) {
return new $(function() {
return _(x) - _(y);
});
};
}
// Built-in -.
function Fay$$sub$36$uncurried(x, y) {
return new $(function() {
return _(x) - _(y);
});
}
// Built-in /.
function Fay$$div(x) {
return function(y) {
return new $(function() {
return _(x) / _(y);
});
};
}
// Built-in /.
function Fay$$div$36$uncurried(x, y) {
return new $(function() {
return _(x) / _(y);
});
}
/*******************************************************************************
* Booleans.
*/
// Are two values equal?
function Fay$$equal(lit1, lit2) {
// Simple case
lit1 = _(lit1);
lit2 = _(lit2);
if (lit1 === lit2) {
return true;
}
// General case
if (lit1 instanceof Array) {
if (lit1.length != lit2.length) return false;
for (var len = lit1.length, i = 0; i < len; i++) {
if (!Fay$$equal(lit1[i], lit2[i])) return false;
}
return true;
} else if (lit1 instanceof Fay$$Cons && lit2 instanceof Fay$$Cons) {
do {
if (!Fay$$equal(lit1.car, lit2.car)) return false;
lit1 = _(lit1.cdr), lit2 = _(lit2.cdr);
if (lit1 === null || lit2 === null) return lit1 === lit2;
} while (true);
} else if (typeof lit1 == 'object' && typeof lit2 == 'object' && lit1 && lit2 && lit1.constructor === lit2.constructor) {
for (var x in lit1) {
if (!(lit1.hasOwnProperty(x) && lit2.hasOwnProperty(x) && Fay$$equal(lit1[x], lit2[x]))) return false;
}
return true;
} else {
return false;
}
}
// Built-in ==.
function Fay$$eq(x) {
return function(y) {
return new $(function() {
return Fay$$equal(x, y);
});
};
}
function Fay$$eq$36$uncurried(x, y) {
return new $(function() {
return Fay$$equal(x, y);
});
}
// Built-in /=.
function Fay$$neq(x) {
return function(y) {
return new $(function() {
return !(Fay$$equal(x, y));
});
};
}
// Built-in /=.
function Fay$$neq$36$uncurried(x, y) {
return new $(function() {
return !(Fay$$equal(x, y));
});
}
// Built-in >.
function Fay$$gt(x) {
return function(y) {
return new $(function() {
return _(x) > _(y);
});
};
}
// Built-in >.
function Fay$$gt$36$uncurried(x, y) {
return new $(function() {
return _(x) > _(y);
});
}
// Built-in <.
function Fay$$lt(x) {
return function(y) {
return new $(function() {
return _(x) < _(y);
});
};
}
// Built-in <.
function Fay$$lt$36$uncurried(x, y) {
return new $(function() {
return _(x) < _(y);
});
}
// Built-in >=.
function Fay$$gte(x) {
return function(y) {
return new $(function() {
return _(x) >= _(y);
});
};
}
// Built-in >=.
function Fay$$gte$36$uncurried(x, y) {
return new $(function() {
return _(x) >= _(y);
});
}
// Built-in <=.
function Fay$$lte(x) {
return function(y) {
return new $(function() {
return _(x) <= _(y);
});
};
}
// Built-in <=.
function Fay$$lte$36$uncurried(x, y) {
return new $(function() {
return _(x) <= _(y);
});
}
// Built-in &&.
function Fay$$and(x) {
return function(y) {
return new $(function() {
return _(x) && _(y);
});
};
}
// Built-in &&.
function Fay$$and$36$uncurried(x, y) {
return new $(function() {
return _(x) && _(y);
});;
}
// Built-in ||.
function Fay$$or(x) {
return function(y) {
return new $(function() {
return _(x) || _(y);
});
};
}
// Built-in ||.
function Fay$$or$36$uncurried(x, y) {
return new $(function() {
return _(x) || _(y);
});
}
/*******************************************************************************
* Mutable references.
*/
// Make a new mutable reference.
function Fay$$Ref(x) {
this.value = x;
}
// Write to the ref.
function Fay$$writeRef(ref, x) {
ref.value = x;
}
// Get the value from the ref.
function Fay$$readRef(ref, x) {
return ref.value;
}
/*******************************************************************************
* Dates.
*/
function Fay$$date(str) {
return window.Date.parse(str);
}
/*******************************************************************************
* Application code.
*/
var Language$Fay$Stdlib$error = function($p1) {
return new $(function() {
var str = $p1;
return (function($tmp1) {
if (_($tmp1) === 0) {
return _(Language$Fay$Stdlib$error)(str);
}
return _(Language$Fay$Stdlib$error)(str);
})(_(Language$Fay$Stdlib$error$39$)(str));
});
};
var Language$Fay$Stdlib$error$39$ = function($p1) {
return new $(function() {
return Fay$$jsToFay(["int"], (function() {
throw Fay$$fayToJs(["string"], $p1)
})());
});
};
var Language$Fay$Stdlib$$_undefined = new $(function() {
return _(Language$Fay$Stdlib$error)(Fay$$list("Prelude.undefined"));
});
var Language$Fay$Stdlib$show = function($p1) {
return new $(function() {
return Fay$$jsToFay(["string"], JSON.stringify(Fay$$fayToJs(["unknown"], $p1)));
});
};
var $_Language$Fay$Stdlib$Undefined = function() {};
var Language$Fay$Stdlib$Undefined = new $(function() {
return new $_Language$Fay$Stdlib$Undefined();
});
var $_Language$Fay$Stdlib$Defined = function(slot1) {
this.slot1 = slot1;
};
var Language$Fay$Stdlib$Defined = function(slot1) {
return new $(function() {
return new $_Language$Fay$Stdlib$Defined(slot1);
});
};
var $_Language$Fay$Stdlib$Left = function(slot1) {
this.slot1 = slot1;
};
var Language$Fay$Stdlib$Left = function(slot1) {
return new $(function() {
return new $_Language$Fay$Stdlib$Left(slot1);
});
};
var $_Language$Fay$Stdlib$Right = function(slot1) {
this.slot1 = slot1;
};
var Language$Fay$Stdlib$Right = function(slot1) {
return new $(function() {
return new $_Language$Fay$Stdlib$Right(slot1);
});
};
var Language$Fay$Stdlib$either = function($p1) {
return function($p2) {
return function($p3) {
return new $(function() {
if (_($p3) instanceof $_Language$Fay$Stdlib$Left) {
var a = _($p3).slot1;
var f = $p1;
return _(f)(a);
}
if (_($p3) instanceof $_Language$Fay$Stdlib$Right) {
var b = _($p3).slot1;
var g = $p2;
return _(g)(b);
}
throw ["unhandled case in either", [$p1, $p2, $p3]];
});
};
};
};
var Language$Fay$Stdlib$fromInteger = function($p1) {
return new $(function() {
var x = $p1;
return x;
});
};
var Language$Fay$Stdlib$fromRational = function($p1) {
return new $(function() {
var x = $p1;
return x;
});
};
var Language$Fay$Stdlib$negate = function($p1) {
return new $(function() {
var x = $p1;
return (-(_(x)));
});
};
var Language$Fay$Stdlib$abs = function($p1) {
return new $(function() {
var x = $p1;
return _(_(Fay$$lt)(_(x))(0)) ? _(Language$Fay$Stdlib$negate)(x) : x;
});
};
var Language$Fay$Stdlib$signum = function($p1) {
return new $(function() {
var x = $p1;
return _(_(Fay$$gt)(_(x))(0)) ? 1 : _(_(_(Fay$$eq)(x))(0)) ? 0 : (-(1));
});
};
var Language$Fay$Stdlib$pi = new $(function() {
return Fay$$jsToFay(["double"], Math.PI);
});
var Language$Fay$Stdlib$exp = function($p1) {
return new $(function() {
return Fay$$jsToFay(["double"], Math.exp(Fay$$fayToJs(["double"], $p1)));
});
};
var Language$Fay$Stdlib$sqrt = function($p1) {
return new $(function() {
return Fay$$jsToFay(["double"], Math.sqrt(Fay$$fayToJs(["double"], $p1)));
});
};
var Language$Fay$Stdlib$log = function($p1) {
return new $(function() {
return Fay$$jsToFay(["double"], Math.log(Fay$$fayToJs(["double"], $p1)));
});
};
var Language$Fay$Stdlib$$42$$42$ = new $(function() {
return Language$Fay$Stdlib$unsafePow;
});
var Language$Fay$Stdlib$$94$$94$ = new $(function() {
return Language$Fay$Stdlib$unsafePow;
});
var Language$Fay$Stdlib$unsafePow = function($p1) {
return function($p2) {
return new $(function() {
return Fay$$jsToFay(["unknown"], Math.pow(Fay$$fayToJs(["unknown"], $p1), Fay$$fayToJs(["unknown"], $p2)));
});
};
};
var Language$Fay$Stdlib$$94$ = function($p1) {
return function($p2) {
return new $(function() {
var b = $p2;
var a = $p1;
if (_(_(Fay$$lt)(_(b))(0))) {
return _(Language$Fay$Stdlib$error)(Fay$$list("(^): negative exponent"));
} else {
if (_(_(_(Fay$$eq)(b))(0))) {
return 1;
} else {
if (_(_(Language$Fay$Stdlib$even)(b))) {
return (function() {
var x = new $(function() {
return _(_(Language$Fay$Stdlib$$94$)(a))(_(_(Language$Fay$Stdlib$quot)(b))(2));
});
return _(Fay$$mult)(_(x))(_(x));
})();
}
}
}
var b = $p2;
var a = $p1;
return _(Fay$$mult)(_(a))(_(_(_(Language$Fay$Stdlib$$94$)(a))(_(Fay$$sub)(_(b))(1))));
});
};
};
var Language$Fay$Stdlib$logBase = function($p1) {
return function($p2) {
return new $(function() {
var x = $p2;
var b = $p1;
return _(Fay$$div)(_(_(Language$Fay$Stdlib$log)(x)))(_(_(Language$Fay$Stdlib$log)(b)));
});
};
};
var Language$Fay$Stdlib$sin = function($p1) {
return new $(function() {
return Fay$$jsToFay(["double"], Math.sin(Fay$$fayToJs(["double"], $p1)));
});
};
var Language$Fay$Stdlib$tan = function($p1) {
return new $(function() {
return Fay$$jsToFay(["double"], Math.tan(Fay$$fayToJs(["double"], $p1)));
});
};
var Language$Fay$Stdlib$cos = function($p1) {
return new $(function() {
return Fay$$jsToFay(["double"], Math.cos(Fay$$fayToJs(["double"], $p1)));
});
};
var Language$Fay$Stdlib$asin = function($p1) {
return new $(function() {
return Fay$$jsToFay(["double"], Math.asin(Fay$$fayToJs(["double"], $p1)));
});
};
var Language$Fay$Stdlib$atan = function($p1) {
return new $(function() {
return Fay$$jsToFay(["double"], Math.atan(Fay$$fayToJs(["double"], $p1)));
});
};
var Language$Fay$Stdlib$acos = function($p1) {
return new $(function() {
return Fay$$jsToFay(["double"], Math.acos(Fay$$fayToJs(["double"], $p1)));
});
};
var Language$Fay$Stdlib$sinh = function($p1) {
return new $(function() {
var x = $p1;
return _(Fay$$div)(_(_(Fay$$sub)(_(_(Language$Fay$Stdlib$exp)(x)))(_(_(Language$Fay$Stdlib$exp)((-(_(x))))))))(2);
});
};
var Language$Fay$Stdlib$tanh = function($p1) {
return new $(function() {
var x = $p1;
return (function() {
var a = new $(function() {
return _(Language$Fay$Stdlib$exp)(x);
});
var b = new $(function() {
return _(Language$Fay$Stdlib$exp)((-(_(x))));
});
return _(Fay$$div)(_(_(Fay$$sub)(_(a))(_(b))))(_(_(Fay$$add)(_(a))(_(b))));
})();
});
};
var Language$Fay$Stdlib$cosh = function($p1) {
return new $(function() {
var x = $p1;
return _(Fay$$div)(_(_(Fay$$add)(_(_(Language$Fay$Stdlib$exp)(x)))(_(_(Language$Fay$Stdlib$exp)((-(_(x))))))))(2);
});
};
var Language$Fay$Stdlib$asinh = function($p1) {
return new $(function() {
var x = $p1;
return _(Language$Fay$Stdlib$log)(_(Fay$$add)(_(x))(_(_(Language$Fay$Stdlib$sqrt)(_(Fay$$add)(_(_(_(Language$Fay$Stdlib$$42$$42$)(x))(2)))(1)))));
});
};
var Language$Fay$Stdlib$atanh = function($p1) {
return new $(function() {
var x = $p1;
return _(Fay$$div)(_(_(Language$Fay$Stdlib$log)(_(Fay$$div)(_(_(Fay$$add)(1)(_(x))))(_(_(Fay$$sub)(1)(_(x)))))))(2);
});
};
var Language$Fay$Stdlib$acosh = function($p1) {
return new $(function() {
var x = $p1;
return _(Language$Fay$Stdlib$log)(_(Fay$$add)(_(x))(_(_(Language$Fay$Stdlib$sqrt)(_(Fay$$sub)(_(_(_(Language$Fay$Stdlib$$42$$42$)(x))(2)))(1)))));
});
};
var Language$Fay$Stdlib$properFraction = function($p1) {
return new $(function() {
var x = $p1;
return (function() {
var a = new $(function() {
return _(Language$Fay$Stdlib$truncate)(x);
});
return Fay$$list([a, _(Fay$$sub)(_(x))(_(_(Language$Fay$Stdlib$fromIntegral)(a)))]);
})();
});
};
var Language$Fay$Stdlib$truncate = function($p1) {
return new $(function() {
var x = $p1;
return _(_(Fay$$lt)(_(x))(0)) ? _(Language$Fay$Stdlib$ceiling)(x) : _(Language$Fay$Stdlib$floor)(x);
});
};
var Language$Fay$Stdlib$round = function($p1) {
return new $(function() {
return Fay$$jsToFay(["int"], Math.round(Fay$$fayToJs(["double"], $p1)));
});
};
var Language$Fay$Stdlib$ceiling = function($p1) {
return new $(function() {
return Fay$$jsToFay(["int"], Math.ceil(Fay$$fayToJs(["double"], $p1)));
});
};
var Language$Fay$Stdlib$floor = function($p1) {
return new $(function() {
return Fay$$jsToFay(["int"], Math.floor(Fay$$fayToJs(["double"], $p1)));
});
};
var Language$Fay$Stdlib$subtract = new $(function() {
return _(Language$Fay$Stdlib$flip)(Fay$$sub);
});
var Language$Fay$Stdlib$even = function($p1) {
return new $(function() {
var x = $p1;
return _(_(Fay$$eq)(_(_(Language$Fay$Stdlib$rem)(x))(2)))(0);
});
};
var Language$Fay$Stdlib$odd = function($p1) {
return new $(function() {
var x = $p1;
return _(Language$Fay$Stdlib$not)(_(Language$Fay$Stdlib$even)(x));
});
};
var Language$Fay$Stdlib$gcd = function($p1) {
return function($p2) {
return new $(function() {
var b = $p2;
var a = $p1;
return (function() {
var go = function($p1) {
return function($p2) {
return new $(function() {
if (_($p2) === 0) {
var x = $p1;
return x;
}
var y = $p2;
var x = $p1;
return _(_(go)(y))(_(_(Language$Fay$Stdlib$rem)(x))(y));
});
};
};
return _(_(go)(_(Language$Fay$Stdlib$abs)(a)))(_(Language$Fay$Stdlib$abs)(b));
})();
});
};
};
var Language$Fay$Stdlib$lcm = function($p1) {
return function($p2) {
return new $(function() {
if (_($p2) === 0) {
return 0;
}
if (_($p1) === 0) {
return 0;
}
var b = $p2;
var a = $p1;
return _(Language$Fay$Stdlib$abs)(_(Fay$$mult)(_(_(_(Language$Fay$Stdlib$quot)(a))(_(_(Language$Fay$Stdlib$gcd)(a))(b))))(_(b)));
});
};
};
var Language$Fay$Stdlib$curry = function($p1) {
return function($p2) {
return function($p3) {
return new $(function() {
var y = $p3;
var x = $p2;
var f = $p1;
return _(f)(Fay$$list([x, y]));
});
};
};
};
var Language$Fay$Stdlib$uncurry = function($p1) {
return function($p2) {
return new $(function() {
var p = $p2;
var f = $p1;
return (function($tmp1) {
if (Fay$$listLen(_($tmp1), 2)) {
var x = Fay$$index(0)(_($tmp1));
var y = Fay$$index(1)(_($tmp1));
return _(_(f)(x))(y);
}
return (function() {
throw (["unhandled case", $tmp1]);
})();
})(p);
});
};
};
var Language$Fay$Stdlib$snd = function($p1) {
return new $(function() {
if (Fay$$listLen(_($p1), 2)) {
var x = Fay$$index(1)(_($p1));
return x;
}
throw ["unhandled case in snd", [$p1]];
});
};
var Language$Fay$Stdlib$fst = function($p1) {
return new $(function() {
if (Fay$$listLen(_($p1), 2)) {
var x = Fay$$index(0)(_($p1));
return x;
}
throw ["unhandled case in fst", [$p1]];
});
};
var Language$Fay$Stdlib$find = function($p1) {
return function($p2) {
return new $(function() {
var $tmp1 = _($p2);
if ($tmp1 instanceof Fay$$Cons) {
var x = $tmp1.car;
var xs = $tmp1.cdr;
var p = $p1;
return _(_(p)(x)) ? _(Language$Fay$Stdlib$Just)(x) : _(_(Language$Fay$Stdlib$find)(p))(xs);
}
if (_($p2) === null) {
return Language$Fay$Stdlib$Nothing;
}
throw ["unhandled case in find", [$p1, $p2]];
});
};
};
var Language$Fay$Stdlib$filter = function($p1) {
return function($p2) {
return new $(function() {
var $tmp1 = _($p2);
if ($tmp1 instanceof Fay$$Cons) {
var x = $tmp1.car;
var xs = $tmp1.cdr;
var p = $p1;
return _(_(p)(x)) ? _(_(Fay$$cons)(x))(_(_(Language$Fay$Stdlib$filter)(p))(xs)) : _(_(Language$Fay$Stdlib$filter)(p))(xs);
}
if (_($p2) === null) {
return null;
}
throw ["unhandled case in filter", [$p1, $p2]];
});
};
};
var Language$Fay$Stdlib$not = function($p1) {
return new $(function() {
var p = $p1;
return _(p) ? false : true;
});
};
var Language$Fay$Stdlib$$_null = function($p1) {
return new $(function() {
if (_($p1) === null) {
return true;
}
return false;
});
};
var Language$Fay$Stdlib$map = function($p1) {
return function($p2) {
return new $(function() {
if (_($p2) === null) {
return null;
}
var $tmp1 = _($p2);
if ($tmp1 instanceof Fay$$Cons) {
var x = $tmp1.car;
var xs = $tmp1.cdr;
var f = $p1;
return _(_(Fay$$cons)(_(f)(x)))(_(_(Language$Fay$Stdlib$map)(f))(xs));
}
throw ["unhandled case in map", [$p1, $p2]];
});
};
};
var Language$Fay$Stdlib$nub = function($p1) {
return new $(function() {
var ls = $p1;
return _(_(Language$Fay$Stdlib$nub$39$)(ls))(null);
});
};
var Language$Fay$Stdlib$nub$39$ = function($p1) {
return function($p2) {
return new $(function() {
if (_($p1) === null) {
return null;
}
var ls = $p2;
var $tmp1 = _($p1);
if ($tmp1 instanceof Fay$$Cons) {
var x = $tmp1.car;
var xs = $tmp1.cdr;
return _(_(_(Language$Fay$Stdlib$elem)(x))(ls)) ? _(_(Language$Fay$Stdlib$nub$39$)(xs))(ls) : _(_(Fay$$cons)(x))(_(_(Language$Fay$Stdlib$nub$39$)(xs))(_(_(Fay$$cons)(x))(ls)));
}
throw ["unhandled case in nub'", [$p1, $p2]];
});
};
};
var Language$Fay$Stdlib$elem = function($p1) {
return function($p2) {
return new $(function() {
var $tmp1 = _($p2);
if ($tmp1 instanceof Fay$$Cons) {
var y = $tmp1.car;
var ys = $tmp1.cdr;
var x = $p1;
return _(Fay$$or)(_(_(_(Fay$$eq)(x))(y)))(_(_(_(Language$Fay$Stdlib$elem)(x))(ys)));
}
if (_($p2) === null) {
return false;
}
throw ["unhandled case in elem", [$p1, $p2]];
});
};
};
var Language$Fay$Stdlib$notElem = function($p1) {
return function($p2) {
return new $(function() {
var ys = $p2;
var x = $p1;
return _(Language$Fay$Stdlib$not)(_(_(Language$Fay$Stdlib$elem)(x))(ys));
});
};
};
var $_Language$Fay$Stdlib$GT = function() {};
var Language$Fay$Stdlib$GT = new $(function() {
return new $_Language$Fay$Stdlib$GT();
});
var $_Language$Fay$Stdlib$LT = function() {};
var Language$Fay$Stdlib$LT = new $(function() {
return new $_Language$Fay$Stdlib$LT();
});
var $_Language$Fay$Stdlib$EQ = function() {};
var Language$Fay$Stdlib$EQ = new $(function() {
return new $_Language$Fay$Stdlib$EQ();
});
var Language$Fay$Stdlib$sort = new $(function() {
return _(Language$Fay$Stdlib$sortBy)(Language$Fay$Stdlib$compare);
});
var Language$Fay$Stdlib$compare = function($p1) {
return function($p2) {
return new $(function() {
var y = $p2;
var x = $p1;
return _(_(Fay$$gt)(_(x))(_(y))) ? Language$Fay$Stdlib$GT : _(_(Fay$$lt)(_(x))(_(y))) ? Language$Fay$Stdlib$LT : Language$Fay$Stdlib$EQ;
});
};
};
var Language$Fay$Stdlib$sortBy = function($p1) {
return new $(function() {
var cmp = $p1;
return _(_(Language$Fay$Stdlib$foldr)(_(Language$Fay$Stdlib$insertBy)(cmp)))(null);
});
};
var Language$Fay$Stdlib$insertBy = function($p1) {
return function($p2) {
return function($p3) {
return new $(function() {
if (_($p3) === null) {
var x = $p2;
return Fay$$list([x]);
}
var ys = $p3;
var x = $p2;
var cmp = $p1;
return (function($tmp1) {
if (_($tmp1) === null) {
return Fay$$list([x]);
}
var $tmp2 = _($tmp1);
if ($tmp2 instanceof Fay$$Cons) {
var y = $tmp2.car;
var ys$39$ = $tmp2.cdr;
return (function($tmp2) {
if (_($tmp2) instanceof $_Language$Fay$Stdlib$GT) {
return _(_(Fay$$cons)(y))(_(_(_(Language$Fay$Stdlib$insertBy)(cmp))(x))(ys$39$));
}
return _(_(Fay$$cons)(x))(ys);
})(_(_(cmp)(x))(y));
}
return (function() {
throw (["unhandled case", $tmp1]);
})();
})(ys);
});
};
};
};
var Language$Fay$Stdlib$when = function($p1) {
return function($p2) {
return new $(function() {
var m = $p2;
var p = $p1;
return _(p) ? _(_(Fay$$then)(m))(_(Fay$$$_return)(Fay$$unit)) : _(Fay$$$_return)(Fay$$unit);
});
};
};
var Language$Fay$Stdlib$succ = function($p1) {
return new $(function() {
var x = $p1;
return _(Fay$$add)(_(x))(1);
});
};
var Language$Fay$Stdlib$pred = function($p1) {
return new $(function() {
var x = $p1;
return _(Fay$$sub)(_(x))(1);
});
};
var Language$Fay$Stdlib$enumFrom = function($p1) {
return new $(function() {
var i = $p1;
return _(_(Fay$$cons)(i))(_(Language$Fay$Stdlib$enumFrom)(_(Fay$$add)(_(i))(1)));
});
};
var Language$Fay$Stdlib$enumFromTo = function($p1) {
return function($p2) {
return new $(function() {
var n = $p2;
var i = $p1;
return _(_(Fay$$gt)(_(i))(_(n))) ? null : _(_(Fay$$cons)(i))(_(_(Language$Fay$Stdlib$enumFromTo)(_(Fay$$add)(_(i))(1)))(n));
});
};
};
var Language$Fay$Stdlib$enumFromBy = function($p1) {
return function($p2) {
return new $(function() {
var by = $p2;
var fr = $p1;
return _(_(Fay$$cons)(fr))(_(_(Language$Fay$Stdlib$enumFromBy)(_(Fay$$add)(_(fr))(_(by))))(by));
});
};
};
var Language$Fay$Stdlib$enumFromThen = function($p1) {
return function($p2) {
return new $(function() {
var th = $p2;
var fr = $p1;
return _(_(Language$Fay$Stdlib$enumFromBy)(fr))(_(Fay$$sub)(_(th))(_(fr)));
});
};
};
var Language$Fay$Stdlib$enumFromByTo = function($p1) {
return function($p2) {
return function($p3) {
return new $(function() {
var to = $p3;
var by = $p2;
var fr = $p1;
return (function() {
var neg = function($p1) {
return new $(function() {
var x = $p1;
return _(_(Fay$$lt)(_(x))(_(to))) ? null : _(_(Fay$$cons)(x))(_(neg)(_(Fay$$add)(_(x))(_(by))));
});
};
var pos = function($p1) {
return new $(function() {
var x = $p1;
return _(_(Fay$$gt)(_(x))(_(to))) ? null : _(_(Fay$$cons)(x))(_(pos)(_(Fay$$add)(_(x))(_(by))));
});
};
return _(_(Fay$$lt)(_(by))(0)) ? _(neg)(fr) : _(pos)(fr);
})();
});
};
};
};
var Language$Fay$Stdlib$enumFromThenTo = function($p1) {
return function($p2) {
return function($p3) {
return new $(function() {
var to = $p3;
var th = $p2;
var fr = $p1;
return _(_(_(Language$Fay$Stdlib$enumFromByTo)(fr))(_(Fay$$sub)(_(th))(_(fr))))(to);
});
};
};
};
var Language$Fay$Stdlib$zipWith = function($p1) {
return function($p2) {
return function($p3) {
return new $(function() {
var $tmp1 = _($p3);
if ($tmp1 instanceof Fay$$Cons) {
var b = $tmp1.car;
var bs = $tmp1.cdr;
var $tmp1 = _($p2);
if ($tmp1 instanceof Fay$$Cons) {
var a = $tmp1.car;
var as = $tmp1.cdr;
var f = $p1;
return _(_(Fay$$cons)(_(_(f)(a))(b)))(_(_(_(Language$Fay$Stdlib$zipWith)(f))(as))(bs));
}
}
return null;
});
};
};
};
var Language$Fay$Stdlib$zipWith3 = function($p1) {
return function($p2) {
return function($p3) {
return function($p4) {
return new $(function() {
var $tmp1 = _($p4);
if ($tmp1 instanceof Fay$$Cons) {
var c = $tmp1.car;
var cs = $tmp1.cdr;
var $tmp1 = _($p3);
if ($tmp1 instanceof Fay$$Cons) {
var b = $tmp1.car;
var bs = $tmp1.cdr;
var $tmp1 = _($p2);
if ($tmp1 instanceof Fay$$Cons) {
var a = $tmp1.car;
var as = $tmp1.cdr;
var f = $p1;
return _(_(Fay$$cons)(_(_(_(f)(a))(b))(c)))(_(_(_(_(Language$Fay$Stdlib$zipWith3)(f))(as))(bs))(cs));
}
}
}
return null;
});
};
};
};
};
var Language$Fay$Stdlib$zip = function($p1) {
return function($p2) {
return new $(function() {
var $tmp1 = _($p2);
if ($tmp1 instanceof Fay$$Cons) {
var b = $tmp1.car;
var bs = $tmp1.cdr;
var $tmp1 = _($p1);
if ($tmp1 instanceof Fay$$Cons) {
var a = $tmp1.car;
var as = $tmp1.cdr;
return _(_(Fay$$cons)(Fay$$list([a, b])))(_(_(Language$Fay$Stdlib$zip)(as))(bs));
}
}
return null;
});
};
};
var Language$Fay$Stdlib$zip3 = function($p1) {
return function($p2) {
return function($p3) {
return new $(function() {
var $tmp1 = _($p3);
if ($tmp1 instanceof Fay$$Cons) {
var c = $tmp1.car;
var cs = $tmp1.cdr;
var $tmp1 = _($p2);
if ($tmp1 instanceof Fay$$Cons) {
var b = $tmp1.car;
var bs = $tmp1.cdr;
var $tmp1 = _($p1);
if ($tmp1 instanceof Fay$$Cons) {
var a = $tmp1.car;
var as = $tmp1.cdr;
return _(_(Fay$$cons)(Fay$$list([a, b, c])))(_(_(_(Language$Fay$Stdlib$zip3)(as))(bs))(cs));
}
}
}
return null;
});
};
};
};
var Language$Fay$Stdlib$unzip = function($p1) {
return new $(function() {
var $tmp1 = _($p1);
if ($tmp1 instanceof Fay$$Cons) {
if (Fay$$listLen(_($tmp1.car), 2)) {
var x = Fay$$index(0)(_($tmp1.car));
var y = Fay$$index(1)(_($tmp1.car));
var ps = $tmp1.cdr;
return (function($tmp1) {
if (Fay$$listLen(_($tmp1), 2)) {
var xs = Fay$$index(0)(_($tmp1));
var ys = Fay$$index(1)(_($tmp1));
return Fay$$list([_(_(Fay$$cons)(x))(xs), _(_(Fay$$cons)(y))(ys)]);
}
return (function() {
throw (["unhandled case", $tmp1]);
})();
})(_(Language$Fay$Stdlib$unzip)(ps));
}
}
if (_($p1) === null) {
return Fay$$list([null, null]);
}
throw ["unhandled case in unzip", [$p1]];
});
};
var Language$Fay$Stdlib$unzip3 = function($p1) {
return new $(function() {
var $tmp1 = _($p1);
if ($tmp1 instanceof Fay$$Cons) {
if (Fay$$listLen(_($tmp1.car), 3)) {
var x = Fay$$index(0)(_($tmp1.car));
var y = Fay$$index(1)(_($tmp1.car));
var z = Fay$$index(2)(_($tmp1.car));
var ps = $tmp1.cdr;
return (function($tmp1) {
if (Fay$$listLen(_($tmp1), 3)) {
var xs = Fay$$index(0)(_($tmp1));
var ys = Fay$$index(1)(_($tmp1));
var zs = Fay$$index(2)(_($tmp1));
return Fay$$list([_(_(Fay$$cons)(x))(xs), _(_(Fay$$cons)(y))(ys), _(_(Fay$$cons)(z))(zs)]);
}
return (function() {
throw (["unhandled case", $tmp1]);
})();
})(_(Language$Fay$Stdlib$unzip3)(ps));
}
}
if (_($p1) === null) {
return Fay$$list([null, null, null]);
}
throw ["unhandled case in unzip3", [$p1]];
});
};
var Language$Fay$Stdlib$lines = function($p1) {
return new $(function() {
if (_($p1) === null) {
return null;
}
var s = $p1;
return (function() {
var isLineBreak = function($p1) {
return new $(function() {
var c = $p1;
return _(Fay$$or)(_(_(_(Fay$$eq)(c))("\r")))(_(_(_(Fay$$eq)(c))("\n")));
});
};
return (function($tmp1) {
if (Fay$$listLen(_($tmp1), 2)) {
var a = Fay$$index(0)(_($tmp1));
if (_(Fay$$index(1)(_($tmp1))) === null) {
return Fay$$list([a]);
}
var a = Fay$$index(0)(_($tmp1));
var $tmp2 = _(Fay$$index(1)(_($tmp1)));
if ($tmp2 instanceof Fay$$Cons) {
var cs = $tmp2.cdr;
return _(_(Fay$$cons)(a))(_(Language$Fay$Stdlib$lines)(cs));
}
}
return (function() {
throw (["unhandled case", $tmp1]);
})();
})(_(_(Language$Fay$Stdlib$$_break)(isLineBreak))(s));
})();
});
};
var Language$Fay$Stdlib$unlines = new $(function() {
return _(Language$Fay$Stdlib$intercalate)(Fay$$list("\n"));
});
var Language$Fay$Stdlib$words = function($p1) {
return new $(function() {
var str = $p1;
return (function() {
var words$39$ = function($p1) {
return new $(function() {
if (_($p1) === null) {
return null;
}
var s = $p1;
return (function($tmp1) {
if (Fay$$listLen(_($tmp1), 2)) {
var a = Fay$$index(0)(_($tmp1));
var b = Fay$$index(1)(_($tmp1));
return _(_(Fay$$cons)(a))(_(Language$Fay$Stdlib$words)(b));
}
return (function() {
throw (["unhandled case", $tmp1]);
})();
})(_(_(Language$Fay$Stdlib$$_break)(isSpace))(s));
});
};
var isSpace = function($p1) {
return new $(function() {
var c = $p1;
return _(_(Language$Fay$Stdlib$elem)(c))(Fay$$list(" \t\r\n\u000c\u000b"));
});
};
return _(words$39$)(_(_(Language$Fay$Stdlib$dropWhile)(isSpace))(str));
})();
});
};
var Language$Fay$Stdlib$unwords = new $(function() {
return _(Language$Fay$Stdlib$intercalate)(Fay$$list(" "));
});
var Language$Fay$Stdlib$flip = function($p1) {
return function($p2) {
return function($p3) {
return new $(function() {
var y = $p3;
var x = $p2;
var f = $p1;
return _(_(f)(y))(x);
});
};
};
};
var Language$Fay$Stdlib$maybe = function($p1) {
return function($p2) {
return function($p3) {
return new $(function() {
if (_($p3) instanceof $_Language$Fay$Stdlib$Nothing) {
var m = $p1;
return m;
}
if (_($p3) instanceof $_Language$Fay$Stdlib$Just) {
var x = _($p3).slot1;
var f = $p2;
return _(f)(x);
}
throw ["unhandled case in maybe", [$p1, $p2, $p3]];
});
};
};
};
var Language$Fay$Stdlib$$46$ = function($p1) {
return function($p2) {
return function($p3) {
return new $(function() {
var x = $p3;
var g = $p2;
var f = $p1;
return _(f)(_(g)(x));
});
};
};
};
var Language$Fay$Stdlib$$43$$43$ = function($p1) {
return function($p2) {
return new $(function() {
var y = $p2;
var x = $p1;
return _(_(Language$Fay$Stdlib$conc)(x))(y);
});
};
};
var Language$Fay$Stdlib$$36$ = function($p1) {
return function($p2) {
return new $(function() {
var x = $p2;
var f = $p1;
return _(f)(x);
});
};
};
var Language$Fay$Stdlib$conc = function($p1) {
return function($p2) {
return new $(function() {
var ys = $p2;
var $tmp1 = _($p1);
if ($tmp1 instanceof Fay$$Cons) {
var x = $tmp1.car;
var xs = $tmp1.cdr;
return _(_(Fay$$cons)(x))(_(_(Language$Fay$Stdlib$conc)(xs))(ys));
}
var ys = $p2;
if (_($p1) === null) {
return ys;
}
throw ["unhandled case in conc", [$p1, $p2]];
});
};
};
var Language$Fay$Stdlib$concat = new $(function() {
return _(_(Language$Fay$Stdlib$foldr)(Language$Fay$Stdlib$conc))(null);
});
var Language$Fay$Stdlib$concatMap = function($p1) {
return new $(function() {
var f = $p1;
return _(_(Language$Fay$Stdlib$foldr)(_(_(Language$Fay$Stdlib$$46$)(Language$Fay$Stdlib$$43$$43$))(f)))(null);
});
};
var Language$Fay$Stdlib$foldr = function($p1) {
return function($p2) {
return function($p3) {
return new $(function() {
if (_($p3) === null) {
var z = $p2;
return z;
}
var $tmp1 = _($p3);
if ($tmp1 instanceof Fay$$Cons) {
var x = $tmp1.car;
var xs = $tmp1.cdr;
var z = $p2;
var f = $p1;
return _(_(f)(x))(_(_(_(Language$Fay$Stdlib$foldr)(f))(z))(xs));
}
throw ["unhandled case in foldr", [$p1, $p2, $p3]];
});
};
};
};
var Language$Fay$Stdlib$foldr1 = function($p1) {
return function($p2) {
return new $(function() {
if (Fay$$listLen(_($p2), 1)) {
var x = Fay$$index(0)(_($p2));
return x;
}
var $tmp1 = _($p2);
if ($tmp1 instanceof Fay$$Cons) {
var x = $tmp1.car;
var xs = $tmp1.cdr;
var f = $p1;
return _(_(f)(x))(_(_(Language$Fay$Stdlib$foldr1)(f))(xs));
}
if (_($p2) === null) {
return _(Language$Fay$Stdlib$error)(Fay$$list("foldr1: empty list"));
}
throw ["unhandled case in foldr1", [$p1, $p2]];
});
};
};
var Language$Fay$Stdlib$foldl = function($p1) {
return function($p2) {
return function($p3) {
return new $(function() {
if (_($p3) === null) {
var z = $p2;
return z;
}
var $tmp1 = _($p3);
if ($tmp1 instanceof Fay$$Cons) {
var x = $tmp1.car;
var xs = $tmp1.cdr;
var z = $p2;
var f = $p1;
return _(_(_(Language$Fay$Stdlib$foldl)(f))(_(_(f)(z))(x)))(xs);
}
throw ["unhandled case in foldl", [$p1, $p2, $p3]];
});
};
};
};
var Language$Fay$Stdlib$foldl1 = function($p1) {
return function($p2) {
return new $(function() {
var $tmp1 = _($p2);
if ($tmp1 instanceof Fay$$Cons) {
var x = $tmp1.car;
var xs = $tmp1.cdr;
var f = $p1;
return _(_(_(Language$Fay$Stdlib$foldl)(f))(x))(xs);
}
if (_($p2) === null) {
return _(Language$Fay$Stdlib$error)(Fay$$list("foldl1: empty list"));
}
throw ["unhandled case in foldl1", [$p1, $p2]];
});
};
};
var Language$Fay$Stdlib$and = function($p1) {
return new $(function() {
if (_($p1) === null) {
return true;
}
var $tmp1 = _($p1);
if ($tmp1 instanceof Fay$$Cons) {
var x = $tmp1.car;
var xs = $tmp1.cdr;
return _(Fay$$and)(_(x))(_(_(Language$Fay$Stdlib$and)(xs)));
}
throw ["unhandled case in and", [$p1]];
});
};
var Language$Fay$Stdlib$or = function($p1) {
return new $(function() {
if (_($p1) === null) {
return false;
}
var $tmp1 = _($p1);
if ($tmp1 instanceof Fay$$Cons) {
var x = $tmp1.car;
var xs = $tmp1.cdr;
return _(Fay$$or)(_(x))(_(_(Language$Fay$Stdlib$or)(xs)));
}
throw ["unhandled case in or", [$p1]];
});
};
var Language$Fay$Stdlib$any = function($p1) {
return function($p2) {
return new $(function() {
if (_($p2) === null) {
return false;
}
var $tmp1 = _($p2);
if ($tmp1 instanceof Fay$$Cons) {
var x = $tmp1.car;
var xs = $tmp1.cdr;
var p = $p1;
return _(Fay$$or)(_(_(p)(x)))(_(_(_(Language$Fay$Stdlib$any)(p))(xs)));
}
throw ["unhandled case in any", [$p1, $p2]];
});
};
};
var Language$Fay$Stdlib$all = function($p1) {
return function($p2) {
return new $(function() {
if (_($p2) === null) {
return true;
}
var $tmp1 = _($p2);
if ($tmp1 instanceof Fay$$Cons) {
var x = $tmp1.car;
var xs = $tmp1.cdr;
var p = $p1;
return _(Fay$$and)(_(_(p)(x)))(_(_(_(Language$Fay$Stdlib$all)(p))(xs)));
}
throw ["unhandled case in all", [$p1, $p2]];
});
};
};
var Language$Fay$Stdlib$maximum = function($p1) {
return new $(function() {
if (_($p1) === null) {
return _(Language$Fay$Stdlib$error)(Fay$$list("maximum: empty list"));
}
var xs = $p1;
return _(_(Language$Fay$Stdlib$foldl1)(Language$Fay$Stdlib$max))(xs);
});
};
var Language$Fay$Stdlib$minimum = function($p1) {
return new $(function() {
if (_($p1) === null) {
return _(Language$Fay$Stdlib$error)(Fay$$list("minimum: empty list"));
}
var xs = $p1;
return _(_(Language$Fay$Stdlib$foldl1)(Language$Fay$Stdlib$min))(xs);
});
};
var Language$Fay$Stdlib$product = function($p1) {
return new $(function() {
if (_($p1) === null) {
return _(Language$Fay$Stdlib$error)(Fay$$list("product: empty list"));
}
var xs = $p1;
return _(_(_(Language$Fay$Stdlib$foldl)(Fay$$mult))(1))(xs);
});
};
var Language$Fay$Stdlib$sum = function($p1) {
return new $(function() {
if (_($p1) === null) {
return _(Language$Fay$Stdlib$error)(Fay$$list("sum: empty list"));
}
var xs = $p1;
return _(_(_(Language$Fay$Stdlib$foldl)(Fay$$add))(0))(xs);
});
};
var Language$Fay$Stdlib$scanl = function($p1) {
return function($p2) {
return function($p3) {
return new $(function() {
var l = $p3;
var z = $p2;
var f = $p1;
return _(_(Fay$$cons)(z))((function($tmp1) {
if (_($tmp1) === null) {
return null;
}
var $tmp2 = _($tmp1);
if ($tmp2 instanceof Fay$$Cons) {
var x = $tmp2.car;
var xs = $tmp2.cdr;
return _(_(_(Language$Fay$Stdlib$scanl)(f))(_(_(f)(z))(x)))(xs);
}
return (function() {
throw (["unhandled case", $tmp1]);
})();
})(l));
});
};
};
};
var Language$Fay$Stdlib$scanl1 = function($p1) {
return function($p2) {
return new $(function() {
if (_($p2) === null) {
return null;
}
var $tmp1 = _($p2);
if ($tmp1 instanceof Fay$$Cons) {
var x = $tmp1.car;
var xs = $tmp1.cdr;
var f = $p1;
return _(_(_(Language$Fay$Stdlib$scanl)(f))(x))(xs);
}
throw ["unhandled case in scanl1", [$p1, $p2]];
});
};
};
var Language$Fay$Stdlib$scanr = function($p1) {
return function($p2) {
return function($p3) {
return new $(function() {
if (_($p3) === null) {
var z = $p2;
return Fay$$list([z]);
}
var $tmp1 = _($p3);
if ($tmp1 instanceof Fay$$Cons) {
var x = $tmp1.car;
var xs = $tmp1.cdr;
var z = $p2;
var f = $p1;
return (function($tmp1) {
var $tmp2 = _($tmp1);
if ($tmp2 instanceof Fay$$Cons) {
var h = $tmp2.car;
var t = $tmp2.cdr;
return _(_(Fay$$cons)(_(_(f)(x))(h)))(_(_(Fay$$cons)(h))(t));
}
return (function() {
throw (["unhandled case", $tmp1]);
})();
})(_(_(_(Language$Fay$Stdlib$scanr)(f))(z))(xs));
}
throw ["unhandled case in scanr", [$p1, $p2, $p3]];
});
};
};
};
var Language$Fay$Stdlib$scanr1 = function($p1) {
return function($p2) {
return new $(function() {
if (_($p2) === null) {
return null;
}
if (Fay$$listLen(_($p2), 1)) {
var x = Fay$$index(0)(_($p2));
return Fay$$list([x]);
}
var $tmp1 = _($p2);
if ($tmp1 instanceof Fay$$Cons) {
var x = $tmp1.car;
var xs = $tmp1.cdr;
var f = $p1;
return (function($tmp1) {
var $tmp2 = _($tmp1);
if ($tmp2 instanceof Fay$$Cons) {
var h = $tmp2.car;
var t = $tmp2.cdr;
return _(_(Fay$$cons)(_(_(f)(x))(h)))(_(_(Fay$$cons)(h))(t));
}
return (function() {
throw (["unhandled case", $tmp1]);
})();
})(_(_(Language$Fay$Stdlib$scanr1)(f))(xs));
}
throw ["unhandled case in scanr1", [$p1, $p2]];
});
};
};
var Language$Fay$Stdlib$lookup = function($p1) {
return function($p2) {
return new $(function() {
if (_($p2) === null) {
var _key = $p1;
return Language$Fay$Stdlib$Nothing;
}
var $tmp1 = _($p2);
if ($tmp1 instanceof Fay$$Cons) {
if (Fay$$listLen(_($tmp1.car), 2)) {
var x = Fay$$index(0)(_($tmp1.car));
var y = Fay$$index(1)(_($tmp1.car));
var xys = $tmp1.cdr;
var key = $p1;
return _(_(_(Fay$$eq)(key))(x)) ? _(Language$Fay$Stdlib$Just)(y) : _(_(Language$Fay$Stdlib$lookup)(key))(xys);
}
}
throw ["unhandled case in lookup", [$p1, $p2]];
});
};
};
var Language$Fay$Stdlib$intersperse = function($p1) {
return function($p2) {
return new $(function() {
if (_($p2) === null) {
return null;
}
var $tmp1 = _($p2);
if ($tmp1 instanceof Fay$$Cons) {
var x = $tmp1.car;
var xs = $tmp1.cdr;
var sep = $p1;
return _(_(Fay$$cons)(x))(_(_(Language$Fay$Stdlib$prependToAll)(sep))(xs));
}
throw ["unhandled case in intersperse", [$p1, $p2]];
});
};
};
var Language$Fay$Stdlib$prependToAll = function($p1) {
return function($p2) {
return new $(function() {
if (_($p2) === null) {
return null;
}
var $tmp1 = _($p2);
if ($tmp1 instanceof Fay$$Cons) {
var x = $tmp1.car;
var xs = $tmp1.cdr;
var sep = $p1;
return _(_(Fay$$cons)(sep))(_(_(Fay$$cons)(x))(_(_(Language$Fay$Stdlib$prependToAll)(sep))(xs)));
}
throw ["unhandled case in prependToAll", [$p1, $p2]];
});
};
};
var Language$Fay$Stdlib$intercalate = function($p1) {
return function($p2) {
return new $(function() {
var xss = $p2;
var xs = $p1;
return _(Language$Fay$Stdlib$concat)(_(_(Language$Fay$Stdlib$intersperse)(xs))(xss));
});
};
};
var Language$Fay$Stdlib$forM_ = function($p1) {
return function($p2) {
return new $(function() {
var m = $p2;
var $tmp1 = _($p1);
if ($tmp1 instanceof Fay$$Cons) {
var x = $tmp1.car;
var xs = $tmp1.cdr;
return _(_(Fay$$then)(_(m)(x)))(_(_(Language$Fay$Stdlib$forM_)(xs))(m));
}
if (_($p1) === null) {
return _(Fay$$$_return)(Fay$$unit);
}
throw ["unhandled case in forM_", [$p1, $p2]];
});
};
};
var Language$Fay$Stdlib$mapM_ = function($p1) {
return function($p2) {
return new $(function() {
var $tmp1 = _($p2);
if ($tmp1 instanceof Fay$$Cons) {
var x = $tmp1.car;
var xs = $tmp1.cdr;
var m = $p1;
return _(_(Fay$$then)(_(m)(x)))(_(_(Language$Fay$Stdlib$mapM_)(m))(xs));
}
if (_($p2) === null) {
return _(Fay$$$_return)(Fay$$unit);
}
throw ["unhandled case in mapM_", [$p1, $p2]];
});
};
};
var Language$Fay$Stdlib$$_const = function($p1) {
return function($p2) {
return new $(function() {
var a = $p1;
return a;
});
};
};
var Language$Fay$Stdlib$length = function($p1) {
return new $(function() {
var xs = $p1;
return _(_(Language$Fay$Stdlib$length$39$)(0))(xs);
});
};
var Language$Fay$Stdlib$length$39$ = function($p1) {
return function($p2) {
return new $(function() {
var $tmp1 = _($p2);
if ($tmp1 instanceof Fay$$Cons) {
var xs = $tmp1.cdr;
var acc = $p1;
return _(_(Language$Fay$Stdlib$length$39$)(_(Fay$$add)(_(acc))(1)))(xs);
}
var acc = $p1;
return acc;
});
};
};
var Language$Fay$Stdlib$rem = function($p1) {
return function($p2) {
return new $(function() {
var y = $p2;
var x = $p1;
return _(_(_(Fay$$eq)(y))(0)) ? _(Language$Fay$Stdlib$error)(Fay$$list("Division by zero")) : _(_(Language$Fay$Stdlib$rem$39$)(x))(y);
});
};
};
var Language$Fay$Stdlib$rem$39$ = function($p1) {
return function($p2) {
return new $(function() {
return Fay$$jsToFay(["int"], Fay$$fayToJs(["int"], $p1) % Fay$$fayToJs(["int"], $p2));
});
};
};
var Language$Fay$Stdlib$quot = function($p1) {
return function($p2) {
return new $(function() {
var y = $p2;
var x = $p1;
return _(_(_(Fay$$eq)(y))(0)) ? _(Language$Fay$Stdlib$error)(Fay$$list("Division by zero")) : _(_(Language$Fay$Stdlib$quot$39$)(x))(y);
});
};
};
var Language$Fay$Stdlib$quot$39$ = function($p1) {
return function($p2) {
return new $(function() {
return Fay$$jsToFay(["int"], ~~ (Fay$$fayToJs(["int"], $p1) / Fay$$fayToJs(["int"], $p2)));
});
};
};
var Language$Fay$Stdlib$quotRem = function($p1) {
return function($p2) {
return new $(function() {
var y = $p2;
var x = $p1;
return Fay$$list([_(_(Language$Fay$Stdlib$quot)(x))(y), _(_(Language$Fay$Stdlib$rem)(x))(y)]);
});
};
};
var Language$Fay$Stdlib$div = function($p1) {
return function($p2) {
return new $(function() {
var y = $p2;
var x = $p1;
if (_(_(Fay$$and)(_(_(Fay$$gt)(_(x))(0)))(_(_(Fay$$lt)(_(y))(0))))) {
return _(Fay$$sub)(_(_(_(Language$Fay$Stdlib$quot)(_(Fay$$sub)(_(x))(1)))(y)))(1);
} else {
if (_(_(Fay$$and)(_(_(Fay$$lt)(_(x))(0)))(_(_(Fay$$gt)(_(y))(0))))) {
return _(Fay$$sub)(_(_(_(Language$Fay$Stdlib$quot)(_(Fay$$add)(_(x))(1)))(y)))(1);
}
}
var y = $p2;
var x = $p1;
return _(_(Language$Fay$Stdlib$quot)(x))(y);
});
};
};
var Language$Fay$Stdlib$mod = function($p1) {
return function($p2) {
return new $(function() {
var y = $p2;
var x = $p1;
if (_(_(Fay$$and)(_(_(Fay$$gt)(_(x))(0)))(_(_(Fay$$lt)(_(y))(0))))) {
return _(Fay$$add)(_(_(Fay$$add)(_(_(_(Language$Fay$Stdlib$rem)(_(Fay$$sub)(_(x))(1)))(y)))(_(y))))(1);
} else {
if (_(_(Fay$$and)(_(_(Fay$$lt)(_(x))(0)))(_(_(Fay$$gt)(_(y))(0))))) {
return _(Fay$$sub)(_(_(Fay$$add)(_(_(_(Language$Fay$Stdlib$rem)(_(Fay$$add)(_(x))(1)))(y)))(_(y))))(1);
}
}
var y = $p2;
var x = $p1;
return _(_(Language$Fay$Stdlib$rem)(x))(y);
});
};
};
var Language$Fay$Stdlib$divMod = function($p1) {
return function($p2) {
return new $(function() {
var y = $p2;
var x = $p1;
if (_(_(Fay$$and)(_(_(Fay$$gt)(_(x))(0)))(_(_(Fay$$lt)(_(y))(0))))) {
return (function($tmp1) {
if (Fay$$listLen(_($tmp1), 2)) {
var q = Fay$$index(0)(_($tmp1));
var r = Fay$$index(1)(_($tmp1));
return Fay$$list([_(Fay$$sub)(_(q))(1), _(Fay$$add)(_(_(Fay$$add)(_(r))(_(y))))(1)]);
}
return (function() {
throw (["unhandled case", $tmp1]);
})();
})(_(_(Language$Fay$Stdlib$quotRem)(_(Fay$$sub)(_(x))(1)))(y));
} else {
if (_(_(Fay$$and)(_(_(Fay$$lt)(_(x))(0)))(_(_(Fay$$gt)(_(y))(1))))) {
return (function($tmp1) {
if (Fay$$listLen(_($tmp1), 2)) {
var q = Fay$$index(0)(_($tmp1));
var r = Fay$$index(1)(_($tmp1));
return Fay$$list([_(Fay$$sub)(_(q))(1), _(Fay$$sub)(_(_(Fay$$add)(_(r))(_(y))))(1)]);
}
return (function() {
throw (["unhandled case", $tmp1]);
})();
})(_(_(Language$Fay$Stdlib$quotRem)(_(Fay$$add)(_(x))(1)))(y));
}
}
var y = $p2;
var x = $p1;
return _(_(Language$Fay$Stdlib$quotRem)(x))(y);
});
};
};
var Language$Fay$Stdlib$min = function($p1) {
return function($p2) {
return new $(function() {
return Fay$$jsToFay(["unknown"], Math.min(Fay$$fayToJs(["unknown"], $p1), Fay$$fayToJs(["unknown"], $p2)));
});
};
};
var Language$Fay$Stdlib$max = function($p1) {
return function($p2) {
return new $(function() {
return Fay$$jsToFay(["unknown"], Math.max(Fay$$fayToJs(["unknown"], $p1), Fay$$fayToJs(["unknown"], $p2)));
});
};
};
var Language$Fay$Stdlib$recip = function($p1) {
return new $(function() {
var x = $p1;
return _(Fay$$div)(1)(_(x));
});
};
var Language$Fay$Stdlib$fromIntegral = function($p1) {
return new $(function() {
return Fay$$jsToFay(["double"], Fay$$fayToJs(["int"], $p1));
});
};
var Language$Fay$Stdlib$otherwise = true;
var Language$Fay$Stdlib$reverse = function($p1) {
return new $(function() {
var $tmp1 = _($p1);
if ($tmp1 instanceof Fay$$Cons) {
var x = $tmp1.car;
var xs = $tmp1.cdr;
return _(_(Language$Fay$Stdlib$$43$$43$)(_(Language$Fay$Stdlib$reverse)(xs)))(Fay$$list([x]));
}
if (_($p1) === null) {
return null;
}
throw ["unhandled case in reverse", [$p1]];
});
};
var Language$Fay$Stdlib$$61$$60$$60$ = function($p1) {
return function($p2) {
return new $(function() {
var x = $p2;
var f = $p1;
return _(_(Fay$$bind)(x))(f);
});
};
};
var Language$Fay$Stdlib$sequence = function($p1) {
return new $(function() {
var ms = $p1;
return (function() {
var k = function($p1) {
return function($p2) {
return new $(function() {
var m$39$ = $p2;
var m = $p1;
return _(_(Fay$$bind)(m))(function($p1) {
var x = $p1;
return _(_(Fay$$bind)(m$39$))(function($p1) {
var xs = $p1;
return _(Fay$$$_return)(_(_(Fay$$cons)(x))(xs));
});
});
});
};
};
return _(_(_(Language$Fay$Stdlib$foldr)(k))(_(Fay$$$_return)(null)))(ms);
})();
});
};
var Language$Fay$Stdlib$sequence_ = function($p1) {
return new $(function() {
if (_($p1) === null) {
return _(Fay$$$_return)(Fay$$unit);
}
var $tmp1 = _($p1);
if ($tmp1 instanceof Fay$$Cons) {
var m = $tmp1.car;
var ms = $tmp1.cdr;
return _(_(Fay$$then)(m))(_(Language$Fay$Stdlib$sequence_)(ms));
}
throw ["unhandled case in sequence_", [$p1]];
});
};
var Language$Fay$Stdlib$id = function($p1) {
return new $(function() {
var x = $p1;
return x;
});
};
var Language$Fay$Stdlib$asTypeOf = new $(function() {
return Language$Fay$Stdlib$$_const;
});
var Language$Fay$Stdlib$until = function($p1) {
return function($p2) {
return function($p3) {
return new $(function() {
var x = $p3;
var f = $p2;
var p = $p1;
return _(_(p)(x)) ? x : _(_(_(Language$Fay$Stdlib$until)(p))(f))(_(f)(x));
});
};
};
};
var Language$Fay$Stdlib$$36$$33$ = function($p1) {
return function($p2) {
return new $(function() {
var x = $p2;
var f = $p1;
return _(_(Fay$$seq)(x))(_(f)(x));
});
};
};
var Language$Fay$Stdlib$$33$$33$ = function($p1) {
return function($p2) {
return new $(function() {
var b = $p2;
var a = $p1;
return (function() {
var go = function($p1) {
return function($p2) {
return new $(function() {
if (_($p1) === null) {
return _(Language$Fay$Stdlib$error)(Fay$$list("(!!): index too large"));
}
if (_($p2) === 0) {
var $tmp1 = _($p1);
if ($tmp1 instanceof Fay$$Cons) {
var h = $tmp1.car;
return h;
}
}
var n = $p2;
var $tmp1 = _($p1);
if ($tmp1 instanceof Fay$$Cons) {
var t = $tmp1.cdr;
return _(_(go)(t))(_(Fay$$sub)(_(n))(1));
}
throw ["unhandled case in go", [$p1, $p2]];
});
};
};
return _(_(Fay$$lt)(_(b))(0)) ? _(Language$Fay$Stdlib$error)(Fay$$list("(!!): negative index")) : _(_(go)(a))(b);
})();
});
};
};
var Language$Fay$Stdlib$head = function($p1) {
return new $(function() {
if (_($p1) === null) {
return _(Language$Fay$Stdlib$error)(Fay$$list("head: empty list"));
}
var $tmp1 = _($p1);
if ($tmp1 instanceof Fay$$Cons) {
var h = $tmp1.car;
return h;
}
throw ["unhandled case in head", [$p1]];
});
};
var Language$Fay$Stdlib$tail = function($p1) {
return new $(function() {
if (_($p1) === null) {
return _(Language$Fay$Stdlib$error)(Fay$$list("tail: empty list"));
}
var $tmp1 = _($p1);
if ($tmp1 instanceof Fay$$Cons) {
var t = $tmp1.cdr;
return t;
}
throw ["unhandled case in tail", [$p1]];
});
};
var Language$Fay$Stdlib$init = function($p1) {
return new $(function() {
if (_($p1) === null) {
return _(Language$Fay$Stdlib$error)(Fay$$list("init: empty list"));
}
if (Fay$$listLen(_($p1), 1)) {
var a = Fay$$index(0)(_($p1));
return Fay$$list([a]);
}
var $tmp1 = _($p1);
if ($tmp1 instanceof Fay$$Cons) {
var h = $tmp1.car;
var t = $tmp1.cdr;
return _(_(Fay$$cons)(h))(_(Language$Fay$Stdlib$init)(t));
}
throw ["unhandled case in init", [$p1]];
});
};
var Language$Fay$Stdlib$last = function($p1) {
return new $(function() {
if (_($p1) === null) {
return _(Language$Fay$Stdlib$error)(Fay$$list("last: empty list"));
}
if (Fay$$listLen(_($p1), 1)) {
var a = Fay$$index(0)(_($p1));
return a;
}
var $tmp1 = _($p1);
if ($tmp1 instanceof Fay$$Cons) {
var t = $tmp1.cdr;
return _(Language$Fay$Stdlib$last)(t);
}
throw ["unhandled case in last", [$p1]];
});
};
var Language$Fay$Stdlib$iterate = function($p1) {
return function($p2) {
return new $(function() {
var x = $p2;
var f = $p1;
return _(_(Fay$$cons)(x))(_(_(Language$Fay$Stdlib$iterate)(f))(_(f)(x)));
});
};
};
var Language$Fay$Stdlib$repeat = function($p1) {
return new $(function() {
var x = $p1;
return _(_(Fay$$cons)(x))(_(Language$Fay$Stdlib$repeat)(x));
});
};
var Language$Fay$Stdlib$replicate = function($p1) {
return function($p2) {
return new $(function() {
if (_($p1) === 0) {
return null;
}
var x = $p2;
var n = $p1;
return _(_(Fay$$lt)(_(n))(0)) ? _(Language$Fay$Stdlib$error)(Fay$$list("replicate: negative length")) : _(_(Fay$$cons)(x))(_(_(Language$Fay$Stdlib$replicate)(_(Fay$$sub)(_(n))(1)))(x));
});
};
};
var Language$Fay$Stdlib$cycle = function($p1) {
return new $(function() {
if (_($p1) === null) {
return _(Language$Fay$Stdlib$error)(Fay$$list("cycle: empty list"));
}
var xs = $p1;
return (function() {
var xs$39$ = new $(function() {
return _(_(Language$Fay$Stdlib$$43$$43$)(xs))(xs$39$);
});
return xs$39$;
})();
});
};
var Language$Fay$Stdlib$take = function($p1) {
return function($p2) {
return new $(function() {
if (_($p1) === 0) {
return null;
}
if (_($p2) === null) {
return null;
}
var $tmp1 = _($p2);
if ($tmp1 instanceof Fay$$Cons) {
var x = $tmp1.car;
var xs = $tmp1.cdr;
var n = $p1;
return _(_(Fay$$lt)(_(n))(0)) ? _(Language$Fay$Stdlib$error)(Fay$$list("take: negative length")) : _(_(Fay$$cons)(x))(_(_(Language$Fay$Stdlib$take)(_(Fay$$sub)(_(n))(1)))(xs));
}
throw ["unhandled case in take", [$p1, $p2]];
});
};
};
var Language$Fay$Stdlib$drop = function($p1) {
return function($p2) {
return new $(function() {
var xs = $p2;
if (_($p1) === 0) {
return xs;
}
if (_($p2) === null) {
return null;
}
var $tmp1 = _($p2);
if ($tmp1 instanceof Fay$$Cons) {
var xs = $tmp1.cdr;
var n = $p1;
return _(_(Fay$$lt)(_(n))(0)) ? _(Language$Fay$Stdlib$error)(Fay$$list("drop: negative length")) : _(_(Language$Fay$Stdlib$drop)(_(Fay$$sub)(_(n))(1)))(xs);
}
throw ["unhandled case in drop", [$p1, $p2]];
});
};
};
var Language$Fay$Stdlib$splitAt = function($p1) {
return function($p2) {
return new $(function() {
var xs = $p2;
if (_($p1) === 0) {
return Fay$$list([null, xs]);
}
if (_($p2) === null) {
return Fay$$list([null, null]);
}
var $tmp1 = _($p2);
if ($tmp1 instanceof Fay$$Cons) {
var x = $tmp1.car;
var xs = $tmp1.cdr;
var n = $p1;
return _(_(Fay$$lt)(_(n))(0)) ? _(Language$Fay$Stdlib$error)(Fay$$list("splitAt: negative length")) : (function($tmp1) {
if (Fay$$listLen(_($tmp1), 2)) {
var a = Fay$$index(0)(_($tmp1));
var b = Fay$$index(1)(_($tmp1));
return Fay$$list([_(_(Fay$$cons)(x))(a), b]);
}
return (function() {
throw (["unhandled case", $tmp1]);
})();
})(_(_(Language$Fay$Stdlib$splitAt)(_(Fay$$sub)(_(n))(1)))(xs));
}
throw ["unhandled case in splitAt", [$p1, $p2]];
});
};
};
var Language$Fay$Stdlib$takeWhile = function($p1) {
return function($p2) {
return new $(function() {
if (_($p2) === null) {
return null;
}
var $tmp1 = _($p2);
if ($tmp1 instanceof Fay$$Cons) {
var x = $tmp1.car;
var xs = $tmp1.cdr;
var p = $p1;
return _(_(p)(x)) ? _(_(Fay$$cons)(x))(_(_(Language$Fay$Stdlib$takeWhile)(p))(xs)) : null;
}
throw ["unhandled case in takeWhile", [$p1, $p2]];
});
};
};
var Language$Fay$Stdlib$dropWhile = function($p1) {
return function($p2) {
return new $(function() {
if (_($p2) === null) {
return null;
}
var $tmp1 = _($p2);
if ($tmp1 instanceof Fay$$Cons) {
var x = $tmp1.car;
var xs = $tmp1.cdr;
var p = $p1;
return _(_(p)(x)) ? _(_(Language$Fay$Stdlib$dropWhile)(p))(xs) : _(_(Fay$$cons)(x))(xs);
}
throw ["unhandled case in dropWhile", [$p1, $p2]];
});
};
};
var Language$Fay$Stdlib$span = function($p1) {
return function($p2) {
return new $(function() {
if (_($p2) === null) {
return Fay$$list([null, null]);
}
var $tmp1 = _($p2);
if ($tmp1 instanceof Fay$$Cons) {
var x = $tmp1.car;
var xs = $tmp1.cdr;
var p = $p1;
return _(_(p)(x)) ? (function($tmp1) {
if (Fay$$listLen(_($tmp1), 2)) {
var a = Fay$$index(0)(_($tmp1));
var b = Fay$$index(1)(_($tmp1));
return Fay$$list([_(_(Fay$$cons)(x))(a), b]);
}
return (function() {
throw (["unhandled case", $tmp1]);
})();
})(_(_(Language$Fay$Stdlib$span)(p))(xs)) : Fay$$list([null, _(_(Fay$$cons)(x))(xs)]);
}
throw ["unhandled case in span", [$p1, $p2]];
});
};
};
var Language$Fay$Stdlib$$_break = function($p1) {
return new $(function() {
var p = $p1;
return _(Language$Fay$Stdlib$span)(_(_(Language$Fay$Stdlib$$46$)(Language$Fay$Stdlib$not))(p));
});
};
var Language$Fay$Stdlib$print = function($p1) {
return new $(function() {
return Fay$$jsToFay(["action", [
["unknown"]
]], (function(x) {
if (console && console.log) console.log(x)
})(Fay$$fayToJs(["unknown"], $p1)));
});
};
var Language$Fay$Stdlib$putStrLn = function($p1) {
return new $(function() {
return Fay$$jsToFay(["action", [
["unknown"]
]], (function(x) {
if (console && console.log) console.log(x)
})(Fay$$fayToJs(["string"], $p1)));
});
};
var $_Language$Fay$Stdlib$Just = function(slot1) {
this.slot1 = slot1;
};
var Language$Fay$Stdlib$Just = function(slot1) {
return new $(function() {
return new $_Language$Fay$Stdlib$Just(slot1);
});
};
var $_Language$Fay$Stdlib$Nothing = function() {};
var Language$Fay$Stdlib$Nothing = new $(function() {
return new $_Language$Fay$Stdlib$Nothing();
});
var FileRead$demo = new $(function() {
return (function($tmp1) {
if (_($tmp1) instanceof $_FileRead$CC) {
var $_return = _($tmp1).cc_return;
var $62$$62$$61$ = _($tmp1).cc_bind;
var $62$$62$ = _($tmp1).cc_then;
var lift = _($tmp1).cc_lift;
return _(_($62$$62$$61$)(_(FileRead$readDir)(Fay$$list("."))))(function($p1) {
var all_entries = $p1;
return _(_($62$$62$$61$)(_(_(_(_(FileRead$filterM)($_return))($62$$62$$61$))(FileRead$isFile))(all_entries)))(function($p1) {
var all_files = $p1;
return _(_($62$$62$$61$)(_(_(Language$Fay$Stdlib$$36$)(_(_(FileRead$sequenceM)($_return))($62$$62$$61$)))(_(_(Language$Fay$Stdlib$map)(FileRead$readFile))(all_files))))(function($p1) {
var all_text = $p1;
return _(_($62$$62$)(_(_(Language$Fay$Stdlib$$36$)(lift))(_(_(Language$Fay$Stdlib$$36$)(Language$Fay$Stdlib$print))(_(_(Language$Fay$Stdlib$$36$)(Language$Fay$Stdlib$length))(_(_(Language$Fay$Stdlib$$36$)(Language$Fay$Stdlib$concat))(_(_(Language$Fay$Stdlib$take)(3))(all_text)))))))(_(_(Language$Fay$Stdlib$$36$)(lift))(_(_(Language$Fay$Stdlib$$36$)(Language$Fay$Stdlib$putStrLn))(_(FileRead$do_something)(all_text))));
});
});
});
}
return (function() {
throw (["unhandled case", $tmp1]);
})();
})(FileRead$contT);
});
var FileRead$do_something = new $(function() {
return _(_(Language$Fay$Stdlib$$46$)(Language$Fay$Stdlib$unlines))(_(_(Language$Fay$Stdlib$$46$)(_(Language$Fay$Stdlib$take)(10)))(_(Language$Fay$Stdlib$map)(_(Language$Fay$Stdlib$take)(40))));
});
var FileRead$main = new $(function() {
return _(_(FileRead$runContT)(FileRead$demo))(function($p1) {
return _(Fay$$$_return)(Fay$$unit);
});
});
var FileRead$readDir_ = function($p1) {
return function($p2) {
return new $(function() {
return Fay$$jsToFay(["action", [
["unknown"]
]], require('fs').readdir(Fay$$fayToJs(["string"], $p1), function(_, s) {
Fay$$fayToJs(["function", [
["list", [
["string"]
]],
["action", [
["unknown"]
]]
]], $p2)(s);
}));
});
};
};
var FileRead$readDir = function($p1) {
return new $(function() {
var s = $p1;
return _(_(Language$Fay$Stdlib$$36$)(FileRead$ContT))(_(FileRead$readDir_)(s));
});
};
var FileRead$readFile_ = function($p1) {
return function($p2) {
return new $(function() {
return Fay$$jsToFay(["action", [
["unknown"]
]], require('fs').readFile(Fay$$fayToJs(["string"], $p1), 'utf-8', function(_, s) {
Fay$$fayToJs(["function", [
["string"],
["action", [
["unknown"]
]]
]], $p2)(s);
}));
});
};
};
var FileRead$readFile = new $(function() {
return _(_(Language$Fay$Stdlib$$46$)(FileRead$ContT))(FileRead$readFile_);
});
var FileRead$isFile_ = function($p1) {
return function($p2) {
return new $(function() {
return Fay$$jsToFay(["action", [
["unknown"]
]], require('fs').stat(Fay$$fayToJs(["string"], $p1), function(_, s) {
Fay$$fayToJs(["function", [
["bool"],
["action", [
["unknown"]
]]
]], $p2)(s.isFile());
}));
});
};
};
var FileRead$isFile = new $(function() {
return _(_(Language$Fay$Stdlib$$46$)(FileRead$ContT))(FileRead$isFile_);
});
var FileRead$sequenceM = function($p1) {
return function($p2) {
return function($p3) {
return new $(function() {
if (_($p3) === null) {
var $62$$62$$61$ = $p2;
var $_return = $p1;
return _($_return)(null);
}
var $tmp1 = _($p3);
if ($tmp1 instanceof Fay$$Cons) {
var x = $tmp1.car;
var xs = $tmp1.cdr;
var $62$$62$$61$ = $p2;
var $_return = $p1;
return _(_($62$$62$$61$)(x))(function($p1) {
var r = $p1;
return _(_($62$$62$$61$)(_(_(_(FileRead$sequenceM)($_return))($62$$62$$61$))(xs)))(function($p1) {
var rs = $p1;
return _(_(Language$Fay$Stdlib$$36$)($_return))(_(_(Fay$$cons)(r))(rs));
});
});
}
throw ["unhandled case in sequenceM", [$p1, $p2, $p3]];
});
};
};
};
var FileRead$filterM = function($p1) {
return function($p2) {
return function($p3) {
return function($p4) {
return new $(function() {
if (_($p4) === null) {
var op = $p3;
var $62$$62$$61$ = $p2;
var $_return = $p1;
return _($_return)(null);
}
var $tmp1 = _($p4);
if ($tmp1 instanceof Fay$$Cons) {
var x = $tmp1.car;
var xs = $tmp1.cdr;
var op = $p3;
var $62$$62$$61$ = $p2;
var $_return = $p1;
return _(_($62$$62$$61$)(_(op)(x)))(function($p1) {
var r = $p1;
return _(_($62$$62$$61$)(_(_(_(_(FileRead$filterM)($_return))($62$$62$$61$))(op))(xs)))(function($p1) {
var ys = $p1;
return _($_return)(_(r) ? _(_(Fay$$cons)(x))(ys) : ys);
});
});
}
throw ["unhandled case in filterM", [$p1, $p2, $p3, $p4]];
});
};
};
};
};
var $_FileRead$CC = function(cc_return, cc_bind, cc_then, cc_callCC, cc_lift) {
this.cc_return = cc_return;
this.cc_bind = cc_bind;
this.cc_then = cc_then;
this.cc_callCC = cc_callCC;
this.cc_lift = cc_lift;
};
var FileRead$CC = function(cc_return) {
return function(cc_bind) {
return function(cc_then) {
return function(cc_callCC) {
return function(cc_lift) {
return new $(function() {
return new $_FileRead$CC(cc_return, cc_bind, cc_then, cc_callCC, cc_lift);
});
};
};
};
};
};
var FileRead$cc_return = function(x) {
return new $(function() {
return _(x).cc_return;
});
};
var FileRead$cc_bind = function(x) {
return new $(function() {
return _(x).cc_bind;
});
};
var FileRead$cc_then = function(x) {
return new $(function() {
return _(x).cc_then;
});
};
var FileRead$cc_callCC = function(x) {
return new $(function() {
return _(x).cc_callCC;
});
};
var FileRead$cc_lift = function(x) {
return new $(function() {
return _(x).cc_lift;
});
};
var $_FileRead$ContT = function(runContT) {
this.runContT = runContT;
};
var FileRead$ContT = function(runContT) {
return new $(function() {
return new $_FileRead$ContT(runContT);
});
};
var FileRead$runContT = function(x) {
return new $(function() {
return _(x).runContT;
});
};
var FileRead$contT = new $(function() {
var $62$$62$$61$$42$ = new $(function() {
return Fay$$bind;
});
return (function() {
var $_return = function($p1) {
return new $(function() {
var a = $p1;
return _(FileRead$ContT)(function($p1) {
var f = $p1;
return _(f)(a);
});
});
};
var $62$$62$$61$ = function($p1) {
return function($p2) {
return new $(function() {
var k = $p2;
var m = $p1;
return _(_(Language$Fay$Stdlib$$36$)(FileRead$ContT))(function($p1) {
var c = $p1;
return _(_(FileRead$runContT)(m))(function($p1) {
var a = $p1;
return _(_(FileRead$runContT)(_(k)(a)))(c);
});
});
});
};
};
var $62$$62$ = function($p1) {
return function($p2) {
return new $(function() {
var n = $p2;
var m = $p1;
return _(_($62$$62$$61$)(m))(function($p1) {
return n;
});
});
};
};
var callCC = function($p1) {
return new $(function() {
var f = $p1;
return _(_(Language$Fay$Stdlib$$36$)(FileRead$ContT))(function($p1) {
var c = $p1;
return _(_(FileRead$runContT)(_(f)(function($p1) {
var a = $p1;
return _(_(Language$Fay$Stdlib$$36$)(FileRead$ContT))(function($p1) {
return _(c)(a);
});
})))(c);
});
});
};
var lift = function($p1) {
return new $(function() {
var m = $p1;
return _(FileRead$ContT)(function($p1) {
var x = $p1;
return _(_($62$$62$$61$$42$)(m))(x);
});
});
};
return _(_(_(_(_(FileRead$CC)($_return))($62$$62$$61$))($62$$62$))(callCC))(lift);
})();
});
var Fay$$fayToJsUserDefined = function(type, obj) {
var _obj = _(obj);
var argTypes = type[2];
if (_obj instanceof $_FileRead$ContT) {
var obj_ = {
"instance": "ContT"
};
var obj_runContT = Fay$$fayToJs(["function", [
["function", [
["unknown"],
["unknown"]
]],
["unknown"]
]], _(_obj.runContT));
if (undefined !== obj_runContT) {
obj_.runContT = obj_runContT;
}
return obj_;
}
if (_obj instanceof $_FileRead$CC) {
var obj_ = {
"instance": "CC"
};
var obj_cc_return = Fay$$fayToJs(["unknown"], _(_obj.cc_return));
if (undefined !== obj_cc_return) {
obj_.cc_return = obj_cc_return;
}
var obj_cc_bind = Fay$$fayToJs(["unknown"], _(_obj.cc_bind));
if (undefined !== obj_cc_bind) {
obj_.cc_bind = obj_cc_bind;
}
var obj_cc_then = Fay$$fayToJs(["unknown"], _(_obj.cc_then));
if (undefined !== obj_cc_then) {
obj_.cc_then = obj_cc_then;
}
var obj_cc_callCC = Fay$$fayToJs(["unknown"], _(_obj.cc_callCC));
if (undefined !== obj_cc_callCC) {
obj_.cc_callCC = obj_cc_callCC;
}
var obj_cc_lift = Fay$$fayToJs(["unknown"], _(_obj.cc_lift));
if (undefined !== obj_cc_lift) {
obj_.cc_lift = obj_cc_lift;
}
return obj_;
}
if (_obj instanceof $_Language$Fay$Stdlib$Nothing) {
var obj_ = {
"instance": "Nothing"
};
return obj_;
}
if (_obj instanceof $_Language$Fay$Stdlib$Just) {
var obj_ = {
"instance": "Just"
};
var obj_slot1 = Fay$$fayToJs(["unknown"], _(_obj.slot1));
if (undefined !== obj_slot1) {
obj_.slot1 = obj_slot1;
}
return obj_;
}
if (_obj instanceof $_Language$Fay$Stdlib$EQ) {
var obj_ = {
"instance": "EQ"
};
return obj_;
}
if (_obj instanceof $_Language$Fay$Stdlib$LT) {
var obj_ = {
"instance": "LT"
};
return obj_;
}
if (_obj instanceof $_Language$Fay$Stdlib$GT) {
var obj_ = {
"instance": "GT"
};
return obj_;
}
if (_obj instanceof $_Language$Fay$Stdlib$Right) {
var obj_ = {
"instance": "Right"
};
var obj_slot1 = Fay$$fayToJs(["unknown"], _(_obj.slot1));
if (undefined !== obj_slot1) {
obj_.slot1 = obj_slot1;
}
return obj_;
}
if (_obj instanceof $_Language$Fay$Stdlib$Left) {
var obj_ = {
"instance": "Left"
};
var obj_slot1 = Fay$$fayToJs(["unknown"], _(_obj.slot1));
if (undefined !== obj_slot1) {
obj_.slot1 = obj_slot1;
}
return obj_;
}
if (_obj instanceof $_Language$Fay$Stdlib$Defined) {
var obj_ = {
"instance": "Defined"
};
var obj_slot1 = Fay$$fayToJs(["unknown"], _(_obj.slot1));
if (undefined !== obj_slot1) {
obj_.slot1 = obj_slot1;
}
return obj_;
}
if (_obj instanceof $_Language$Fay$Stdlib$Undefined) {
var obj_ = {
"instance": "Undefined"
};
return obj_;
}
return obj;
};
var Fay$$jsToFayUserDefined = function(type, obj) {
if (obj["instance"] === "ContT") {
return new $_FileRead$ContT(Fay$$jsToFay(["function", [
["function", [
["unknown"],
["unknown"]
]],
["unknown"]
]], obj["runContT"]));
}
if (obj["instance"] === "CC") {
return new $_FileRead$CC(Fay$$jsToFay(["unknown"], obj["cc_return"]), Fay$$jsToFay(["unknown"], obj["cc_bind"]), Fay$$jsToFay(["unknown"], obj["cc_then"]), Fay$$jsToFay(["unknown"], obj["cc_callCC"]), Fay$$jsToFay(["unknown"], obj["cc_lift"]));
}
if (obj["instance"] === "Nothing") {
return new $_Language$Fay$Stdlib$Nothing();
}
if (obj["instance"] === "Just") {
return new $_Language$Fay$Stdlib$Just(Fay$$jsToFay(["unknown"], obj["slot1"]));
}
if (obj["instance"] === "EQ") {
return new $_Language$Fay$Stdlib$EQ();
}
if (obj["instance"] === "LT") {
return new $_Language$Fay$Stdlib$LT();
}
if (obj["instance"] === "GT") {
return new $_Language$Fay$Stdlib$GT();
}
if (obj["instance"] === "Right") {
return new $_Language$Fay$Stdlib$Right(Fay$$jsToFay(["unknown"], obj["slot1"]));
}
if (obj["instance"] === "Left") {
return new $_Language$Fay$Stdlib$Left(Fay$$jsToFay(["unknown"], obj["slot1"]));
}
if (obj["instance"] === "Defined") {
return new $_Language$Fay$Stdlib$Defined(Fay$$jsToFay(["unknown"], obj["slot1"]));
}
if (obj["instance"] === "Undefined") {
return new $_Language$Fay$Stdlib$Undefined();
}
return obj;
};
// Exports
this.FileRead$contT = FileRead$contT;
this.FileRead$runContT = FileRead$runContT;
this.FileRead$ContT = FileRead$ContT;
this.FileRead$cc_lift = FileRead$cc_lift;
this.FileRead$cc_callCC = FileRead$cc_callCC;
this.FileRead$cc_then = FileRead$cc_then;
this.FileRead$cc_bind = FileRead$cc_bind;
this.FileRead$cc_return = FileRead$cc_return;
this.FileRead$CC = FileRead$CC;
this.FileRead$filterM = FileRead$filterM;
this.FileRead$sequenceM = FileRead$sequenceM;
this.FileRead$isFile = FileRead$isFile;
this.FileRead$isFile_ = FileRead$isFile_;
this.FileRead$readFile = FileRead$readFile;
this.FileRead$readFile_ = FileRead$readFile_;
this.FileRead$readDir = FileRead$readDir;
this.FileRead$readDir_ = FileRead$readDir_;
this.FileRead$main = FileRead$main;
this.FileRead$do_something = FileRead$do_something;
this.FileRead$demo = FileRead$demo;
// Built-ins
this._ = _;
this.$ = $;
this.$fayToJs = Fay$$fayToJs;
this.$jsToFay = Fay$$jsToFay;
};;
var main = new FileRead();
main._(main.FileRead$main);
@paulcc
Copy link
Author

paulcc commented Dec 3, 2012

Files.hs is obviously the original code...

Files.js is the prettified compiler output

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment