kayvank

{
  description = "A better simple script flake";
  inputs = {
    nixpkgs.url = "github:NixOS/nixpkgs";
    flake-utils.url = "github:numtide/flake-utils";
  };
  outputs = {self, nixpkgs, flake-utils}:
    flake-utils.lib.eachDefaultSystem (system:

      let

kayvank

#!nix-shell --pure -p "haskellPackages.ghcWithPackages(pkgs:[pkgs.text pkgs.bytestring pkgs.vector])" -i runghc

{- |
haskell vectors
-}

import qualified Data.ByteString.Lazy.Char8 as C8Lazy
import qualified Data.Vector as V
import qualified Data.Vector.Mutable as MV
import qualified Data.Maybe as Maybe

kayvank

#!/usr/bin/env nix-shell
#!nix-shell --pure -p "haskellPackages.ghcWithPackages(pkgs:[pkgs.text pkgs.bytestring])" -i runghc

{- |
Linked list using ST Monad
This is based on @Evgenity work, https://www.youtube.com/watch?v=MJscn-m4KIo
-}

{-#language RecordWildCards #-}

kayvank

plutus-tx upgrade

Upgrade trustless-sidechain ghc and plutus-tx per code review from the plutus team.

Problem

We can not upgreade to newer versions of plutus-tx. Consequently, we can not upgrade to newer cardano-node. The nature of upgrade is very similar to this snipet of code:

import PlutusLedgerApi.Common (serialiseCompiledCode)
import Data.ByteString.Short (fromShort)

kayvank

#!/usr/bin/env python3
# Broken Links on www Site
import sys
from bs4 import BeautifulSoup
from urllib.parse import urlparse
from urllib.parse import urljoin
import requests

searched_links = []
broken_links = []

kayvank

#!/usr/bin/env nix-shell
#!nix-shell --pure -p "haskellPackages.ghcWithPackages (pkgs: [])" -i "runghc"

{-
Installing unix signal handler
-}
import           Control.Concurrent      (threadDelay)
import           Control.Concurrent.MVar (MVar, newEmptyMVar, putMVar,
                                          tryTakeMVar)
import           System.Posix.Signals    (Handler (CatchOnce), installHandler,

kayvank

-- 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

#!/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

#!/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

## first node must sync:
#####################################
$ cardano-cli query tip --mainnet
{
    "block": 7937358,
    "epoch": 371,
    "era": "Babbage",
    "hash": "f580eb4778f57fc5dbbd138ebcb89341239447a9438b13dc2eaccf5bb1c34e17",
    "slot": 75306292,
    "syncProgress": "100.00"