Add purescript/switcheroo
* commit 'ca3cb6ae29f55d184ca1df95b5287859e847e1f2': purescript(switcheroo): Simplified types purescript(switcheroo): POC purescript(switcheroo): Initialized repo
This commit is contained in:
commit
1510efc23e
SSH key fingerprint:
SHA256:WFp/cO76nbarETAoQcQXuV+0h7XJsEsOCI0UsyPIy6U
11
purescript/switcheroo/.gitignore
vendored
Normal file
11
purescript/switcheroo/.gitignore
vendored
Normal file
|
|
@ -0,0 +1,11 @@
|
||||||
|
/bower_components/
|
||||||
|
/node_modules/
|
||||||
|
/.pulp-cache/
|
||||||
|
/output/
|
||||||
|
/generated-docs/
|
||||||
|
/.psc-package/
|
||||||
|
/.psc*
|
||||||
|
/.purs*
|
||||||
|
/.psa*
|
||||||
|
/.spago
|
||||||
|
main.js
|
||||||
640
purescript/switcheroo/flake.lock
Normal file
640
purescript/switcheroo/flake.lock
Normal file
|
|
@ -0,0 +1,640 @@
|
||||||
|
{
|
||||||
|
"nodes": {
|
||||||
|
"deadnix": {
|
||||||
|
"inputs": {
|
||||||
|
"fenix": "fenix",
|
||||||
|
"naersk": "naersk",
|
||||||
|
"nixpkgs": "nixpkgs_4",
|
||||||
|
"utils": "utils"
|
||||||
|
},
|
||||||
|
"locked": {
|
||||||
|
"lastModified": 1655647809,
|
||||||
|
"narHash": "sha256-npyHYIJW7HyGIFpCZZK+t5JM/v2LsyFhAGJxX1DXO7E=",
|
||||||
|
"owner": "astro",
|
||||||
|
"repo": "deadnix",
|
||||||
|
"rev": "83c42cc64d190ecb72f5929eab0f64fe88e25dc4",
|
||||||
|
"type": "github"
|
||||||
|
},
|
||||||
|
"original": {
|
||||||
|
"owner": "astro",
|
||||||
|
"repo": "deadnix",
|
||||||
|
"type": "github"
|
||||||
|
}
|
||||||
|
},
|
||||||
|
"deadnix_2": {
|
||||||
|
"inputs": {
|
||||||
|
"fenix": "fenix_2",
|
||||||
|
"naersk": "naersk_2",
|
||||||
|
"nixpkgs": "nixpkgs_8",
|
||||||
|
"utils": "utils_2"
|
||||||
|
},
|
||||||
|
"locked": {
|
||||||
|
"lastModified": 1656370114,
|
||||||
|
"narHash": "sha256-XBbSWeBuF6Ck0jc634yAp2hjPXWM2JyRDPCdK0dh3w4=",
|
||||||
|
"owner": "astro",
|
||||||
|
"repo": "deadnix",
|
||||||
|
"rev": "9f450f7250ad7680cb5f12ce5985cc18496c2d5f",
|
||||||
|
"type": "github"
|
||||||
|
},
|
||||||
|
"original": {
|
||||||
|
"owner": "astro",
|
||||||
|
"repo": "deadnix",
|
||||||
|
"type": "github"
|
||||||
|
}
|
||||||
|
},
|
||||||
|
"docs-search": {
|
||||||
|
"flake": false,
|
||||||
|
"locked": {
|
||||||
|
"lastModified": 1661787609,
|
||||||
|
"narHash": "sha256-jgOl8PKisRmcaHOya3HzArI3eKjVErx+XIBGminh9Zk=",
|
||||||
|
"owner": "purs-nix",
|
||||||
|
"repo": "purescript-docs-search",
|
||||||
|
"rev": "4620575e21886fcbf516d0b43910ba4ead2a60d0",
|
||||||
|
"type": "github"
|
||||||
|
},
|
||||||
|
"original": {
|
||||||
|
"owner": "purs-nix",
|
||||||
|
"repo": "purescript-docs-search",
|
||||||
|
"type": "github"
|
||||||
|
}
|
||||||
|
},
|
||||||
|
"fenix": {
|
||||||
|
"inputs": {
|
||||||
|
"nixpkgs": "nixpkgs_2",
|
||||||
|
"rust-analyzer-src": "rust-analyzer-src"
|
||||||
|
},
|
||||||
|
"locked": {
|
||||||
|
"lastModified": 1655533500,
|
||||||
|
"narHash": "sha256-qJJmLVoMYfDLywI9MNL7sb0W/GsKQF9HDatdHm1tSl0=",
|
||||||
|
"owner": "nix-community",
|
||||||
|
"repo": "fenix",
|
||||||
|
"rev": "b6630603af13df17d0dd4df8629e9a24e6ba0fbd",
|
||||||
|
"type": "github"
|
||||||
|
},
|
||||||
|
"original": {
|
||||||
|
"owner": "nix-community",
|
||||||
|
"repo": "fenix",
|
||||||
|
"type": "github"
|
||||||
|
}
|
||||||
|
},
|
||||||
|
"fenix_2": {
|
||||||
|
"inputs": {
|
||||||
|
"nixpkgs": "nixpkgs_6",
|
||||||
|
"rust-analyzer-src": "rust-analyzer-src_2"
|
||||||
|
},
|
||||||
|
"locked": {
|
||||||
|
"lastModified": 1655533500,
|
||||||
|
"narHash": "sha256-qJJmLVoMYfDLywI9MNL7sb0W/GsKQF9HDatdHm1tSl0=",
|
||||||
|
"owner": "nix-community",
|
||||||
|
"repo": "fenix",
|
||||||
|
"rev": "b6630603af13df17d0dd4df8629e9a24e6ba0fbd",
|
||||||
|
"type": "github"
|
||||||
|
},
|
||||||
|
"original": {
|
||||||
|
"owner": "nix-community",
|
||||||
|
"repo": "fenix",
|
||||||
|
"type": "github"
|
||||||
|
}
|
||||||
|
},
|
||||||
|
"fenix_3": {
|
||||||
|
"inputs": {
|
||||||
|
"nixpkgs": [
|
||||||
|
"purs-nix",
|
||||||
|
"statix",
|
||||||
|
"nixpkgs"
|
||||||
|
],
|
||||||
|
"rust-analyzer-src": "rust-analyzer-src_3"
|
||||||
|
},
|
||||||
|
"locked": {
|
||||||
|
"lastModified": 1645251813,
|
||||||
|
"narHash": "sha256-cQ66tGjnZclBCS3nD26mZ5fUH+3/HnysGffBiWXUSHk=",
|
||||||
|
"owner": "nix-community",
|
||||||
|
"repo": "fenix",
|
||||||
|
"rev": "9892337b588c38ec59466a1c89befce464aae7f8",
|
||||||
|
"type": "github"
|
||||||
|
},
|
||||||
|
"original": {
|
||||||
|
"owner": "nix-community",
|
||||||
|
"repo": "fenix",
|
||||||
|
"type": "github"
|
||||||
|
}
|
||||||
|
},
|
||||||
|
"flake-utils": {
|
||||||
|
"locked": {
|
||||||
|
"lastModified": 1618217525,
|
||||||
|
"narHash": "sha256-WGrhVczjXTiswQaoxQ+0PTfbLNeOQM6M36zvLn78AYg=",
|
||||||
|
"owner": "numtide",
|
||||||
|
"repo": "flake-utils",
|
||||||
|
"rev": "c6169a2772643c4a93a0b5ac1c61e296cba68544",
|
||||||
|
"type": "github"
|
||||||
|
},
|
||||||
|
"original": {
|
||||||
|
"owner": "numtide",
|
||||||
|
"repo": "flake-utils",
|
||||||
|
"type": "github"
|
||||||
|
}
|
||||||
|
},
|
||||||
|
"flake-utils_2": {
|
||||||
|
"locked": {
|
||||||
|
"lastModified": 1618217525,
|
||||||
|
"narHash": "sha256-WGrhVczjXTiswQaoxQ+0PTfbLNeOQM6M36zvLn78AYg=",
|
||||||
|
"owner": "numtide",
|
||||||
|
"repo": "flake-utils",
|
||||||
|
"rev": "c6169a2772643c4a93a0b5ac1c61e296cba68544",
|
||||||
|
"type": "github"
|
||||||
|
},
|
||||||
|
"original": {
|
||||||
|
"owner": "numtide",
|
||||||
|
"repo": "flake-utils",
|
||||||
|
"type": "github"
|
||||||
|
}
|
||||||
|
},
|
||||||
|
"get-flake": {
|
||||||
|
"locked": {
|
||||||
|
"lastModified": 1644686428,
|
||||||
|
"narHash": "sha256-zkhYsURWFrvEZLkIoBeqFBzSu+cA2u5mo6M8vq9LN7M=",
|
||||||
|
"owner": "ursi",
|
||||||
|
"repo": "get-flake",
|
||||||
|
"rev": "703f15558daa56dfae19d1858bb3046afe68831a",
|
||||||
|
"type": "github"
|
||||||
|
},
|
||||||
|
"original": {
|
||||||
|
"owner": "ursi",
|
||||||
|
"repo": "get-flake",
|
||||||
|
"type": "github"
|
||||||
|
}
|
||||||
|
},
|
||||||
|
"gitignore": {
|
||||||
|
"inputs": {
|
||||||
|
"nixpkgs": [
|
||||||
|
"purs-nix",
|
||||||
|
"statix",
|
||||||
|
"nixpkgs"
|
||||||
|
]
|
||||||
|
},
|
||||||
|
"locked": {
|
||||||
|
"lastModified": 1635165013,
|
||||||
|
"narHash": "sha256-o/BdVjNwcB6jOmzZjOH703BesSkkS5O7ej3xhyO8hAY=",
|
||||||
|
"owner": "hercules-ci",
|
||||||
|
"repo": "gitignore.nix",
|
||||||
|
"rev": "5b9e0ff9d3b551234b4f3eb3983744fa354b17f1",
|
||||||
|
"type": "github"
|
||||||
|
},
|
||||||
|
"original": {
|
||||||
|
"owner": "hercules-ci",
|
||||||
|
"repo": "gitignore.nix",
|
||||||
|
"type": "github"
|
||||||
|
}
|
||||||
|
},
|
||||||
|
"make-shell": {
|
||||||
|
"locked": {
|
||||||
|
"lastModified": 1634940815,
|
||||||
|
"narHash": "sha256-P69OmveboXzS+es1vQGS4bt+ckwbeIExqxfGLjGuJqA=",
|
||||||
|
"owner": "ursi",
|
||||||
|
"repo": "nix-make-shell",
|
||||||
|
"rev": "8add91681170924e4d0591b22f294aee3f5516f9",
|
||||||
|
"type": "github"
|
||||||
|
},
|
||||||
|
"original": {
|
||||||
|
"owner": "ursi",
|
||||||
|
"ref": "1",
|
||||||
|
"repo": "nix-make-shell",
|
||||||
|
"type": "github"
|
||||||
|
}
|
||||||
|
},
|
||||||
|
"make-shell_2": {
|
||||||
|
"locked": {
|
||||||
|
"lastModified": 1634940815,
|
||||||
|
"narHash": "sha256-P69OmveboXzS+es1vQGS4bt+ckwbeIExqxfGLjGuJqA=",
|
||||||
|
"owner": "ursi",
|
||||||
|
"repo": "nix-make-shell",
|
||||||
|
"rev": "8add91681170924e4d0591b22f294aee3f5516f9",
|
||||||
|
"type": "github"
|
||||||
|
},
|
||||||
|
"original": {
|
||||||
|
"owner": "ursi",
|
||||||
|
"ref": "1",
|
||||||
|
"repo": "nix-make-shell",
|
||||||
|
"type": "github"
|
||||||
|
}
|
||||||
|
},
|
||||||
|
"naersk": {
|
||||||
|
"inputs": {
|
||||||
|
"nixpkgs": "nixpkgs_3"
|
||||||
|
},
|
||||||
|
"locked": {
|
||||||
|
"lastModified": 1655042882,
|
||||||
|
"narHash": "sha256-9BX8Fuez5YJlN7cdPO63InoyBy7dm3VlJkkmTt6fS1A=",
|
||||||
|
"owner": "nix-community",
|
||||||
|
"repo": "naersk",
|
||||||
|
"rev": "cddffb5aa211f50c4b8750adbec0bbbdfb26bb9f",
|
||||||
|
"type": "github"
|
||||||
|
},
|
||||||
|
"original": {
|
||||||
|
"owner": "nix-community",
|
||||||
|
"repo": "naersk",
|
||||||
|
"type": "github"
|
||||||
|
}
|
||||||
|
},
|
||||||
|
"naersk_2": {
|
||||||
|
"inputs": {
|
||||||
|
"nixpkgs": "nixpkgs_7"
|
||||||
|
},
|
||||||
|
"locked": {
|
||||||
|
"lastModified": 1655042882,
|
||||||
|
"narHash": "sha256-9BX8Fuez5YJlN7cdPO63InoyBy7dm3VlJkkmTt6fS1A=",
|
||||||
|
"owner": "nix-community",
|
||||||
|
"repo": "naersk",
|
||||||
|
"rev": "cddffb5aa211f50c4b8750adbec0bbbdfb26bb9f",
|
||||||
|
"type": "github"
|
||||||
|
},
|
||||||
|
"original": {
|
||||||
|
"owner": "nix-community",
|
||||||
|
"repo": "naersk",
|
||||||
|
"type": "github"
|
||||||
|
}
|
||||||
|
},
|
||||||
|
"nixpkgs": {
|
||||||
|
"locked": {
|
||||||
|
"lastModified": 1675698036,
|
||||||
|
"narHash": "sha256-BgsQkQewdlQi8gapJN4phpxkI/FCE/2sORBaFcYbp/A=",
|
||||||
|
"owner": "NixOS",
|
||||||
|
"repo": "nixpkgs",
|
||||||
|
"rev": "1046c7b92e908a1202c0f1ba3fc21d19e1cf1b62",
|
||||||
|
"type": "github"
|
||||||
|
},
|
||||||
|
"original": {
|
||||||
|
"owner": "NixOS",
|
||||||
|
"ref": "nixpkgs-unstable",
|
||||||
|
"repo": "nixpkgs",
|
||||||
|
"type": "github"
|
||||||
|
}
|
||||||
|
},
|
||||||
|
"nixpkgs_10": {
|
||||||
|
"locked": {
|
||||||
|
"lastModified": 1645013224,
|
||||||
|
"narHash": "sha256-b7OEC8vwzJv3rsz9pwnTX2LQDkeOWz2DbKypkVvNHXc=",
|
||||||
|
"owner": "nixos",
|
||||||
|
"repo": "nixpkgs",
|
||||||
|
"rev": "b66b39216b1fef2d8c33cc7a5c72d8da80b79970",
|
||||||
|
"type": "github"
|
||||||
|
},
|
||||||
|
"original": {
|
||||||
|
"owner": "nixos",
|
||||||
|
"ref": "nixpkgs-unstable",
|
||||||
|
"repo": "nixpkgs",
|
||||||
|
"type": "github"
|
||||||
|
}
|
||||||
|
},
|
||||||
|
"nixpkgs_2": {
|
||||||
|
"locked": {
|
||||||
|
"lastModified": 1655400192,
|
||||||
|
"narHash": "sha256-49OBVVRgb9H/PSmNT9W61+NRdDbuSJVuDDflwXlaUKU=",
|
||||||
|
"owner": "nixos",
|
||||||
|
"repo": "nixpkgs",
|
||||||
|
"rev": "3d7435c638baffaa826b85459df0fff47f12317d",
|
||||||
|
"type": "github"
|
||||||
|
},
|
||||||
|
"original": {
|
||||||
|
"owner": "nixos",
|
||||||
|
"ref": "nixos-unstable",
|
||||||
|
"repo": "nixpkgs",
|
||||||
|
"type": "github"
|
||||||
|
}
|
||||||
|
},
|
||||||
|
"nixpkgs_3": {
|
||||||
|
"locked": {
|
||||||
|
"lastModified": 1655481042,
|
||||||
|
"narHash": "sha256-XHbcywq2vIQ5CeH1OK3TN793jkiNAAZsSctS1PFgseo=",
|
||||||
|
"owner": "NixOS",
|
||||||
|
"repo": "nixpkgs",
|
||||||
|
"rev": "103a4c0ae46afa9cf008c30744175315ca38e9f9",
|
||||||
|
"type": "github"
|
||||||
|
},
|
||||||
|
"original": {
|
||||||
|
"id": "nixpkgs",
|
||||||
|
"type": "indirect"
|
||||||
|
}
|
||||||
|
},
|
||||||
|
"nixpkgs_4": {
|
||||||
|
"locked": {
|
||||||
|
"lastModified": 1655481042,
|
||||||
|
"narHash": "sha256-XHbcywq2vIQ5CeH1OK3TN793jkiNAAZsSctS1PFgseo=",
|
||||||
|
"owner": "NixOS",
|
||||||
|
"repo": "nixpkgs",
|
||||||
|
"rev": "103a4c0ae46afa9cf008c30744175315ca38e9f9",
|
||||||
|
"type": "github"
|
||||||
|
},
|
||||||
|
"original": {
|
||||||
|
"id": "nixpkgs",
|
||||||
|
"type": "indirect"
|
||||||
|
}
|
||||||
|
},
|
||||||
|
"nixpkgs_5": {
|
||||||
|
"locked": {
|
||||||
|
"lastModified": 1646506091,
|
||||||
|
"narHash": "sha256-sWNAJE2m+HOh1jtXlHcnhxsj6/sXrHgbqVNcVRlveK4=",
|
||||||
|
"owner": "NixOS",
|
||||||
|
"repo": "nixpkgs",
|
||||||
|
"rev": "3e644bd62489b516292c816f70bf0052c693b3c7",
|
||||||
|
"type": "github"
|
||||||
|
},
|
||||||
|
"original": {
|
||||||
|
"owner": "NixOS",
|
||||||
|
"ref": "nixpkgs-unstable",
|
||||||
|
"repo": "nixpkgs",
|
||||||
|
"type": "github"
|
||||||
|
}
|
||||||
|
},
|
||||||
|
"nixpkgs_6": {
|
||||||
|
"locked": {
|
||||||
|
"lastModified": 1655400192,
|
||||||
|
"narHash": "sha256-49OBVVRgb9H/PSmNT9W61+NRdDbuSJVuDDflwXlaUKU=",
|
||||||
|
"owner": "nixos",
|
||||||
|
"repo": "nixpkgs",
|
||||||
|
"rev": "3d7435c638baffaa826b85459df0fff47f12317d",
|
||||||
|
"type": "github"
|
||||||
|
},
|
||||||
|
"original": {
|
||||||
|
"owner": "nixos",
|
||||||
|
"ref": "nixos-unstable",
|
||||||
|
"repo": "nixpkgs",
|
||||||
|
"type": "github"
|
||||||
|
}
|
||||||
|
},
|
||||||
|
"nixpkgs_7": {
|
||||||
|
"locked": {
|
||||||
|
"lastModified": 1655481042,
|
||||||
|
"narHash": "sha256-XHbcywq2vIQ5CeH1OK3TN793jkiNAAZsSctS1PFgseo=",
|
||||||
|
"owner": "NixOS",
|
||||||
|
"repo": "nixpkgs",
|
||||||
|
"rev": "103a4c0ae46afa9cf008c30744175315ca38e9f9",
|
||||||
|
"type": "github"
|
||||||
|
},
|
||||||
|
"original": {
|
||||||
|
"id": "nixpkgs",
|
||||||
|
"type": "indirect"
|
||||||
|
}
|
||||||
|
},
|
||||||
|
"nixpkgs_8": {
|
||||||
|
"locked": {
|
||||||
|
"lastModified": 1655481042,
|
||||||
|
"narHash": "sha256-XHbcywq2vIQ5CeH1OK3TN793jkiNAAZsSctS1PFgseo=",
|
||||||
|
"owner": "NixOS",
|
||||||
|
"repo": "nixpkgs",
|
||||||
|
"rev": "103a4c0ae46afa9cf008c30744175315ca38e9f9",
|
||||||
|
"type": "github"
|
||||||
|
},
|
||||||
|
"original": {
|
||||||
|
"id": "nixpkgs",
|
||||||
|
"type": "indirect"
|
||||||
|
}
|
||||||
|
},
|
||||||
|
"nixpkgs_9": {
|
||||||
|
"locked": {
|
||||||
|
"lastModified": 1656549732,
|
||||||
|
"narHash": "sha256-eILutFZGjfk2bEzfim8S/qyYc//0S1KsCeO+OWbtoR0=",
|
||||||
|
"owner": "NixOS",
|
||||||
|
"repo": "nixpkgs",
|
||||||
|
"rev": "d3248619647234b5dc74a6921bcdf6dd8323eb22",
|
||||||
|
"type": "github"
|
||||||
|
},
|
||||||
|
"original": {
|
||||||
|
"owner": "NixOS",
|
||||||
|
"ref": "nixpkgs-unstable",
|
||||||
|
"repo": "nixpkgs",
|
||||||
|
"type": "github"
|
||||||
|
}
|
||||||
|
},
|
||||||
|
"parsec": {
|
||||||
|
"locked": {
|
||||||
|
"lastModified": 1635533376,
|
||||||
|
"narHash": "sha256-/HrG0UPGnI5VdkhrNrpDiM2+nhdL6lD/bqyGtYv0QDE=",
|
||||||
|
"owner": "nprindle",
|
||||||
|
"repo": "nix-parsec",
|
||||||
|
"rev": "1bf25dd9c5de1257a1c67de3c81c96d05e8beb5e",
|
||||||
|
"type": "github"
|
||||||
|
},
|
||||||
|
"original": {
|
||||||
|
"owner": "nprindle",
|
||||||
|
"repo": "nix-parsec",
|
||||||
|
"type": "github"
|
||||||
|
}
|
||||||
|
},
|
||||||
|
"ps-tools": {
|
||||||
|
"inputs": {
|
||||||
|
"deadnix": "deadnix_2",
|
||||||
|
"make-shell": "make-shell_2",
|
||||||
|
"nixpkgs": "nixpkgs_9",
|
||||||
|
"utils": "utils_3"
|
||||||
|
},
|
||||||
|
"locked": {
|
||||||
|
"lastModified": 1658374818,
|
||||||
|
"narHash": "sha256-WxbQ/BR4Ep8tBbaOikXechspyZlvwfL5XNmRNEnaOFo=",
|
||||||
|
"owner": "purs-nix",
|
||||||
|
"repo": "purescript-tools",
|
||||||
|
"rev": "c0f887f60ea2331dfdc5b0e8be2e732976887345",
|
||||||
|
"type": "github"
|
||||||
|
},
|
||||||
|
"original": {
|
||||||
|
"owner": "purs-nix",
|
||||||
|
"repo": "purescript-tools",
|
||||||
|
"type": "github"
|
||||||
|
}
|
||||||
|
},
|
||||||
|
"purs-nix": {
|
||||||
|
"inputs": {
|
||||||
|
"deadnix": "deadnix",
|
||||||
|
"docs-search": "docs-search",
|
||||||
|
"get-flake": "get-flake",
|
||||||
|
"make-shell": "make-shell",
|
||||||
|
"nixpkgs": "nixpkgs_5",
|
||||||
|
"parsec": "parsec",
|
||||||
|
"ps-tools": "ps-tools",
|
||||||
|
"statix": "statix",
|
||||||
|
"utils": "utils_4"
|
||||||
|
},
|
||||||
|
"locked": {
|
||||||
|
"lastModified": 1674243319,
|
||||||
|
"narHash": "sha256-o39rBVSNqchahHrMYNixdlasDro8omlf/n7yQZsdNI8=",
|
||||||
|
"owner": "purs-nix",
|
||||||
|
"repo": "purs-nix",
|
||||||
|
"rev": "2b7761ffaded363d0d00afe320350cc5c9ee9012",
|
||||||
|
"type": "github"
|
||||||
|
},
|
||||||
|
"original": {
|
||||||
|
"owner": "purs-nix",
|
||||||
|
"ref": "ps-0.15",
|
||||||
|
"repo": "purs-nix",
|
||||||
|
"type": "github"
|
||||||
|
}
|
||||||
|
},
|
||||||
|
"root": {
|
||||||
|
"inputs": {
|
||||||
|
"nixpkgs": "nixpkgs",
|
||||||
|
"ps-tools": [
|
||||||
|
"purs-nix",
|
||||||
|
"ps-tools"
|
||||||
|
],
|
||||||
|
"purs-nix": "purs-nix",
|
||||||
|
"utils": "utils_5"
|
||||||
|
}
|
||||||
|
},
|
||||||
|
"rust-analyzer-src": {
|
||||||
|
"flake": false,
|
||||||
|
"locked": {
|
||||||
|
"lastModified": 1655507737,
|
||||||
|
"narHash": "sha256-o+AqNsjL6o2RHh4InZHQVpkmqg570YFJL4Db8mKq+fs=",
|
||||||
|
"owner": "rust-lang",
|
||||||
|
"repo": "rust-analyzer",
|
||||||
|
"rev": "12dd81092e37df28b7a3591cae9675e668927198",
|
||||||
|
"type": "github"
|
||||||
|
},
|
||||||
|
"original": {
|
||||||
|
"owner": "rust-lang",
|
||||||
|
"ref": "nightly",
|
||||||
|
"repo": "rust-analyzer",
|
||||||
|
"type": "github"
|
||||||
|
}
|
||||||
|
},
|
||||||
|
"rust-analyzer-src_2": {
|
||||||
|
"flake": false,
|
||||||
|
"locked": {
|
||||||
|
"lastModified": 1655507737,
|
||||||
|
"narHash": "sha256-o+AqNsjL6o2RHh4InZHQVpkmqg570YFJL4Db8mKq+fs=",
|
||||||
|
"owner": "rust-lang",
|
||||||
|
"repo": "rust-analyzer",
|
||||||
|
"rev": "12dd81092e37df28b7a3591cae9675e668927198",
|
||||||
|
"type": "github"
|
||||||
|
},
|
||||||
|
"original": {
|
||||||
|
"owner": "rust-lang",
|
||||||
|
"ref": "nightly",
|
||||||
|
"repo": "rust-analyzer",
|
||||||
|
"type": "github"
|
||||||
|
}
|
||||||
|
},
|
||||||
|
"rust-analyzer-src_3": {
|
||||||
|
"flake": false,
|
||||||
|
"locked": {
|
||||||
|
"lastModified": 1645205556,
|
||||||
|
"narHash": "sha256-e4lZW3qRyOEJ+vLKFQP7m2Dxh5P44NrnekZYLxlucww=",
|
||||||
|
"owner": "rust-analyzer",
|
||||||
|
"repo": "rust-analyzer",
|
||||||
|
"rev": "acf5874b39f3dc5262317a6074d9fc7285081161",
|
||||||
|
"type": "github"
|
||||||
|
},
|
||||||
|
"original": {
|
||||||
|
"owner": "rust-analyzer",
|
||||||
|
"ref": "nightly",
|
||||||
|
"repo": "rust-analyzer",
|
||||||
|
"type": "github"
|
||||||
|
}
|
||||||
|
},
|
||||||
|
"statix": {
|
||||||
|
"inputs": {
|
||||||
|
"fenix": "fenix_3",
|
||||||
|
"gitignore": "gitignore",
|
||||||
|
"nixpkgs": "nixpkgs_10"
|
||||||
|
},
|
||||||
|
"locked": {
|
||||||
|
"lastModified": 1657460333,
|
||||||
|
"narHash": "sha256-5o6zMBASEsGKtjKDb3SizJnN9A7qpOcbzWBXsacfMyc=",
|
||||||
|
"owner": "nerdypepper",
|
||||||
|
"repo": "statix",
|
||||||
|
"rev": "6422c959d365dee2fda5eda8858fefad31f17b25",
|
||||||
|
"type": "github"
|
||||||
|
},
|
||||||
|
"original": {
|
||||||
|
"owner": "nerdypepper",
|
||||||
|
"repo": "statix",
|
||||||
|
"type": "github"
|
||||||
|
}
|
||||||
|
},
|
||||||
|
"utils": {
|
||||||
|
"locked": {
|
||||||
|
"lastModified": 1653893745,
|
||||||
|
"narHash": "sha256-0jntwV3Z8//YwuOjzhV2sgJJPt+HY6KhU7VZUL0fKZQ=",
|
||||||
|
"owner": "numtide",
|
||||||
|
"repo": "flake-utils",
|
||||||
|
"rev": "1ed9fb1935d260de5fe1c2f7ee0ebaae17ed2fa1",
|
||||||
|
"type": "github"
|
||||||
|
},
|
||||||
|
"original": {
|
||||||
|
"owner": "numtide",
|
||||||
|
"repo": "flake-utils",
|
||||||
|
"type": "github"
|
||||||
|
}
|
||||||
|
},
|
||||||
|
"utils_2": {
|
||||||
|
"locked": {
|
||||||
|
"lastModified": 1653893745,
|
||||||
|
"narHash": "sha256-0jntwV3Z8//YwuOjzhV2sgJJPt+HY6KhU7VZUL0fKZQ=",
|
||||||
|
"owner": "numtide",
|
||||||
|
"repo": "flake-utils",
|
||||||
|
"rev": "1ed9fb1935d260de5fe1c2f7ee0ebaae17ed2fa1",
|
||||||
|
"type": "github"
|
||||||
|
},
|
||||||
|
"original": {
|
||||||
|
"owner": "numtide",
|
||||||
|
"repo": "flake-utils",
|
||||||
|
"type": "github"
|
||||||
|
}
|
||||||
|
},
|
||||||
|
"utils_3": {
|
||||||
|
"inputs": {
|
||||||
|
"flake-utils": "flake-utils"
|
||||||
|
},
|
||||||
|
"locked": {
|
||||||
|
"lastModified": 1656044990,
|
||||||
|
"narHash": "sha256-f01BB7CaOyntOab9XnpH9HD63rGcnu2iyL4M2ubs5F8=",
|
||||||
|
"owner": "ursi",
|
||||||
|
"repo": "flake-utils",
|
||||||
|
"rev": "f53b674a2c90f6202a2f4cd491aba121775490b5",
|
||||||
|
"type": "github"
|
||||||
|
},
|
||||||
|
"original": {
|
||||||
|
"owner": "ursi",
|
||||||
|
"ref": "8",
|
||||||
|
"repo": "flake-utils",
|
||||||
|
"type": "github"
|
||||||
|
}
|
||||||
|
},
|
||||||
|
"utils_4": {
|
||||||
|
"inputs": {
|
||||||
|
"flake-utils": "flake-utils_2"
|
||||||
|
},
|
||||||
|
"locked": {
|
||||||
|
"lastModified": 1656044990,
|
||||||
|
"narHash": "sha256-f01BB7CaOyntOab9XnpH9HD63rGcnu2iyL4M2ubs5F8=",
|
||||||
|
"owner": "ursi",
|
||||||
|
"repo": "flake-utils",
|
||||||
|
"rev": "f53b674a2c90f6202a2f4cd491aba121775490b5",
|
||||||
|
"type": "github"
|
||||||
|
},
|
||||||
|
"original": {
|
||||||
|
"owner": "ursi",
|
||||||
|
"ref": "8",
|
||||||
|
"repo": "flake-utils",
|
||||||
|
"type": "github"
|
||||||
|
}
|
||||||
|
},
|
||||||
|
"utils_5": {
|
||||||
|
"locked": {
|
||||||
|
"lastModified": 1667395993,
|
||||||
|
"narHash": "sha256-nuEHfE/LcWyuSWnS8t12N1wc105Qtau+/OdUAjtQ0rA=",
|
||||||
|
"owner": "numtide",
|
||||||
|
"repo": "flake-utils",
|
||||||
|
"rev": "5aed5285a952e0b949eb3ba02c12fa4fcfef535f",
|
||||||
|
"type": "github"
|
||||||
|
},
|
||||||
|
"original": {
|
||||||
|
"owner": "numtide",
|
||||||
|
"repo": "flake-utils",
|
||||||
|
"type": "github"
|
||||||
|
}
|
||||||
|
}
|
||||||
|
},
|
||||||
|
"root": "root",
|
||||||
|
"version": 7
|
||||||
|
}
|
||||||
53
purescript/switcheroo/flake.nix
Normal file
53
purescript/switcheroo/flake.nix
Normal file
|
|
@ -0,0 +1,53 @@
|
||||||
|
{ inputs =
|
||||||
|
{ nixpkgs.url = "github:NixOS/nixpkgs/nixpkgs-unstable";
|
||||||
|
ps-tools.follows = "purs-nix/ps-tools";
|
||||||
|
purs-nix.url = "github:purs-nix/purs-nix/ps-0.15";
|
||||||
|
utils.url = "github:numtide/flake-utils";
|
||||||
|
};
|
||||||
|
|
||||||
|
outputs = { nixpkgs, utils, ... }@inputs:
|
||||||
|
utils.lib.eachSystem [ "x86_64-linux" "x86_64-darwin" ]
|
||||||
|
(system:
|
||||||
|
let
|
||||||
|
pkgs = nixpkgs.legacyPackages.${system};
|
||||||
|
ps-tools = inputs.ps-tools.legacyPackages.${system};
|
||||||
|
purs-nix = inputs.purs-nix { inherit system; };
|
||||||
|
|
||||||
|
ps =
|
||||||
|
purs-nix.purs
|
||||||
|
{ dependencies =
|
||||||
|
with purs-nix.ps-pkgs;
|
||||||
|
[ console
|
||||||
|
effect
|
||||||
|
prelude
|
||||||
|
exists
|
||||||
|
tuples
|
||||||
|
indexed-monad
|
||||||
|
aff
|
||||||
|
];
|
||||||
|
|
||||||
|
dir = ./.;
|
||||||
|
};
|
||||||
|
in
|
||||||
|
{ packages.default = ps.bundle {};
|
||||||
|
|
||||||
|
devShells.default =
|
||||||
|
pkgs.mkShell
|
||||||
|
{ packages =
|
||||||
|
with pkgs;
|
||||||
|
[ entr
|
||||||
|
nodejs
|
||||||
|
(ps.command {})
|
||||||
|
ps-tools.for-0_15.purescript-language-server
|
||||||
|
purs-nix.esbuild
|
||||||
|
purs-nix.purescript
|
||||||
|
];
|
||||||
|
|
||||||
|
shellHook =
|
||||||
|
''
|
||||||
|
alias watch="find src | entr -s 'echo bundling; purs-nix bundle'"
|
||||||
|
'';
|
||||||
|
};
|
||||||
|
}
|
||||||
|
);
|
||||||
|
}
|
||||||
122
purescript/switcheroo/src/Main.purs
Normal file
122
purescript/switcheroo/src/Main.purs
Normal file
|
|
@ -0,0 +1,122 @@
|
||||||
|
module Main where
|
||||||
|
|
||||||
|
import Prelude
|
||||||
|
|
||||||
|
import Control.Monad.Indexed.Qualified as Ix
|
||||||
|
import Data.Array as Array
|
||||||
|
import Data.Identity (Identity(..))
|
||||||
|
import Effect (Effect)
|
||||||
|
import Effect.Console (log)
|
||||||
|
import Safe.Coerce (coerce)
|
||||||
|
import Swictheroo.Stream (ConsumeM, Producer, constantProducer, runConsumeM_, unitProducer)
|
||||||
|
import Swictheroo.Stream as Stream
|
||||||
|
|
||||||
|
type Producers m =
|
||||||
|
{ download :: Producer m Int
|
||||||
|
, reportDownload :: Producer m String
|
||||||
|
, ping :: Producer m Boolean
|
||||||
|
}
|
||||||
|
|
||||||
|
program :: forall m. Monad m => Producers m -> ConsumeM m Unit Unit String
|
||||||
|
program producers = Ix.do
|
||||||
|
Stream.replace producers.download
|
||||||
|
a <- Stream.pull
|
||||||
|
|
||||||
|
Stream.replace producers.reportDownload
|
||||||
|
b <- Stream.pull
|
||||||
|
|
||||||
|
Stream.replace producers.ping
|
||||||
|
c <- Stream.pull
|
||||||
|
|
||||||
|
Stream.replace unitProducer
|
||||||
|
|
||||||
|
pure $ Array.fold
|
||||||
|
[ "Download: "
|
||||||
|
, show a
|
||||||
|
, ", Report: "
|
||||||
|
, show b
|
||||||
|
, ", Ping: "
|
||||||
|
, show c
|
||||||
|
]
|
||||||
|
|
||||||
|
{-
|
||||||
|
Pseudo-code for testing:
|
||||||
|
|
||||||
|
data SyntheticEvent = Download Int | Report String | Ping Int
|
||||||
|
|
||||||
|
producers =
|
||||||
|
{ download: case _ of
|
||||||
|
Download s -> Just s
|
||||||
|
_ -> Nothing
|
||||||
|
, report: ...
|
||||||
|
, ping: ...
|
||||||
|
}
|
||||||
|
|
||||||
|
story =
|
||||||
|
[ Emit (Download 7)
|
||||||
|
, Expect Cancel
|
||||||
|
, Emit (Report 7)
|
||||||
|
, Expect Cancel
|
||||||
|
, Emit (Ping 7)
|
||||||
|
, Expect Cancel
|
||||||
|
]
|
||||||
|
-}
|
||||||
|
|
||||||
|
{- How do we cancel our program?
|
||||||
|
|
||||||
|
The program would require an extra producer called "cancel".
|
||||||
|
Every time we call "Stream.replace", we would merge "cancel" with
|
||||||
|
the respective new stream. This way, when we call "Stream.pull" we can
|
||||||
|
either receive a "Left" (which means we must cancel) or a "Right"
|
||||||
|
(which means we have gotten our value and can keep going).
|
||||||
|
-}
|
||||||
|
|
||||||
|
{- All async effects should be avoided outside the internals of our monad!
|
||||||
|
|
||||||
|
Eg: do
|
||||||
|
a <- lift $ Aff.wait ...
|
||||||
|
|
||||||
|
This is *bad*, because it means we cannot receive a cancellation event.
|
||||||
|
|
||||||
|
A better idea would be:
|
||||||
|
do
|
||||||
|
Stream.mapSource (\old -> merge old (fromAff (Aff.wait ...)))
|
||||||
|
|
||||||
|
result <- Stream.pull
|
||||||
|
|
||||||
|
case result of
|
||||||
|
-- Our effect finished running!
|
||||||
|
Left effectResult -> do
|
||||||
|
-- Return to old producer
|
||||||
|
Stream.mapSource Either.hush
|
||||||
|
-- Do stuff with the result of the effect
|
||||||
|
...
|
||||||
|
|
||||||
|
-- Try again later!
|
||||||
|
Right otherResult -> do
|
||||||
|
-- Handle the other result
|
||||||
|
...
|
||||||
|
|
||||||
|
This does not block the other events at any point!
|
||||||
|
Although this might look complicated, it's possible to create helpers for
|
||||||
|
common patterns like this one!
|
||||||
|
|
||||||
|
Note that in an actual production codebase we would receive
|
||||||
|
(fromAff (Aff.wait ...)) from the exterior in order to
|
||||||
|
allow mocking and to not tie ourselves to a specific monad.
|
||||||
|
-}
|
||||||
|
|
||||||
|
{- One cool thing about this approach is
|
||||||
|
that simple state can be kept without the need for StateT!
|
||||||
|
(because we can simply pass around values)
|
||||||
|
-}
|
||||||
|
|
||||||
|
main :: Effect Unit
|
||||||
|
main = log (coerce result)
|
||||||
|
where
|
||||||
|
result :: Identity _
|
||||||
|
result = runConsumeM_ $ program
|
||||||
|
{ download: constantProducer 3
|
||||||
|
, reportDownload: constantProducer "foo"
|
||||||
|
, ping: constantProducer true
|
||||||
|
}
|
||||||
167
purescript/switcheroo/src/Stream.purs
Normal file
167
purescript/switcheroo/src/Stream.purs
Normal file
|
|
@ -0,0 +1,167 @@
|
||||||
|
module Swictheroo.Stream where
|
||||||
|
|
||||||
|
import Prelude
|
||||||
|
|
||||||
|
import Control.Alt (class Alt)
|
||||||
|
import Control.Alternative (class Plus, (<|>))
|
||||||
|
import Control.Applicative.Indexed (class IxApplicative, class IxApply, class IxFunctor)
|
||||||
|
import Control.Bind.Indexed (class IxBind)
|
||||||
|
import Control.Monad.Indexed (class IxMonad, iap, iapply, ibind, imap, ipure)
|
||||||
|
import Control.Parallel (parOneOf, parSequence_)
|
||||||
|
import Data.Bifunctor (bimap)
|
||||||
|
import Data.Either (Either(..))
|
||||||
|
import Data.Lazy (Lazy)
|
||||||
|
import Data.Lazy as Lazy
|
||||||
|
import Data.Maybe (Maybe(..))
|
||||||
|
import Data.Profunctor.Strong (first)
|
||||||
|
import Data.Tuple.Nested (type (/\), (/\))
|
||||||
|
import Effect.Aff (Aff, never)
|
||||||
|
|
||||||
|
-- | A producer can:
|
||||||
|
-- | - Produce values
|
||||||
|
-- | - Destroy itself
|
||||||
|
newtype Producer m a =
|
||||||
|
Producer
|
||||||
|
{ destroy :: m Unit
|
||||||
|
-- | Producers advance to a new version once they produce a value.
|
||||||
|
-- | This allows pure producers to exist. For example, a pure producer
|
||||||
|
-- | could hold an array of events, return the first one, and then create
|
||||||
|
-- | a new producer from the tail of the array
|
||||||
|
, produce :: m (Lazy (a /\ Producer m a))
|
||||||
|
}
|
||||||
|
|
||||||
|
produce :: forall m i. Monad m => Producer m i -> m (i /\ Producer m i)
|
||||||
|
produce (Producer producer) = producer.produce <#> Lazy.force
|
||||||
|
|
||||||
|
destroyProducer :: forall m i. Monad m => Producer m i -> m Unit
|
||||||
|
destroyProducer (Producer producer) = producer.destroy
|
||||||
|
|
||||||
|
constantProducer :: forall m a. Monad m => a -> Producer m a
|
||||||
|
constantProducer value = Producer
|
||||||
|
{ destroy: pure unit
|
||||||
|
, produce: pure $ Lazy.defer \_ -> value /\ (constantProducer value)
|
||||||
|
}
|
||||||
|
|
||||||
|
unitProducer :: forall m. Monad m => Producer m Unit
|
||||||
|
unitProducer = constantProducer unit
|
||||||
|
|
||||||
|
filterMapProducer :: forall a b m. Monad m => (a -> Maybe b) -> Producer m a -> Producer m b
|
||||||
|
filterMapProducer f producer = Producer
|
||||||
|
{ destroy: destroyProducer producer
|
||||||
|
, produce: loop producer
|
||||||
|
}
|
||||||
|
where
|
||||||
|
-- Keeps producing values until one matches the given predicate!
|
||||||
|
loop producer = do
|
||||||
|
value /\ producer' <- produce producer
|
||||||
|
case f value of
|
||||||
|
Nothing -> loop producer'
|
||||||
|
Just updated -> pure $ Lazy.defer \_ -> updated /\ (filterMapProducer f producer')
|
||||||
|
|
||||||
|
-- | Type parameter explanation:
|
||||||
|
-- | - m = underlying monad
|
||||||
|
-- | - i = what the producer present when
|
||||||
|
-- | the computation *starts* needs to produce
|
||||||
|
-- | - o = what the producer present when
|
||||||
|
-- | the computation *ends* needs to produce
|
||||||
|
-- | - a = result of the computation
|
||||||
|
-- |
|
||||||
|
-- | This monad encapsulates the followin 3 operations:
|
||||||
|
-- | - Consuming values from a producer
|
||||||
|
-- | - Cancelling + replacing the current producer with a different one.
|
||||||
|
newtype ConsumeM m i o a = ConsumeM
|
||||||
|
( Producer m i -> m (a /\ Producer m o)
|
||||||
|
)
|
||||||
|
|
||||||
|
pull :: forall m i. Monad m => ConsumeM m i i i
|
||||||
|
pull = ConsumeM produce
|
||||||
|
|
||||||
|
replace :: forall m i o. Monad m => Producer m o -> ConsumeM m i o Unit
|
||||||
|
replace producer' = ConsumeM \producer -> do
|
||||||
|
destroyProducer producer
|
||||||
|
pure (unit /\ producer')
|
||||||
|
|
||||||
|
lift :: forall m i a. Monad m => m a -> ConsumeM m i i a
|
||||||
|
lift computation = ConsumeM \producer -> do
|
||||||
|
result <- computation
|
||||||
|
pure (result /\ producer)
|
||||||
|
|
||||||
|
producer :: forall m i. Monad m => ConsumeM m i i (Producer m i)
|
||||||
|
producer = ConsumeM \p -> pure (p /\ p)
|
||||||
|
|
||||||
|
mapSource :: forall m i o. Monad m => (Producer m i -> Producer m o) -> ConsumeM m i o Unit
|
||||||
|
mapSource f = ConsumeM \producer -> do
|
||||||
|
pure (unit /\ f producer)
|
||||||
|
|
||||||
|
runConsumeM :: forall m i o a. Monad m => Producer m i -> ConsumeM m i o a -> m a
|
||||||
|
runConsumeM producer (ConsumeM run) = do
|
||||||
|
result /\ producer' <- run producer
|
||||||
|
destroyProducer producer'
|
||||||
|
pure result
|
||||||
|
|
||||||
|
runConsumeM_ :: forall m a o. Monad m => ConsumeM m Unit o a -> m a
|
||||||
|
runConsumeM_ = runConsumeM unitProducer
|
||||||
|
|
||||||
|
---------- Typeclass instances
|
||||||
|
instance Functor m => Functor (Producer m) where
|
||||||
|
map f (Producer producer) = Producer
|
||||||
|
{ destroy: producer.destroy
|
||||||
|
, produce: producer.produce <#> map (bimap f (map f))
|
||||||
|
}
|
||||||
|
|
||||||
|
instance Functor m => IxFunctor (ConsumeM m) where
|
||||||
|
imap f (ConsumeM consumer) = ConsumeM
|
||||||
|
\producer -> consumer producer <#> first f
|
||||||
|
|
||||||
|
instance Functor m => Functor (ConsumeM m i i) where
|
||||||
|
map = imap
|
||||||
|
|
||||||
|
instance Monad m => IxApply (ConsumeM m) where
|
||||||
|
iapply = iap
|
||||||
|
|
||||||
|
instance Monad m => Apply (ConsumeM m i i) where
|
||||||
|
apply = iapply
|
||||||
|
|
||||||
|
instance Monad m => IxApplicative (ConsumeM m) where
|
||||||
|
ipure a = ConsumeM \p -> pure (a /\ p)
|
||||||
|
|
||||||
|
instance Monad m => Applicative (ConsumeM m i i) where
|
||||||
|
pure = ipure
|
||||||
|
|
||||||
|
instance Monad m => IxBind (ConsumeM m) where
|
||||||
|
ibind (ConsumeM consumer) f = ConsumeM
|
||||||
|
\producer -> do
|
||||||
|
result /\ producer' <- consumer producer
|
||||||
|
let (ConsumeM consumer') = f result
|
||||||
|
consumer' producer'
|
||||||
|
|
||||||
|
instance Monad m => Bind (ConsumeM m i i) where
|
||||||
|
bind = ibind
|
||||||
|
|
||||||
|
instance Monad m => IxMonad (ConsumeM m)
|
||||||
|
instance Monad m => Monad (ConsumeM m i i)
|
||||||
|
|
||||||
|
---------- Merge producers
|
||||||
|
type AffProducer = Producer Aff
|
||||||
|
|
||||||
|
instance Alt AffProducer where
|
||||||
|
alt first second = Producer
|
||||||
|
{ destroy:
|
||||||
|
parSequence_
|
||||||
|
[ destroyProducer first
|
||||||
|
, destroyProducer second
|
||||||
|
]
|
||||||
|
, produce: ado
|
||||||
|
result <- parOneOf
|
||||||
|
[ produce first <#> Left
|
||||||
|
, produce second <#> Right
|
||||||
|
]
|
||||||
|
in
|
||||||
|
pure case result of
|
||||||
|
Left (result /\ first') -> result /\ (first' <|> second)
|
||||||
|
Right (result /\ second') -> result /\ (first <|> second')
|
||||||
|
}
|
||||||
|
|
||||||
|
instance Plus AffProducer where
|
||||||
|
empty = Producer { destroy: pure unit, produce: never }
|
||||||
|
|
||||||
Loading…
Reference in a new issue