Skip to content
Projects
Groups
Snippets
Help
Loading...
Help
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
P
purescript-reactix-d3
Project
Project
Details
Activity
Releases
Cycle Analytics
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Charts
Issues
0
Issues
0
List
Board
Labels
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Charts
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Charts
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
gargantext
purescript-reactix-d3
Commits
d5c69824
Commit
d5c69824
authored
Jun 24, 2021
by
Przemyslaw Kaminski
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
[react] sample react app added, first draft
parent
77f25aa9
Changes
8
Hide whitespace changes
Inline
Side-by-side
Showing
8 changed files
with
1166 additions
and
74 deletions
+1166
-74
index.html
example/dist/index.html
+2
-0
index.html
example/index.html
+2
-0
index.js
example/index.js
+1079
-48
package.json
example/package.json
+3
-1
spago.dhall
example/spago.dhall
+3
-0
EReact.purs
example/src/EReact.purs
+32
-0
Main.purs
example/src/Main.purs
+4
-0
yarn.lock
example/yarn.lock
+41
-25
No files found.
example/dist/index.html
View file @
d5c69824
...
...
@@ -34,6 +34,8 @@
<div
id=
"reset-zoom"
>
Reset zoom
</div>
<div
id=
"xml"
></div>
<div
id=
"react"
></div>
<!-- NOTE: it's important that this is at the end so that the DOM is ready -->
<script
type=
"text/javascript"
src=
"/index.fd532818.js"
></script>
</body>
...
...
example/index.html
View file @
d5c69824
...
...
@@ -35,6 +35,8 @@
<div
id=
"reset-zoom"
>
Reset zoom
</div>
<div
id=
"xml"
></div>
<div
id=
"react"
></div>
<!-- NOTE: it's important that this is at the end so that the DOM is ready -->
<script
type=
"text/javascript"
src=
"index.js"
></script>
</body>
...
...
example/index.js
View file @
d5c69824
...
...
@@ -968,6 +968,7 @@ var PS = {};
},
$foreign
.
pureE
);
var
functorEffect
=
new
Data_Functor
.
Functor
(
Control_Applicative
.
liftA1
(
applicativeEffect
));
exports
[
"functorEffect"
]
=
functorEffect
;
exports
[
"applyEffect"
]
=
applyEffect
;
exports
[
"applicativeEffect"
]
=
applicativeEffect
;
exports
[
"bindEffect"
]
=
bindEffect
;
exports
[
"monadEffect"
]
=
monadEffect
;
...
...
@@ -2458,17 +2459,141 @@ var PS = {};
return
obj
;
}
function
removeProperty
(
prop
,
obj
)
{
delete
obj
[
prop
];
return
obj
;
}
exports
.
_keys
=
keys
;
exports
.
_getProperty
=
getProperty
;
exports
.
_setProperty
=
setProperty
;
exports
.
_defineProperty
=
defineProperty
;
exports
.
_removeProperty
=
removeProperty
;
})(
PS
[
"FFI.Simple.Objects"
]
=
PS
[
"FFI.Simple.Objects"
]
||
{});
(
function
(
exports
)
{
'use strict'
;
exports
.
_nullUndef
=
function
nullUndef
(
v
)
{
return
(
typeof
v
===
'undefined'
)
?
null
:
v
;
};
})(
PS
[
"FFI.Simple.Undef"
]
=
PS
[
"FFI.Simple.Undef"
]
||
{});
(
function
(
exports
)
{
/* eslint-disable no-eq-null, eqeqeq */
"use strict"
;
exports
.
nullable
=
function
(
a
,
r
,
f
)
{
return
a
==
null
?
r
:
f
(
a
);
};
})(
PS
[
"Data.Nullable"
]
=
PS
[
"Data.Nullable"
]
||
{});
(
function
(
$PS
)
{
// Generated by purs version 0.14.2
"use strict"
;
$PS
[
"Data.Maybe"
]
=
$PS
[
"Data.Maybe"
]
||
{};
var
exports
=
$PS
[
"Data.Maybe"
];
var
Data_Function
=
$PS
[
"Data.Function"
];
var
Data_Functor
=
$PS
[
"Data.Functor"
];
var
Nothing
=
(
function
()
{
function
Nothing
()
{
};
Nothing
.
value
=
new
Nothing
();
return
Nothing
;
})();
var
Just
=
(
function
()
{
function
Just
(
value0
)
{
this
.
value0
=
value0
;
};
Just
.
create
=
function
(
value0
)
{
return
new
Just
(
value0
);
};
return
Just
;
})();
var
maybe
=
function
(
v
)
{
return
function
(
v1
)
{
return
function
(
v2
)
{
if
(
v2
instanceof
Nothing
)
{
return
v
;
};
if
(
v2
instanceof
Just
)
{
return
v1
(
v2
.
value0
);
};
throw
new
Error
(
"Failed pattern match at Data.Maybe (line 230, column 1 - line 230, column 51): "
+
[
v
.
constructor
.
name
,
v1
.
constructor
.
name
,
v2
.
constructor
.
name
]);
};
};
};
var
isNothing
=
maybe
(
true
)(
Data_Function
[
"const"
](
false
));
var
functorMaybe
=
new
Data_Functor
.
Functor
(
function
(
v
)
{
return
function
(
v1
)
{
if
(
v1
instanceof
Just
)
{
return
new
Just
(
v
(
v1
.
value0
));
};
return
Nothing
.
value
;
};
});
var
fromJust
=
function
(
dictPartial
)
{
return
function
(
v
)
{
if
(
v
instanceof
Just
)
{
return
v
.
value0
;
};
throw
new
Error
(
"Failed pattern match at Data.Maybe (line 281, column 1 - line 281, column 46): "
+
[
v
.
constructor
.
name
]);
};
};
exports
[
"Nothing"
]
=
Nothing
;
exports
[
"Just"
]
=
Just
;
exports
[
"maybe"
]
=
maybe
;
exports
[
"isNothing"
]
=
isNothing
;
exports
[
"fromJust"
]
=
fromJust
;
exports
[
"functorMaybe"
]
=
functorMaybe
;
})(
PS
);
(
function
(
$PS
)
{
// Generated by purs version 0.14.2
"use strict"
;
$PS
[
"Data.Nullable"
]
=
$PS
[
"Data.Nullable"
]
||
{};
var
exports
=
$PS
[
"Data.Nullable"
];
var
$foreign
=
$PS
[
"Data.Nullable"
];
var
Data_Maybe
=
$PS
[
"Data.Maybe"
];
var
toMaybe
=
function
(
n
)
{
return
$foreign
.
nullable
(
n
,
Data_Maybe
.
Nothing
.
value
,
Data_Maybe
.
Just
.
create
);
};
exports
[
"toMaybe"
]
=
toMaybe
;
})(
PS
);
(
function
(
$PS
)
{
// Generated by purs version 0.14.2
"use strict"
;
$PS
[
"FFI.Simple.Undef"
]
=
$PS
[
"FFI.Simple.Undef"
]
||
{};
var
exports
=
$PS
[
"FFI.Simple.Undef"
];
var
$foreign
=
$PS
[
"FFI.Simple.Undef"
];
var
Data_Nullable
=
$PS
[
"Data.Nullable"
];
var
nullUndef
=
$foreign
[
"_nullUndef"
];
var
maybeUndef
=
function
(
$1
)
{
return
Data_Nullable
.
toMaybe
(
nullUndef
(
$1
));
};
exports
[
"maybeUndef"
]
=
maybeUndef
;
})(
PS
);
(
function
(
$PS
)
{
// Generated by purs version 0.14.2
"use strict"
;
$PS
[
"FFI.Simple.Objects"
]
=
$PS
[
"FFI.Simple.Objects"
]
||
{};
var
exports
=
$PS
[
"FFI.Simple.Objects"
];
var
$foreign
=
$PS
[
"FFI.Simple.Objects"
];
var
Data_Function_Uncurried
=
$PS
[
"Data.Function.Uncurried"
];
var
Data_Function
=
$PS
[
"Data.Function"
];
var
Data_Function_Uncurried
=
$PS
[
"Data.Function.Uncurried"
];
var
FFI_Simple_Undef
=
$PS
[
"FFI.Simple.Undef"
];
var
setProperty
=
Data_Function_Uncurried
.
runFn3
(
$foreign
[
"_setProperty"
]);
var
setProperty$prime
=
Data_Function
.
flip
(
setProperty
);
var
removeProperty
=
Data_Function_Uncurried
.
runFn2
(
$foreign
[
"_removeProperty"
]);
var
removeProperty$prime
=
Data_Function
.
flip
(
removeProperty
);
var
keys
=
$foreign
[
"_keys"
];
var
getProperty
=
Data_Function_Uncurried
.
runFn2
(
$foreign
[
"_getProperty"
]);
var
getProperty$prime
=
Data_Function
.
flip
(
getProperty
);
var
maybeGetProperty
=
function
(
p
)
{
var
$1
=
getProperty
(
p
);
return
function
(
$2
)
{
return
FFI_Simple_Undef
.
maybeUndef
(
$1
(
$2
));
};
};
var
maybeGetProperty$prime
=
Data_Function
.
flip
(
maybeGetProperty
);
var
defineProperty
=
Data_Function_Uncurried
.
runFn3
(
$foreign
[
"_defineProperty"
]);
exports
[
"keys"
]
=
keys
;
exports
[
"getProperty"
]
=
getProperty
;
exports
[
"getProperty'"
]
=
getProperty$prime
;
exports
[
"maybeGetProperty'"
]
=
maybeGetProperty$prime
;
exports
[
"setProperty'"
]
=
setProperty$prime
;
exports
[
"defineProperty"
]
=
defineProperty
;
exports
[
"removeProperty'"
]
=
removeProperty$prime
;
})(
PS
);
(
function
(
$PS
)
{
// Generated by purs version 0.14.2
...
...
@@ -2564,9 +2689,26 @@ var PS = {};
exports
[
"log"
]
=
log
;
exports
[
"log2"
]
=
log2
;
})(
PS
);
(
function
(
$PS
)
{
// Generated by purs version 0.14.2
"use strict"
;
$PS
[
"DOM.Simple.Document"
]
=
$PS
[
"DOM.Simple.Document"
]
||
{};
var
exports
=
$PS
[
"DOM.Simple.Document"
];
var
FFI_Simple_Globals
=
$PS
[
"FFI.Simple.Globals"
];
var
document
=
FFI_Simple_Globals
.
unsafeGlobal
(
"document"
);
exports
[
"document"
]
=
document
;
})(
PS
);
(
function
(
exports
)
{
"use strict"
;
//------------------------------------------------------------------------------
// Array size ------------------------------------------------------------------
//------------------------------------------------------------------------------
exports
.
length
=
function
(
xs
)
{
return
xs
.
length
;
};
//------------------------------------------------------------------------------
// Non-indexed reads -----------------------------------------------------------
//------------------------------------------------------------------------------
...
...
@@ -2579,30 +2721,6 @@ var PS = {};
};
};
})(
PS
[
"Data.Array"
]
=
PS
[
"Data.Array"
]
||
{});
(
function
(
$PS
)
{
// Generated by purs version 0.14.2
"use strict"
;
$PS
[
"Data.Maybe"
]
=
$PS
[
"Data.Maybe"
]
||
{};
var
exports
=
$PS
[
"Data.Maybe"
];
var
Nothing
=
(
function
()
{
function
Nothing
()
{
};
Nothing
.
value
=
new
Nothing
();
return
Nothing
;
})();
var
Just
=
(
function
()
{
function
Just
(
value0
)
{
this
.
value0
=
value0
;
};
Just
.
create
=
function
(
value0
)
{
return
new
Just
(
value0
);
};
return
Just
;
})();
exports
[
"Nothing"
]
=
Nothing
;
exports
[
"Just"
]
=
Just
;
})(
PS
);
(
function
(
$PS
)
{
// Generated by purs version 0.14.2
"use strict"
;
...
...
@@ -2620,6 +2738,350 @@ var PS = {};
};
});
exports
[
"uncons"
]
=
uncons
;
exports
[
"length"
]
=
$foreign
.
length
;
})(
PS
);
(
function
(
exports
)
{
"use strict"
;
exports
.
topInt
=
2147483647
;
exports
.
bottomInt
=
-
2147483648
;
exports
.
topChar
=
String
.
fromCharCode
(
65535
);
exports
.
bottomChar
=
String
.
fromCharCode
(
0
);
})(
PS
[
"Data.Bounded"
]
=
PS
[
"Data.Bounded"
]
||
{});
(
function
(
exports
)
{
"use strict"
;
var
unsafeCompareImpl
=
function
(
lt
)
{
return
function
(
eq
)
{
return
function
(
gt
)
{
return
function
(
x
)
{
return
function
(
y
)
{
return
x
<
y
?
lt
:
x
===
y
?
eq
:
gt
;
};
};
};
};
};
exports
.
ordIntImpl
=
unsafeCompareImpl
;
exports
.
ordCharImpl
=
unsafeCompareImpl
;
})(
PS
[
"Data.Ord"
]
=
PS
[
"Data.Ord"
]
||
{});
(
function
(
exports
)
{
"use strict"
;
var
refEq
=
function
(
r1
)
{
return
function
(
r2
)
{
return
r1
===
r2
;
};
};
exports
.
eqIntImpl
=
refEq
;
exports
.
eqCharImpl
=
refEq
;
})(
PS
[
"Data.Eq"
]
=
PS
[
"Data.Eq"
]
||
{});
(
function
(
$PS
)
{
// Generated by purs version 0.14.2
"use strict"
;
$PS
[
"Data.Eq"
]
=
$PS
[
"Data.Eq"
]
||
{};
var
exports
=
$PS
[
"Data.Eq"
];
var
$foreign
=
$PS
[
"Data.Eq"
];
var
Eq
=
function
(
eq
)
{
this
.
eq
=
eq
;
};
var
eqInt
=
new
Eq
(
$foreign
.
eqIntImpl
);
var
eqChar
=
new
Eq
(
$foreign
.
eqCharImpl
);
exports
[
"eqInt"
]
=
eqInt
;
exports
[
"eqChar"
]
=
eqChar
;
})(
PS
);
(
function
(
$PS
)
{
// Generated by purs version 0.14.2
"use strict"
;
$PS
[
"Data.Ordering"
]
=
$PS
[
"Data.Ordering"
]
||
{};
var
exports
=
$PS
[
"Data.Ordering"
];
var
LT
=
(
function
()
{
function
LT
()
{
};
LT
.
value
=
new
LT
();
return
LT
;
})();
var
GT
=
(
function
()
{
function
GT
()
{
};
GT
.
value
=
new
GT
();
return
GT
;
})();
var
EQ
=
(
function
()
{
function
EQ
()
{
};
EQ
.
value
=
new
EQ
();
return
EQ
;
})();
exports
[
"LT"
]
=
LT
;
exports
[
"GT"
]
=
GT
;
exports
[
"EQ"
]
=
EQ
;
})(
PS
);
(
function
(
$PS
)
{
// Generated by purs version 0.14.2
"use strict"
;
$PS
[
"Data.Ord"
]
=
$PS
[
"Data.Ord"
]
||
{};
var
exports
=
$PS
[
"Data.Ord"
];
var
$foreign
=
$PS
[
"Data.Ord"
];
var
Data_Eq
=
$PS
[
"Data.Eq"
];
var
Data_Ordering
=
$PS
[
"Data.Ordering"
];
var
Ord
=
function
(
Eq0
,
compare
)
{
this
.
Eq0
=
Eq0
;
this
.
compare
=
compare
;
};
var
ordInt
=
new
Ord
(
function
()
{
return
Data_Eq
.
eqInt
;
},
$foreign
.
ordIntImpl
(
Data_Ordering
.
LT
.
value
)(
Data_Ordering
.
EQ
.
value
)(
Data_Ordering
.
GT
.
value
));
var
ordChar
=
new
Ord
(
function
()
{
return
Data_Eq
.
eqChar
;
},
$foreign
.
ordCharImpl
(
Data_Ordering
.
LT
.
value
)(
Data_Ordering
.
EQ
.
value
)(
Data_Ordering
.
GT
.
value
));
exports
[
"ordInt"
]
=
ordInt
;
exports
[
"ordChar"
]
=
ordChar
;
})(
PS
);
(
function
(
$PS
)
{
// Generated by purs version 0.14.2
"use strict"
;
$PS
[
"Data.Bounded"
]
=
$PS
[
"Data.Bounded"
]
||
{};
var
exports
=
$PS
[
"Data.Bounded"
];
var
$foreign
=
$PS
[
"Data.Bounded"
];
var
Data_Ord
=
$PS
[
"Data.Ord"
];
var
Bounded
=
function
(
Ord0
,
bottom
,
top
)
{
this
.
Ord0
=
Ord0
;
this
.
bottom
=
bottom
;
this
.
top
=
top
;
};
var
top
=
function
(
dict
)
{
return
dict
.
top
;
};
var
boundedInt
=
new
Bounded
(
function
()
{
return
Data_Ord
.
ordInt
;
},
$foreign
.
bottomInt
,
$foreign
.
topInt
);
var
boundedChar
=
new
Bounded
(
function
()
{
return
Data_Ord
.
ordChar
;
},
$foreign
.
bottomChar
,
$foreign
.
topChar
);
var
bottom
=
function
(
dict
)
{
return
dict
.
bottom
;
};
exports
[
"bottom"
]
=
bottom
;
exports
[
"top"
]
=
top
;
exports
[
"boundedInt"
]
=
boundedInt
;
exports
[
"boundedChar"
]
=
boundedChar
;
})(
PS
);
(
function
(
exports
)
{
"use strict"
;
exports
.
intSub
=
function
(
x
)
{
return
function
(
y
)
{
/* jshint bitwise: false */
return
x
-
y
|
0
;
};
};
})(
PS
[
"Data.Ring"
]
=
PS
[
"Data.Ring"
]
||
{});
(
function
(
exports
)
{
"use strict"
;
exports
.
intAdd
=
function
(
x
)
{
return
function
(
y
)
{
/* jshint bitwise: false */
return
x
+
y
|
0
;
};
};
exports
.
intMul
=
function
(
x
)
{
return
function
(
y
)
{
/* jshint bitwise: false */
return
x
*
y
|
0
;
};
};
})(
PS
[
"Data.Semiring"
]
=
PS
[
"Data.Semiring"
]
||
{});
(
function
(
$PS
)
{
// Generated by purs version 0.14.2
"use strict"
;
$PS
[
"Data.Semiring"
]
=
$PS
[
"Data.Semiring"
]
||
{};
var
exports
=
$PS
[
"Data.Semiring"
];
var
$foreign
=
$PS
[
"Data.Semiring"
];
var
Semiring
=
function
(
add
,
mul
,
one
,
zero
)
{
this
.
add
=
add
;
this
.
mul
=
mul
;
this
.
one
=
one
;
this
.
zero
=
zero
;
};
var
semiringInt
=
new
Semiring
(
$foreign
.
intAdd
,
$foreign
.
intMul
,
1
,
0
);
exports
[
"semiringInt"
]
=
semiringInt
;
})(
PS
);
(
function
(
$PS
)
{
// Generated by purs version 0.14.2
"use strict"
;
$PS
[
"Data.Ring"
]
=
$PS
[
"Data.Ring"
]
||
{};
var
exports
=
$PS
[
"Data.Ring"
];
var
$foreign
=
$PS
[
"Data.Ring"
];
var
Data_Semiring
=
$PS
[
"Data.Semiring"
];
var
Ring
=
function
(
Semiring0
,
sub
)
{
this
.
Semiring0
=
Semiring0
;
this
.
sub
=
sub
;
};
var
ringInt
=
new
Ring
(
function
()
{
return
Data_Semiring
.
semiringInt
;
},
$foreign
.
intSub
);
exports
[
"ringInt"
]
=
ringInt
;
})(
PS
);
(
function
(
$PS
)
{
// Generated by purs version 0.14.2
"use strict"
;
$PS
[
"Data.CommutativeRing"
]
=
$PS
[
"Data.CommutativeRing"
]
||
{};
var
exports
=
$PS
[
"Data.CommutativeRing"
];
var
Data_Ring
=
$PS
[
"Data.Ring"
];
var
CommutativeRing
=
function
(
Ring0
)
{
this
.
Ring0
=
Ring0
;
};
var
commutativeRingInt
=
new
CommutativeRing
(
function
()
{
return
Data_Ring
.
ringInt
;
});
exports
[
"commutativeRingInt"
]
=
commutativeRingInt
;
})(
PS
);
(
function
(
exports
)
{
"use strict"
;
exports
.
toCharCode
=
function
(
c
)
{
return
c
.
charCodeAt
(
0
);
};
exports
.
fromCharCode
=
function
(
c
)
{
return
String
.
fromCharCode
(
c
);
};
})(
PS
[
"Data.Enum"
]
=
PS
[
"Data.Enum"
]
||
{});
(
function
(
$PS
)
{
// Generated by purs version 0.14.2
"use strict"
;
$PS
[
"Data.Enum"
]
=
$PS
[
"Data.Enum"
]
||
{};
var
exports
=
$PS
[
"Data.Enum"
];
var
$foreign
=
$PS
[
"Data.Enum"
];
var
Data_Bounded
=
$PS
[
"Data.Bounded"
];
var
Data_Maybe
=
$PS
[
"Data.Maybe"
];
var
Data_Ord
=
$PS
[
"Data.Ord"
];
var
Enum
=
function
(
Ord0
,
pred
,
succ
)
{
this
.
Ord0
=
Ord0
;
this
.
pred
=
pred
;
this
.
succ
=
succ
;
};
var
BoundedEnum
=
function
(
Bounded0
,
Enum1
,
cardinality
,
fromEnum
,
toEnum
)
{
this
.
Bounded0
=
Bounded0
;
this
.
Enum1
=
Enum1
;
this
.
cardinality
=
cardinality
;
this
.
fromEnum
=
fromEnum
;
this
.
toEnum
=
toEnum
;
};
var
toEnum
=
function
(
dict
)
{
return
dict
.
toEnum
;
};
var
fromEnum
=
function
(
dict
)
{
return
dict
.
fromEnum
;
};
var
toEnumWithDefaults
=
function
(
dictBoundedEnum
)
{
return
function
(
low
)
{
return
function
(
high
)
{
return
function
(
x
)
{
var
v
=
toEnum
(
dictBoundedEnum
)(
x
);
if
(
v
instanceof
Data_Maybe
.
Just
)
{
return
v
.
value0
;
};
if
(
v
instanceof
Data_Maybe
.
Nothing
)
{
var
$51
=
x
<
fromEnum
(
dictBoundedEnum
)(
Data_Bounded
.
bottom
(
dictBoundedEnum
.
Bounded0
()));
if
(
$51
)
{
return
low
;
};
return
high
;
};
throw
new
Error
(
"Failed pattern match at Data.Enum (line 158, column 33 - line 160, column 62): "
+
[
v
.
constructor
.
name
]);
};
};
};
};
var
defaultSucc
=
function
(
toEnum$prime
)
{
return
function
(
fromEnum$prime
)
{
return
function
(
a
)
{
return
toEnum$prime
(
fromEnum$prime
(
a
)
+
1
|
0
);
};
};
};
var
defaultPred
=
function
(
toEnum$prime
)
{
return
function
(
fromEnum$prime
)
{
return
function
(
a
)
{
return
toEnum$prime
(
fromEnum$prime
(
a
)
-
1
|
0
);
};
};
};
var
charToEnum
=
function
(
v
)
{
if
(
v
>=
Data_Bounded
.
bottom
(
Data_Bounded
.
boundedInt
)
&&
v
<=
Data_Bounded
.
top
(
Data_Bounded
.
boundedInt
))
{
return
new
Data_Maybe
.
Just
(
$foreign
.
fromCharCode
(
v
));
};
return
Data_Maybe
.
Nothing
.
value
;
};
var
enumChar
=
new
Enum
(
function
()
{
return
Data_Ord
.
ordChar
;
},
defaultPred
(
charToEnum
)(
$foreign
.
toCharCode
),
defaultSucc
(
charToEnum
)(
$foreign
.
toCharCode
));
var
boundedEnumChar
=
new
BoundedEnum
(
function
()
{
return
Data_Bounded
.
boundedChar
;
},
function
()
{
return
enumChar
;
},
$foreign
.
toCharCode
(
Data_Bounded
.
top
(
Data_Bounded
.
boundedChar
))
-
$foreign
.
toCharCode
(
Data_Bounded
.
bottom
(
Data_Bounded
.
boundedChar
))
|
0
,
$foreign
.
toCharCode
,
charToEnum
);
exports
[
"fromEnum"
]
=
fromEnum
;
exports
[
"toEnumWithDefaults"
]
=
toEnumWithDefaults
;
exports
[
"boundedEnumChar"
]
=
boundedEnumChar
;
})(
PS
);
(
function
(
exports
)
{
"use strict"
;
exports
.
intDegree
=
function
(
x
)
{
return
Math
.
min
(
Math
.
abs
(
x
),
2147483647
);
};
// See the Euclidean definition in
// https://en.m.wikipedia.org/wiki/Modulo_operation.
exports
.
intDiv
=
function
(
x
)
{
return
function
(
y
)
{
if
(
y
===
0
)
return
0
;
return
y
>
0
?
Math
.
floor
(
x
/
y
)
:
-
Math
.
floor
(
x
/
-
y
);
};
};
exports
.
intMod
=
function
(
x
)
{
return
function
(
y
)
{
if
(
y
===
0
)
return
0
;
var
yy
=
Math
.
abs
(
y
);
return
((
x
%
yy
)
+
yy
)
%
yy
;
};
};
})(
PS
[
"Data.EuclideanRing"
]
=
PS
[
"Data.EuclideanRing"
]
||
{});
(
function
(
$PS
)
{
// Generated by purs version 0.14.2
"use strict"
;
$PS
[
"Data.EuclideanRing"
]
=
$PS
[
"Data.EuclideanRing"
]
||
{};
var
exports
=
$PS
[
"Data.EuclideanRing"
];
var
$foreign
=
$PS
[
"Data.EuclideanRing"
];
var
Data_CommutativeRing
=
$PS
[
"Data.CommutativeRing"
];
var
EuclideanRing
=
function
(
CommutativeRing0
,
degree
,
div
,
mod
)
{
this
.
CommutativeRing0
=
CommutativeRing0
;
this
.
degree
=
degree
;
this
.
div
=
div
;
this
.
mod
=
mod
;
};
var
mod
=
function
(
dict
)
{
return
dict
.
mod
;
};
var
euclideanRingInt
=
new
EuclideanRing
(
function
()
{
return
Data_CommutativeRing
.
commutativeRingInt
;
},
$foreign
.
intDegree
,
$foreign
.
intDiv
,
$foreign
.
intMod
);
var
div
=
function
(
dict
)
{
return
dict
.
div
;
};
exports
[
"div"
]
=
div
;
exports
[
"mod"
]
=
mod
;
exports
[
"euclideanRingInt"
]
=
euclideanRingInt
;
})(
PS
);
(
function
(
exports
)
{
/* global exports */
...
...
@@ -2711,6 +3173,353 @@ var PS = {};
exports
[
"showInt"
]
=
showInt
;
exports
[
"showString"
]
=
showString
;
})(
PS
);
(
function
(
exports
)
{
"use strict"
;
/* global Symbol */
var
hasArrayFrom
=
typeof
Array
.
from
===
"function"
;
var
hasStringIterator
=
typeof
Symbol
!==
"undefined"
&&
Symbol
!=
null
&&
typeof
Symbol
.
iterator
!==
"undefined"
&&
typeof
String
.
prototype
[
Symbol
.
iterator
]
===
"function"
;
var
hasFromCodePoint
=
typeof
String
.
prototype
.
fromCodePoint
===
"function"
;
var
hasCodePointAt
=
typeof
String
.
prototype
.
codePointAt
===
"function"
;
exports
.
_unsafeCodePointAt0
=
function
(
fallback
)
{
return
hasCodePointAt
?
function
(
str
)
{
return
str
.
codePointAt
(
0
);
}
:
fallback
;
};
exports
.
_singleton
=
function
(
fallback
)
{
return
hasFromCodePoint
?
String
.
fromCodePoint
:
fallback
;
};
exports
.
_take
=
function
(
fallback
)
{
return
function
(
n
)
{
if
(
hasStringIterator
)
{
return
function
(
str
)
{
var
accum
=
""
;
var
iter
=
str
[
Symbol
.
iterator
]();
for
(
var
i
=
0
;
i
<
n
;
++
i
)
{
var
o
=
iter
.
next
();
if
(
o
.
done
)
return
accum
;
accum
+=
o
.
value
;
}
return
accum
;
};
}
return
fallback
(
n
);
};
};
exports
.
_toCodePointArray
=
function
(
fallback
)
{
return
function
(
unsafeCodePointAt0
)
{
if
(
hasArrayFrom
)
{
return
function
(
str
)
{
return
Array
.
from
(
str
,
unsafeCodePointAt0
);
};
}
return
fallback
;
};
};
})(
PS
[
"Data.String.CodePoints"
]
=
PS
[
"Data.String.CodePoints"
]
||
{});
(
function
(
exports
)
{
"use strict"
;
exports
.
singleton
=
function
(
c
)
{
return
c
;
};
exports
.
length
=
function
(
s
)
{
return
s
.
length
;
};
exports
.
drop
=
function
(
n
)
{
return
function
(
s
)
{
return
s
.
substring
(
n
);
};
};
})(
PS
[
"Data.String.CodeUnits"
]
=
PS
[
"Data.String.CodeUnits"
]
||
{});
(
function
(
$PS
)
{
// Generated by purs version 0.14.2
"use strict"
;
$PS
[
"Data.String.CodeUnits"
]
=
$PS
[
"Data.String.CodeUnits"
]
||
{};
var
exports
=
$PS
[
"Data.String.CodeUnits"
];
var
$foreign
=
$PS
[
"Data.String.CodeUnits"
];
exports
[
"singleton"
]
=
$foreign
.
singleton
;
exports
[
"length"
]
=
$foreign
.
length
;
exports
[
"drop"
]
=
$foreign
.
drop
;
})(
PS
);
(
function
(
exports
)
{
"use strict"
;
exports
.
charAt
=
function
(
i
)
{
return
function
(
s
)
{
if
(
i
>=
0
&&
i
<
s
.
length
)
return
s
.
charAt
(
i
);
throw
new
Error
(
"Data.String.Unsafe.charAt: Invalid index."
);
};
};
})(
PS
[
"Data.String.Unsafe"
]
=
PS
[
"Data.String.Unsafe"
]
||
{});
(
function
(
$PS
)
{
// Generated by purs version 0.14.2
"use strict"
;
$PS
[
"Data.String.Unsafe"
]
=
$PS
[
"Data.String.Unsafe"
]
||
{};
var
exports
=
$PS
[
"Data.String.Unsafe"
];
var
$foreign
=
$PS
[
"Data.String.Unsafe"
];
exports
[
"charAt"
]
=
$foreign
.
charAt
;
})(
PS
);
(
function
(
$PS
)
{
// Generated by purs version 0.14.2
"use strict"
;
$PS
[
"Data.Tuple"
]
=
$PS
[
"Data.Tuple"
]
||
{};
var
exports
=
$PS
[
"Data.Tuple"
];
var
Tuple
=
(
function
()
{
function
Tuple
(
value0
,
value1
)
{
this
.
value0
=
value0
;
this
.
value1
=
value1
;
};
Tuple
.
create
=
function
(
value0
)
{
return
function
(
value1
)
{
return
new
Tuple
(
value0
,
value1
);
};
};
return
Tuple
;
})();
var
snd
=
function
(
v
)
{
return
v
.
value1
;
};
var
fst
=
function
(
v
)
{
return
v
.
value0
;
};
exports
[
"Tuple"
]
=
Tuple
;
exports
[
"fst"
]
=
fst
;
exports
[
"snd"
]
=
snd
;
})(
PS
);
(
function
(
exports
)
{
"use strict"
;
exports
.
unfoldrArrayImpl
=
function
(
isNothing
)
{
return
function
(
fromJust
)
{
return
function
(
fst
)
{
return
function
(
snd
)
{
return
function
(
f
)
{
return
function
(
b
)
{
var
result
=
[];
var
value
=
b
;
while
(
true
)
{
// eslint-disable-line no-constant-condition
var
maybe
=
f
(
value
);
if
(
isNothing
(
maybe
))
return
result
;
var
tuple
=
fromJust
(
maybe
);
result
.
push
(
fst
(
tuple
));
value
=
snd
(
tuple
);
}
};
};
};
};
};
};
})(
PS
[
"Data.Unfoldable"
]
=
PS
[
"Data.Unfoldable"
]
||
{});
(
function
(
exports
)
{
"use strict"
;
exports
.
unfoldr1ArrayImpl
=
function
(
isNothing
)
{
return
function
(
fromJust
)
{
return
function
(
fst
)
{
return
function
(
snd
)
{
return
function
(
f
)
{
return
function
(
b
)
{
var
result
=
[];
var
value
=
b
;
while
(
true
)
{
// eslint-disable-line no-constant-condition
var
tuple
=
f
(
value
);
result
.
push
(
fst
(
tuple
));
var
maybe
=
snd
(
tuple
);
if
(
isNothing
(
maybe
))
return
result
;
value
=
fromJust
(
maybe
);
}
};
};
};
};
};
};
})(
PS
[
"Data.Unfoldable1"
]
=
PS
[
"Data.Unfoldable1"
]
||
{});
(
function
(
$PS
)
{
// Generated by purs version 0.14.2
"use strict"
;
$PS
[
"Data.Unfoldable1"
]
=
$PS
[
"Data.Unfoldable1"
]
||
{};
var
exports
=
$PS
[
"Data.Unfoldable1"
];
var
$foreign
=
$PS
[
"Data.Unfoldable1"
];
var
Data_Maybe
=
$PS
[
"Data.Maybe"
];
var
Data_Tuple
=
$PS
[
"Data.Tuple"
];
var
Unfoldable1
=
function
(
unfoldr1
)
{
this
.
unfoldr1
=
unfoldr1
;
};
var
unfoldable1Array
=
new
Unfoldable1
(
$foreign
.
unfoldr1ArrayImpl
(
Data_Maybe
.
isNothing
)(
Data_Maybe
.
fromJust
())(
Data_Tuple
.
fst
)(
Data_Tuple
.
snd
));
exports
[
"unfoldable1Array"
]
=
unfoldable1Array
;
})(
PS
);
(
function
(
$PS
)
{
// Generated by purs version 0.14.2
"use strict"
;
$PS
[
"Data.Unfoldable"
]
=
$PS
[
"Data.Unfoldable"
]
||
{};
var
exports
=
$PS
[
"Data.Unfoldable"
];
var
$foreign
=
$PS
[
"Data.Unfoldable"
];
var
Data_Maybe
=
$PS
[
"Data.Maybe"
];
var
Data_Tuple
=
$PS
[
"Data.Tuple"
];
var
Data_Unfoldable1
=
$PS
[
"Data.Unfoldable1"
];
var
Unfoldable
=
function
(
Unfoldable10
,
unfoldr
)
{
this
.
Unfoldable10
=
Unfoldable10
;
this
.
unfoldr
=
unfoldr
;
};
var
unfoldr
=
function
(
dict
)
{
return
dict
.
unfoldr
;
};
var
unfoldableArray
=
new
Unfoldable
(
function
()
{
return
Data_Unfoldable1
.
unfoldable1Array
;
},
$foreign
.
unfoldrArrayImpl
(
Data_Maybe
.
isNothing
)(
Data_Maybe
.
fromJust
())(
Data_Tuple
.
fst
)(
Data_Tuple
.
snd
));
exports
[
"unfoldr"
]
=
unfoldr
;
exports
[
"unfoldableArray"
]
=
unfoldableArray
;
})(
PS
);
(
function
(
$PS
)
{
// Generated by purs version 0.14.2
"use strict"
;
$PS
[
"Data.String.CodePoints"
]
=
$PS
[
"Data.String.CodePoints"
]
||
{};
var
exports
=
$PS
[
"Data.String.CodePoints"
];
var
$foreign
=
$PS
[
"Data.String.CodePoints"
];
var
Data_Array
=
$PS
[
"Data.Array"
];
var
Data_Bounded
=
$PS
[
"Data.Bounded"
];
var
Data_Enum
=
$PS
[
"Data.Enum"
];
var
Data_EuclideanRing
=
$PS
[
"Data.EuclideanRing"
];
var
Data_Functor
=
$PS
[
"Data.Functor"
];
var
Data_Maybe
=
$PS
[
"Data.Maybe"
];
var
Data_String_CodeUnits
=
$PS
[
"Data.String.CodeUnits"
];
var
Data_String_Unsafe
=
$PS
[
"Data.String.Unsafe"
];
var
Data_Tuple
=
$PS
[
"Data.Tuple"
];
var
Data_Unfoldable
=
$PS
[
"Data.Unfoldable"
];
var
unsurrogate
=
function
(
lead
)
{
return
function
(
trail
)
{
return
(((
lead
-
55296
|
0
)
*
1024
|
0
)
+
(
trail
-
56320
|
0
)
|
0
)
+
65536
|
0
;
};
};
var
isTrail
=
function
(
cu
)
{
return
56320
<=
cu
&&
cu
<=
57343
;
};
var
isLead
=
function
(
cu
)
{
return
55296
<=
cu
&&
cu
<=
56319
;
};
var
uncons
=
function
(
s
)
{
var
v
=
Data_String_CodeUnits
.
length
(
s
);
if
(
v
===
0
)
{
return
Data_Maybe
.
Nothing
.
value
;
};
if
(
v
===
1
)
{
return
new
Data_Maybe
.
Just
({
head
:
Data_Enum
.
fromEnum
(
Data_Enum
.
boundedEnumChar
)(
Data_String_Unsafe
.
charAt
(
0
)(
s
)),
tail
:
""
});
};
var
cu1
=
Data_Enum
.
fromEnum
(
Data_Enum
.
boundedEnumChar
)(
Data_String_Unsafe
.
charAt
(
1
)(
s
));
var
cu0
=
Data_Enum
.
fromEnum
(
Data_Enum
.
boundedEnumChar
)(
Data_String_Unsafe
.
charAt
(
0
)(
s
));
var
$21
=
isLead
(
cu0
)
&&
isTrail
(
cu1
);
if
(
$21
)
{
return
new
Data_Maybe
.
Just
({
head
:
unsurrogate
(
cu0
)(
cu1
),
tail
:
Data_String_CodeUnits
.
drop
(
2
)(
s
)
});
};
return
new
Data_Maybe
.
Just
({
head
:
cu0
,
tail
:
Data_String_CodeUnits
.
drop
(
1
)(
s
)
});
};
var
unconsButWithTuple
=
function
(
s
)
{
return
Data_Functor
.
map
(
Data_Maybe
.
functorMaybe
)(
function
(
v
)
{
return
new
Data_Tuple
.
Tuple
(
v
.
head
,
v
.
tail
);
})(
uncons
(
s
));
};
var
toCodePointArrayFallback
=
function
(
s
)
{
return
Data_Unfoldable
.
unfoldr
(
Data_Unfoldable
.
unfoldableArray
)(
unconsButWithTuple
)(
s
);
};
var
unsafeCodePointAt0Fallback
=
function
(
s
)
{
var
cu0
=
Data_Enum
.
fromEnum
(
Data_Enum
.
boundedEnumChar
)(
Data_String_Unsafe
.
charAt
(
0
)(
s
));
var
$25
=
isLead
(
cu0
)
&&
Data_String_CodeUnits
.
length
(
s
)
>
1
;
if
(
$25
)
{
var
cu1
=
Data_Enum
.
fromEnum
(
Data_Enum
.
boundedEnumChar
)(
Data_String_Unsafe
.
charAt
(
1
)(
s
));
var
$26
=
isTrail
(
cu1
);
if
(
$26
)
{
return
unsurrogate
(
cu0
)(
cu1
);
};
return
cu0
;
};
return
cu0
;
};
var
unsafeCodePointAt0
=
$foreign
[
"_unsafeCodePointAt0"
](
unsafeCodePointAt0Fallback
);
var
toCodePointArray
=
$foreign
[
"_toCodePointArray"
](
toCodePointArrayFallback
)(
unsafeCodePointAt0
);
var
length
=
function
(
$52
)
{
return
Data_Array
.
length
(
toCodePointArray
(
$52
));
};
var
fromCharCode
=
(
function
()
{
var
$53
=
Data_Enum
.
toEnumWithDefaults
(
Data_Enum
.
boundedEnumChar
)(
Data_Bounded
.
bottom
(
Data_Bounded
.
boundedChar
))(
Data_Bounded
.
top
(
Data_Bounded
.
boundedChar
));
return
function
(
$54
)
{
return
Data_String_CodeUnits
.
singleton
(
$53
(
$54
));
};
})();
var
singletonFallback
=
function
(
v
)
{
if
(
v
<=
65535
)
{
return
fromCharCode
(
v
);
};
var
lead
=
Data_EuclideanRing
.
div
(
Data_EuclideanRing
.
euclideanRingInt
)(
v
-
65536
|
0
)(
1024
)
+
55296
|
0
;
var
trail
=
Data_EuclideanRing
.
mod
(
Data_EuclideanRing
.
euclideanRingInt
)(
v
-
65536
|
0
)(
1024
)
+
56320
|
0
;
return
fromCharCode
(
lead
)
+
fromCharCode
(
trail
);
};
var
singleton
=
$foreign
[
"_singleton"
](
singletonFallback
);
var
takeFallback
=
function
(
n
)
{
return
function
(
v
)
{
if
(
n
<
1
)
{
return
""
;
};
var
v1
=
uncons
(
v
);
if
(
v1
instanceof
Data_Maybe
.
Just
)
{
return
singleton
(
v1
.
value0
.
head
)
+
takeFallback
(
n
-
1
|
0
)(
v1
.
value0
.
tail
);
};
return
v
;
};
};
var
take
=
$foreign
[
"_take"
](
takeFallback
);
var
splitAt
=
function
(
i
)
{
return
function
(
s
)
{
var
before
=
take
(
i
)(
s
);
return
{
before
:
before
,
after
:
Data_String_CodeUnits
.
drop
(
Data_String_CodeUnits
.
length
(
before
))(
s
)
};
};
};
var
drop
=
function
(
n
)
{
return
function
(
s
)
{
return
Data_String_CodeUnits
.
drop
(
Data_String_CodeUnits
.
length
(
take
(
n
)(
s
)))(
s
);
};
};
exports
[
"splitAt"
]
=
splitAt
;
})(
PS
);
(
function
(
exports
)
{
"use strict"
;
exports
.
toUpper
=
function
(
s
)
{
return
s
.
toUpperCase
();
};
})(
PS
[
"Data.String.Common"
]
=
PS
[
"Data.String.Common"
]
||
{});
(
function
(
$PS
)
{
// Generated by purs version 0.14.2
"use strict"
;
$PS
[
"Data.String.Common"
]
=
$PS
[
"Data.String.Common"
]
||
{};
var
exports
=
$PS
[
"Data.String.Common"
];
var
$foreign
=
$PS
[
"Data.String.Common"
];
exports
[
"toUpper"
]
=
$foreign
.
toUpper
;
})(
PS
);
(
function
(
exports
)
{
"use strict"
;
...
...
@@ -2804,28 +3613,15 @@ var PS = {};
exports
[
"traverse"
]
=
traverse
;
exports
[
"traversableArray"
]
=
traversableArray
;
})(
PS
);
(
function
(
$PS
)
{
// Generated by purs version 0.14.2
"use strict"
;
$PS
[
"Data.Tuple"
]
=
$PS
[
"Data.Tuple"
]
||
{};
var
exports
=
$PS
[
"Data.Tuple"
];
var
Tuple
=
(
function
()
{
function
Tuple
(
value0
,
value1
)
{
this
.
value0
=
value0
;
this
.
value1
=
value1
;
};
Tuple
.
create
=
function
(
value0
)
{
return
function
(
value1
)
{
return
new
Tuple
(
value0
,
value1
);
};
};
return
Tuple
;
})();
exports
[
"Tuple"
]
=
Tuple
;
})(
PS
);
(
function
(
exports
)
{
"use strict"
;
exports
.
mkEffectFn1
=
function
mkEffectFn1
(
fn
)
{
return
function
(
x
)
{
return
fn
(
x
)();
};
};
exports
.
runEffectFn2
=
function
runEffectFn2
(
fn
)
{
return
function
(
a
)
{
return
function
(
b
)
{
...
...
@@ -2854,9 +3650,242 @@ var PS = {};
$PS
[
"Effect.Uncurried"
]
=
$PS
[
"Effect.Uncurried"
]
||
{};
var
exports
=
$PS
[
"Effect.Uncurried"
];
var
$foreign
=
$PS
[
"Effect.Uncurried"
];
exports
[
"mkEffectFn1"
]
=
$foreign
.
mkEffectFn1
;
exports
[
"runEffectFn2"
]
=
$foreign
.
runEffectFn2
;
exports
[
"runEffectFn3"
]
=
$foreign
.
runEffectFn3
;
})(
PS
);
(
function
(
exports
)
{
'use strict'
;
exports
.
react
=
require
(
"react"
);
exports
.
reactDOM
=
require
(
'react-dom'
);
})(
PS
[
"Reactix.React"
]
=
PS
[
"Reactix.React"
]
||
{});
(
function
(
exports
)
{
'use strict'
;
exports
.
_unshift
=
function
(
i
,
a
)
{
a
.
unshift
(
i
);
return
a
;
};
})(
PS
[
"FFI.Simple.PseudoArray"
]
=
PS
[
"FFI.Simple.PseudoArray"
]
||
{});
(
function
(
$PS
)
{
// Generated by purs version 0.14.2
"use strict"
;
$PS
[
"FFI.Simple.PseudoArray"
]
=
$PS
[
"FFI.Simple.PseudoArray"
]
||
{};
var
exports
=
$PS
[
"FFI.Simple.PseudoArray"
];
var
$foreign
=
$PS
[
"FFI.Simple.PseudoArray"
];
var
Data_Function_Uncurried
=
$PS
[
"Data.Function.Uncurried"
];
var
unshift
=
Data_Function_Uncurried
.
runFn2
(
$foreign
[
"_unshift"
]);
exports
[
"unshift"
]
=
unshift
;
})(
PS
);
(
function
(
$PS
)
{
// Generated by purs version 0.14.2
"use strict"
;
$PS
[
"Reactix.React"
]
=
$PS
[
"Reactix.React"
]
||
{};
var
exports
=
$PS
[
"Reactix.React"
];
var
$foreign
=
$PS
[
"Reactix.React"
];
var
Control_Applicative
=
$PS
[
"Control.Applicative"
];
var
Control_Apply
=
$PS
[
"Control.Apply"
];
var
Data_Function
=
$PS
[
"Data.Function"
];
var
Data_Functor
=
$PS
[
"Data.Functor"
];
var
Effect
=
$PS
[
"Effect"
];
var
Effect_Uncurried
=
$PS
[
"Effect.Uncurried"
];
var
FFI_Simple_Functions
=
$PS
[
"FFI.Simple.Functions"
];
var
FFI_Simple_Objects
=
$PS
[
"FFI.Simple.Objects"
];
var
FFI_Simple_PseudoArray
=
$PS
[
"FFI.Simple.PseudoArray"
];
var
Hooks
=
function
(
x
)
{
return
x
;
};
var
IsComponent
=
function
(
createElement
)
{
this
.
createElement
=
createElement
;
};
var
Component
=
function
(
x
)
{
return
x
;
};
var
runHooks
=
function
(
v
)
{
return
v
;
};
var
rawCreateElement
=
function
(
c
)
{
return
function
(
p
)
{
return
function
(
cs
)
{
var
args
=
FFI_Simple_PseudoArray
.
unshift
(
c
)(
FFI_Simple_PseudoArray
.
unshift
(
p
)(
cs
));
return
FFI_Simple_Functions
[
"applyMethod'"
](
$foreign
.
react
)(
"createElement"
)(
args
);
};
};
};
var
named
=
Data_Function
.
flip
(
FFI_Simple_Objects
.
defineProperty
(
"name"
));
var
functorHooks
=
new
Data_Functor
.
Functor
(
function
(
f
)
{
return
function
(
v
)
{
return
Data_Functor
.
map
(
Effect
.
functorEffect
)(
f
)(
v
);
};
});
var
createElement
=
function
(
dict
)
{
return
dict
.
createElement
;
};
var
createDOMElement
=
rawCreateElement
;
var
componentIsComponent
=
new
IsComponent
(
rawCreateElement
);
var
children
=
function
(
a
)
{
return
FFI_Simple_Functions
[
"applyMethod'"
](
FFI_Simple_Objects
[
"getProperty'"
](
$foreign
.
react
)(
"Children"
))(
"toArray"
)([
FFI_Simple_Objects
[
"getProperty'"
](
a
)(
"children"
)
]);
};
var
hooksComponent
=
function
(
name
)
{
return
function
(
c
)
{
var
c$prime
=
function
(
props
)
{
return
runHooks
(
c
(
props
)(
children
(
props
)));
};
return
Component
(
named
(
name
)(
Effect_Uncurried
.
mkEffectFn1
(
c$prime
)));
};
};
var
hooksComponentWithModule
=
function
(
module$prime
)
{
return
function
(
name
)
{
return
function
(
c
)
{
return
hooksComponent
(
module$prime
+
(
"."
+
name
))(
c
);
};
};
};
var
applyHooks
=
new
Control_Apply
.
Apply
(
function
()
{
return
functorHooks
;
},
function
(
v
)
{
return
function
(
v1
)
{
return
Control_Apply
.
apply
(
Effect
.
applyEffect
)(
v
)(
v1
);
};
});
var
applicativeHooks
=
new
Control_Applicative
.
Applicative
(
function
()
{
return
applyHooks
;
},
(
function
()
{
var
$22
=
Control_Applicative
.
pure
(
Effect
.
applicativeEffect
);
return
function
(
$23
)
{
return
Hooks
(
$22
(
$23
));
};
})());
exports
[
"createElement"
]
=
createElement
;
exports
[
"createDOMElement"
]
=
createDOMElement
;
exports
[
"hooksComponentWithModule"
]
=
hooksComponentWithModule
;
exports
[
"applicativeHooks"
]
=
applicativeHooks
;
exports
[
"componentIsComponent"
]
=
componentIsComponent
;
exports
[
"reactDOM"
]
=
$foreign
.
reactDOM
;
})(
PS
);
(
function
(
$PS
)
{
// Generated by purs version 0.14.2
"use strict"
;
$PS
[
"Reactix.Utils"
]
=
$PS
[
"Reactix.Utils"
]
||
{};
var
exports
=
$PS
[
"Reactix.Utils"
];
var
Data_String_CodePoints
=
$PS
[
"Data.String.CodePoints"
];
var
Data_String_Common
=
$PS
[
"Data.String.Common"
];
var
ucFirst
=
(
function
()
{
var
help
=
function
(
v
)
{
return
Data_String_Common
.
toUpper
(
v
.
before
)
+
v
.
after
;
};
var
$8
=
Data_String_CodePoints
.
splitAt
(
1
);
return
function
(
$9
)
{
return
help
(
$8
(
$9
));
};
})();
exports
[
"ucFirst"
]
=
ucFirst
;
})(
PS
);
(
function
(
$PS
)
{
// Generated by purs version 0.14.2
"use strict"
;
$PS
[
"Reactix.DOM.HTML"
]
=
$PS
[
"Reactix.DOM.HTML"
]
||
{};
var
exports
=
$PS
[
"Reactix.DOM.HTML"
];
var
Control_Category
=
$PS
[
"Control.Category"
];
var
Data_Foldable
=
$PS
[
"Data.Foldable"
];
var
Data_Maybe
=
$PS
[
"Data.Maybe"
];
var
Effect_Uncurried
=
$PS
[
"Effect.Uncurried"
];
var
FFI_Simple_Objects
=
$PS
[
"FFI.Simple.Objects"
];
var
Reactix_React
=
$PS
[
"Reactix.React"
];
var
Reactix_Utils
=
$PS
[
"Reactix.Utils"
];
var
Unsafe_Coerce
=
$PS
[
"Unsafe.Coerce"
];
var
text
=
Unsafe_Coerce
.
unsafeCoerce
;
var
mapCopyAll
=
function
(
xf
)
{
return
function
(
yf
)
{
return
function
(
dest
)
{
return
function
(
src
)
{
var
f
=
function
(
dest$prime
)
{
return
function
(
k
)
{
return
FFI_Simple_Objects
[
"setProperty'"
](
dest$prime
)(
xf
(
k
))(
yf
(
FFI_Simple_Objects
[
"getProperty'"
](
src
)(
k
)));
};
};
return
Data_Foldable
.
foldl
(
Data_Foldable
.
foldableArray
)(
f
)(
dest
)(
FFI_Simple_Objects
.
keys
(
src
));
};
};
};
};
var
prefixCopyAll
=
function
(
pre$prime
)
{
return
mapCopyAll
(
function
(
v
)
{
return
pre$prime
+
v
;
})(
Control_Category
.
identity
(
Control_Category
.
categoryFn
));
};
var
xformEventProps
=
function
(
props
)
{
var
eventPropName
=
function
(
other
)
{
return
"on"
+
Reactix_Utils
.
ucFirst
(
other
);
};
var
help
=
mapCopyAll
(
eventPropName
)(
Effect_Uncurried
.
mkEffectFn1
)(
props
);
return
Data_Maybe
.
maybe
(
props
)(
help
)(
FFI_Simple_Objects
[
"maybeGetProperty'"
](
props
)(
"on"
));
};
var
magicPrefixProp
=
function
(
prop
)
{
return
function
(
pre$prime
)
{
return
function
(
props
)
{
var
help
=
function
(
val
)
{
return
FFI_Simple_Objects
[
"removeProperty'"
](
prefixCopyAll
(
pre$prime
)(
props
)(
val
))(
prop
);
};
return
Data_Maybe
.
maybe
(
props
)(
help
)(
FFI_Simple_Objects
[
"maybeGetProperty'"
](
props
)(
prop
));
};
};
};
var
magicProps
=
(
function
()
{
var
xformDataProps
=
magicPrefixProp
(
"data"
)(
"data-"
);
var
xformAriaProps
=
magicPrefixProp
(
"aria"
)(
"aria-"
);
return
function
(
$1
)
{
return
xformAriaProps
(
xformDataProps
(
xformEventProps
(
$1
)));
};
})();
var
createDOM
=
function
(
e
)
{
return
function
(
props
)
{
return
Reactix_React
.
createDOMElement
(
e
)(
magicProps
(
props
));
};
};
var
div
=
createDOM
(
"div"
);
exports
[
"text"
]
=
text
;
exports
[
"div"
]
=
div
;
})(
PS
);
(
function
(
$PS
)
{
// Generated by purs version 0.14.2
"use strict"
;
$PS
[
"Example.React"
]
=
$PS
[
"Example.React"
]
||
{};
var
exports
=
$PS
[
"Example.React"
];
var
Control_Applicative
=
$PS
[
"Control.Applicative"
];
var
DOM_Simple_Console
=
$PS
[
"DOM.Simple.Console"
];
var
DOM_Simple_Document
=
$PS
[
"DOM.Simple.Document"
];
var
Data_Maybe
=
$PS
[
"Data.Maybe"
];
var
Data_Nullable
=
$PS
[
"Data.Nullable"
];
var
Data_Unit
=
$PS
[
"Data.Unit"
];
var
Effect
=
$PS
[
"Effect"
];
var
FFI_Simple_Functions
=
$PS
[
"FFI.Simple.Functions"
];
var
Reactix_DOM_HTML
=
$PS
[
"Reactix.DOM.HTML"
];
var
Reactix_React
=
$PS
[
"Reactix.React"
];
var
render
=
function
(
e
)
{
return
function
(
d
)
{
return
FFI_Simple_Functions
.
delay
(
FFI_Simple_Functions
.
delayMonad
(
Effect
.
monadEffect
))(
Data_Unit
.
unit
)(
function
(
v
)
{
return
Control_Applicative
.
pure
(
Effect
.
applicativeEffect
)(
FFI_Simple_Functions
[
"applyMethod'"
](
Reactix_React
.
reactDOM
)(
"render"
)(
FFI_Simple_Functions
.
args2
(
e
)(
d
)));
});
};
};
var
appCpt
=
(
function
()
{
var
cpt
=
function
(
v
)
{
return
function
(
v1
)
{
return
Control_Applicative
.
pure
(
Reactix_React
.
applicativeHooks
)(
Reactix_DOM_HTML
.
div
({})([
Reactix_DOM_HTML
.
text
(
"hello"
)
]));
};
};
return
Reactix_React
.
hooksComponentWithModule
(
"Example.React"
)(
"app"
)(
cpt
);
})();
var
app
=
Reactix_React
.
createElement
(
Reactix_React
.
componentIsComponent
)(
appCpt
);
var
paint
=
function
(
v
)
{
if
(
v
instanceof
Data_Maybe
.
Nothing
)
{
return
DOM_Simple_Console
.
log
(
"[main] container not found"
);
};
if
(
v
instanceof
Data_Maybe
.
Just
)
{
return
render
(
app
({})([
]))(
v
.
value0
);
};
throw
new
Error
(
"Failed pattern match at Example.React (line 22, column 1 - line 22, column 38): "
+
[
v
.
constructor
.
name
]);
};
var
main
=
paint
(
Data_Nullable
.
toMaybe
(
FFI_Simple_Functions
[
"applyMethod'"
](
DOM_Simple_Document
.
document
)(
"getElementById"
)([
"react"
])));
exports
[
"main"
]
=
main
;
})(
PS
);
(
function
(
exports
)
{
'use strict'
;
var
d3
=
require
(
"d3/dist/d3.js"
);
...
...
@@ -3418,6 +4447,7 @@ var PS = {};
var
Effect
=
$PS
[
"Effect"
];
var
Effect_Aff
=
$PS
[
"Effect.Aff"
];
var
Effect_Class
=
$PS
[
"Effect.Class"
];
var
Example_React
=
$PS
[
"Example.React"
];
var
Foreign
=
$PS
[
"Foreign"
];
var
Graphics_D3_Base
=
$PS
[
"Graphics.D3.Base"
];
var
Graphics_D3_Contour
=
$PS
[
"Graphics.D3.Contour"
];
...
...
@@ -3491,11 +4521,11 @@ var PS = {};
y
:
v2
.
value0
.
head
};
};
throw
new
Error
(
"Failed pattern match at Main (line 8
0, column 40 - line 82
, column 64): "
+
[
v2
.
constructor
.
name
]);
throw
new
Error
(
"Failed pattern match at Main (line 8
2, column 40 - line 84
, column 64): "
+
[
v2
.
constructor
.
name
]);
};
throw
new
Error
(
"Failed pattern match at Main (line
78, column 15 - line 82
, column 64): "
+
[
v1
.
constructor
.
name
]);
throw
new
Error
(
"Failed pattern match at Main (line
80, column 15 - line 84
, column 64): "
+
[
v1
.
constructor
.
name
]);
};
throw
new
Error
(
"Failed pattern match at Main (line 7
5, column 11 - line 82
, column 64): "
+
[
v
.
constructor
.
name
]);
throw
new
Error
(
"Failed pattern match at Main (line 7
7, column 11 - line 84
, column 64): "
+
[
v
.
constructor
.
name
]);
};
return
Control_Bind
.
bind
(
Effect_Aff
.
bindAff
)(
Graphics_D3_Request
.
csv
(
"https://raw.githubusercontent.com/holtzy/D3-graph-gallery/master/DATA/data_for_density2d.csv"
)(
handleRow
))(
function
(
data$prime1
)
{
return
Control_Bind
.
discard
(
Control_Bind
.
discardUnit
)(
Effect_Aff
.
bindAff
)(
Effect_Class
.
liftEffect
(
Effect_Aff
.
monadEffectAff
)(
DOM_Simple_Console
.
log2
(
"data'"
)(
data$prime1
)))(
function
()
{
...
...
@@ -3610,7 +4640,8 @@ var PS = {};
});
});
}))();
return
DOM_Simple_Console
.
log
(
"xml done"
)();
DOM_Simple_Console
.
log
(
"xml done"
)();
return
Example_React
.
main
();
};
exports
[
"main"
]
=
main
;
})(
PS
);
...
...
example/package.json
View file @
d5c69824
...
...
@@ -18,6 +18,8 @@
"spago"
:
"^0.20.3"
},
"dependencies"
:
{
"d3"
:
"^7.0.0"
"d3"
:
"^7.0.0"
,
"react"
:
"^17.0.2"
,
"react-dom"
:
"^17.0.2"
}
}
example/spago.dhall
View file @
d5c69824
...
...
@@ -19,13 +19,16 @@ to generate this file without the comments in this block.
, "dom-simple"
, "effect"
, "either"
, "ffi-simple"
, "foldable-traversable"
, "foreign"
, "integers"
, "math"
, "maybe"
, "nullable"
, "prelude"
, "psci-support"
, "reactix"
, "reactix-d3"
, "transformers"
, "tuples"
...
...
example/src/EReact.purs
0 → 100644
View file @
d5c69824
module Example.React where
import Data.Maybe (Maybe(..))
import Data.Nullable (toMaybe)
import DOM.Simple as DOM
import DOM.Simple (Element)
import DOM.Simple.Console (log)
import DOM.Simple.Document (document)
import Effect (Effect)
import FFI.Simple ((...), delay, args2)
import Reactix as R
import Reactix.DOM.HTML as H
import Prelude
main :: Effect Unit
main = paint $ toMaybe (document ... "getElementById" $ [ "react" ])
render :: R.Element -> DOM.Element -> Effect Unit
render e d = delay unit $ \_ -> pure $ R.reactDOM ... "render" $ args2 e d
paint :: Maybe Element -> Effect Unit
paint Nothing = log "[main] container not found"
paint (Just c) = render (app {} []) c
app :: {} -> Array R.Element -> R.Element
app = R.createElement appCpt
appCpt :: R.Component ()
appCpt = R.hooksComponentWithModule "Example.React" "app" cpt where
cpt {} _ = do
pure $ H.div {} [ H.text "hello" ]
example/src/Main.purs
View file @
d5c69824
...
...
@@ -31,6 +31,8 @@ import Graphics.D3.Time as Time
import Graphics.D3.Util
import Graphics.D3.Zoom as Zoom
import Example.React as EReact
main :: Effect Unit
main = do
log2 "d3" d3
...
...
@@ -223,3 +225,5 @@ main = do
log2 "rows" rows
log "xml done"
EReact.main
example/yarn.lock
View file @
d5c69824
...
...
@@ -5011,7 +5011,7 @@ isstream@~0.1.2:
resolved "https://registry.yarnpkg.com/isstream/-/isstream-0.1.2.tgz#47e63f7af55afa6f92e1500e690eb8b8529c099a"
integrity sha1-R+Y/evVa+m+S4VAOaQ64uFKcCZo=
js-tokens@^4.0.0:
"js-tokens@^3.0.0 || ^4.0.0",
js-tokens@^4.0.0:
version "4.0.0"
resolved "https://registry.yarnpkg.com/js-tokens/-/js-tokens-4.0.0.tgz#19203fb59991df98e3a287050d4647cdeaf32499"
integrity sha512-RdJUflcE3cUzKiMqQgsCu06FPu9UdIJO0beYbPhHN4k6apgJtifcoCtT9bcxOpYBtpD2kCM6Sbzg4CausW/PKQ==
...
...
@@ -5342,6 +5342,13 @@ log4js@^4.0.0:
rfdc "^1.1.4"
streamroller "^1.0.6"
loose-envify@^1.1.0:
version "1.4.0"
resolved "https://registry.yarnpkg.com/loose-envify/-/loose-envify-1.4.0.tgz#71ee51fa7be4caec1a63839f7e682d8132d30caf"
integrity sha512-lyuxPGr/Wfhrlem2CL/UcnUc1zcqKAImBDzukY7Y5F/yQiNdko6+fRLevlw1HgMySw7f611UIY408EtxRSoK3Q==
dependencies:
js-tokens "^3.0.0 || ^4.0.0"
lowlight@~1.17.0:
version "1.17.0"
resolved "https://registry.yarnpkg.com/lowlight/-/lowlight-1.17.0.tgz#a1143b2fba8239df8cd5893f9fe97aaf8465af4a"
...
...
@@ -5997,14 +6004,6 @@ parallel-transform@^1.1.0:
inherits "^2.0.3"
readable-stream "^2.1.5"
parcel-plugin-static-files-copy@^2.6.0:
version "2.6.0"
resolved "https://registry.yarnpkg.com/parcel-plugin-static-files-copy/-/parcel-plugin-static-files-copy-2.6.0.tgz#06d7d9b6d7e2071b2e261315e94209b522108beb"
integrity sha512-k3YxdnEQWo1aMfCeBfxgUNJWuUE0O730EGiGBcmWEUOto7f1jM/8oxBKXkVZsXDCO1o00dw5X7CsT+yF0JY4qA==
dependencies:
minimatch "3.0.4"
path "0.12.7"
parcel@^2.0.0-beta.2:
version "2.0.0-beta.2"
resolved "https://registry.yarnpkg.com/parcel/-/parcel-2.0.0-beta.2.tgz#0a58f0b810fe2199b35d7bf7a949906568222d75"
...
...
@@ -6130,14 +6129,6 @@ path-to-regexp@2.2.1:
resolved "https://registry.yarnpkg.com/path-to-regexp/-/path-to-regexp-2.2.1.tgz#90b617025a16381a879bc82a38d4e8bdeb2bcf45"
integrity sha512-gu9bD6Ta5bwGrrU8muHzVOBFFREpp2iRkVfhBJahwJ6p6Xw20SjT0MxLnwkjOibQmGSYhiUnf2FLe7k+jcFmGQ==
path@0.12.7:
version "0.12.7"
resolved "https://registry.yarnpkg.com/path/-/path-0.12.7.tgz#d4dc2a506c4ce2197eb481ebfcd5b36c0140b10f"
integrity sha1-1NwqUGxM4hl+tIHr/NWzbAFAsQ8=
dependencies:
process "^0.11.1"
util "^0.10.3"
pbkdf2@^3.0.3:
version "3.1.2"
resolved "https://registry.yarnpkg.com/pbkdf2/-/pbkdf2-3.1.2.tgz#dd822aa0887580e52f1a039dc3eda108efae3075"
...
...
@@ -6622,7 +6613,7 @@ process-nextick-args@~2.0.0:
resolved "https://registry.yarnpkg.com/process-nextick-args/-/process-nextick-args-2.0.1.tgz#7820d9b16120cc55ca9ae7792680ae7dba6d7fe2"
integrity sha512-3ouUOpQhtgrbOa17J7+uxOTpITYWaGP7/AhoR3+A+/1e9skrzelGi/dXzEYyvbxubEF6Wn2ypscTKiKJFFn1ag==
process@^0.11.1
, process@^0.11.1
0, process@~0.11.0:
process@^0.11.10, process@~0.11.0:
version "0.11.10"
resolved "https://registry.yarnpkg.com/process/-/process-0.11.10.tgz#7332300e840161bda3e69a1d1d91a7d4bc16f182"
integrity sha1-czIwDoQBYb2j5podHZGn1LwW8YI=
...
...
@@ -6841,6 +6832,15 @@ raw-body@2.4.0:
iconv-lite "0.4.24"
unpipe "1.0.0"
react-dom@^17.0.2:
version "17.0.2"
resolved "https://registry.yarnpkg.com/react-dom/-/react-dom-17.0.2.tgz#ecffb6845e3ad8dbfcdc498f0d0a939736502c23"
integrity sha512-s4h96KtLDUQlsENhMn1ar8t2bEa+q/YAtj8pPPdIjPDGBDIVNsrD9aXNWqspUe6AzKCIG0C1HZZLqLV7qpOBGA==
dependencies:
loose-envify "^1.1.0"
object-assign "^4.1.1"
scheduler "^0.20.2"
react-is@^16.8.4:
version "16.13.1"
resolved "https://registry.yarnpkg.com/react-is/-/react-is-16.13.1.tgz#789729a4dc36de2999dc156dd6c1d9c18cea56a4"
...
...
@@ -6851,6 +6851,14 @@ react-refresh@^0.9.0:
resolved "https://registry.yarnpkg.com/react-refresh/-/react-refresh-0.9.0.tgz#71863337adc3e5c2f8a6bfddd12ae3bfe32aafbf"
integrity sha512-Gvzk7OZpiqKSkxsQvO/mbTN1poglhmAV7gR/DdIrRrSMXraRQQlfikRJOr3Nb9GTMPC5kof948Zy6jJZIFtDvQ==
react@^17.0.2:
version "17.0.2"
resolved "https://registry.yarnpkg.com/react/-/react-17.0.2.tgz#d0b5cc516d29eb3eee383f75b62864cfb6800037"
integrity sha512-gnhPt75i/dq/z3/6q/0asP78D0u592D5L1pd7M8P+dck6Fu/jJeL6iVVK23fptSUZj8Vjf++7wXA8UNclGQcbA==
dependencies:
loose-envify "^1.1.0"
object-assign "^4.1.1"
read-only-stream@^2.0.0:
version "2.0.0"
resolved "https://registry.yarnpkg.com/read-only-stream/-/read-only-stream-2.0.0.tgz#2724fd6a8113d73764ac288d4386270c1dbf17f0"
...
...
@@ -7192,6 +7200,14 @@ saxes@^3.1.9:
dependencies:
xmlchars "^2.1.1"
scheduler@^0.20.2:
version "0.20.2"
resolved "https://registry.yarnpkg.com/scheduler/-/scheduler-0.20.2.tgz#4baee39436e34aa93b4874bddcbf0fe8b8b50e91"
integrity sha512-2eWfGgAqqWFGqtdMmcL5zCMK1U8KlXv8SQFGglL3CEtd0aDVDWgeF/YoCmvln55m5zSk3J/20hTaSBeSObsQDQ==
dependencies:
loose-envify "^1.1.0"
object-assign "^4.1.1"
semver@7.0.0:
version "7.0.0"
resolved "https://registry.yarnpkg.com/semver/-/semver-7.0.0.tgz#5f3ca35761e47e05b206c6daff2cf814f0316b8e"
...
...
@@ -8158,13 +8174,6 @@ util@0.10.3:
dependencies:
inherits "2.0.1"
util@^0.10.3, util@~0.10.1:
version "0.10.4"
resolved "https://registry.yarnpkg.com/util/-/util-0.10.4.tgz#3aa0125bfe668a4672de58857d3ace27ecb76901"
integrity sha512-0Pm9hTQ3se5ll1XihRic3FDIku70C+iHUdT/W926rSgHV5QgXsYbKZN8MSC3tJtSkhuROzvsQjAaFENRXr+19A==
dependencies:
inherits "2.0.3"
util@^0.12.0, util@^0.12.3:
version "0.12.4"
resolved "https://registry.yarnpkg.com/util/-/util-0.12.4.tgz#66121a31420df8f01ca0c464be15dfa1d1850253"
...
...
@@ -8177,6 +8186,13 @@ util@^0.12.0, util@^0.12.3:
safe-buffer "^5.1.2"
which-typed-array "^1.1.2"
util@~0.10.1:
version "0.10.4"
resolved "https://registry.yarnpkg.com/util/-/util-0.10.4.tgz#3aa0125bfe668a4672de58857d3ace27ecb76901"
integrity sha512-0Pm9hTQ3se5ll1XihRic3FDIku70C+iHUdT/W926rSgHV5QgXsYbKZN8MSC3tJtSkhuROzvsQjAaFENRXr+19A==
dependencies:
inherits "2.0.3"
utils-merge@1.0.1:
version "1.0.1"
resolved "https://registry.yarnpkg.com/utils-merge/-/utils-merge-1.0.1.tgz#9f95710f50a267947b2ccc124741c1028427e713"
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment