Skip to content

Instantly share code, notes, and snippets.

This file has been truncated, but you can view the full file.
{
"23": [
{
"patch": {
"children": [
{
"children": [
{
"text": "PELH"
This file has been truncated, but you can view the full file.
{
"children": [
{
"children": [
{
"text": "Search:"
},
{
"children": [
{
"children": [
{
"children": [
{
"text": "Search:"
},
{
"children": [
{
{
"23": [
{
"type": 6,
"vNode": null,
"patch": {
"tagName": "tr",
"properties": {
},
{
"tagName": "body",
"properties": {
},
"children": [
{
"tagName": "div",
"properties": {
{
"tagName": "body",
"properties": {
},
"children": [
{
"tagName": "div",
"properties": {
table server : { Temperature : float,
Uptime: int }
task initialize = fn () =>
dml (DELETE FROM server WHERE TRUE);
dml (INSERT INTO server(Temperature, Uptime) VALUES({[0.0]}, {[0]}))
style selected
val main : transaction page =
@yminsky
yminsky / foo.ml
Created January 8, 2016 01:39
OCD kicking in now
let rec lexwhile prop inp =
match inp with
| c::cs when prop c -> let tok,rest = lexwhile prop cs in c^tok,rest
| _ -> "",inp
;;
let rec lex inp =
match snd(lexwhile space inp) with
@yminsky
yminsky / foo.ml
Created January 8, 2016 01:38
yet better formatting
let rec lexwhile prop inp =
match inp with
| c::cs when prop c ->
let (tok,rest) = lexwhile prop cs in
(c^tok,rest)
| _ -> ("",inp)
;;
let rec lex inp =
@yminsky
yminsky / foo.ml
Created January 8, 2016 01:33
better formatting
let rec lexwhile prop inp =
match inp with
| c::cs when prop c -> let tok,rest = lexwhile prop cs in c^tok,rest
| _ -> "",inp
;;
let rec lex inp =
match snd(lexwhile space inp) with
| [] -> []