Skip to content

Instantly share code, notes, and snippets.

View kayvank's full-sized avatar
🏠
@127.0.0.1

Kayvan Kazeminejad کیوان kayvank

🏠
@127.0.0.1
View GitHub Profile
@kayvank
kayvank / brokenlinks.py
Last active August 24, 2023 16:34
find-broken-http-links
@kayvank
kayvank / signalHandler.hs
Last active May 19, 2023 03:51
Haskell Signal Handler
#!/usr/bin/env stack
{- stack
script
--resolver lts-18.28
--package unix
-}
{-
Installing unix signal handler
-}
import Control.Concurrent (threadDelay)
@kayvank
kayvank / leftJoin.sql
Last active March 21, 2023 23:56
left sql join
-- Sample left join
-- see for more detail, https://www.tutorialspoint.com/sql/sql-left-joins.htm
-- to execute:
-- sqlite3 ./db < leftjoin.sql
--
drop table if exists U;
drop table if exists S;
create table if not exists U (address text, txid text, txix int , unique (txid, txix) );
create table if not exists S (txid text, txix int, unique (txid, txix));
@kayvank
kayvank / cli.hs
Created November 8, 2022 14:45
optparse-applicative for cli params of Maybne NonEmptyList
#!/usr/bin/env stack
{- stack
script
--resolver lts-18.28
--package async
--package optparse-applicative
--package text
-}
import Data.List.NonEmpty (NonEmpty, fromList)
import Data.Semigroup ((<>))
@kayvank
kayvank / streamSqlite.hs
Last active October 27, 2022 12:47
streamSqlite.hs
#!/usr/bin/env stack
{- stack
script
--resolver lts-18.28
--package sqlite-simple
--package async
--package text
-}
{-
-- | the purpose of this code is to make sure sqlite maybe accessed concurrently
@kayvank
kayvank / defaultParams.sh
Last active October 27, 2022 12:48
node-cli query
## first node must sync:
#####################################
$ cardano-cli query tip --mainnet
{
"block": 7937358,
"epoch": 371,
"era": "Babbage",
"hash": "f580eb4778f57fc5dbbd138ebcb89341239447a9438b13dc2eaccf5bb1c34e17",
"slot": 75306292,
"syncProgress": "100.00"
@kayvank
kayvank / concurrnetSqlite.hs
Last active November 15, 2022 14:52
concurrent sqlite
#!/usr/bin/env stack
{- stack
script
--resolver lts-18.28
--package sqlite-simple
--package async
--package text
-}
{-
-- | the purpose of this code is :
docker system prune --volumes
docker system prune --all
_/build-dars
dc up -d --build
find . -name "*.dar"
#### output of the find command: ###
➜ eleox git:(js-kayvan-EID-17-packageId) ✗ find . -name "*.dar"
./daml/.daml/dist/eleox-do-not-use-0.0.1.dar
./daml/.packages/eleox-triggers/.daml/dist/eleox-triggers-0.0.1.dar
./daml/.packages/eleox/.daml/dist/eleox-0.0.1.dar
@kayvank
kayvank / nixos 22.05 emacs 27.02
Created December 13, 2021 20:20
getenv PATH does not reflect nix-shell $PATH
Here is my workflow:
$ nix-shell
$ emacs&
from emacs 27.02 (getenv "PATH")
/run/wrapper/bin:/home/kayvan/.nix-profile/bin:/etc/profiles/per-user/kayvan/bin:/nix/var/nix/profiles/default/bin:/run/current-system/sw/bin
-------------------------- from zsh echo $PATH ---------
echo $PATH
@kayvank
kayvank / symetricConcurrency.hs
Created November 22, 2021 15:10
Example of Symmetric Concurrency Combinators from Parallel concurrent programming in Haskell
#!/usr/bin/env stack
{-
stack
--resolver lts-17.13 runghc
--package http-conduit
--package async
-}
--
--