kgadek

# Przygotowanie
xcode-select --install                        # akceptacja licencji Xcode
curl -sSL https://get.haskellstack.org/ | sh  # alternatywnie: brew install haskell-stack
git clone https://github.com/kgadek/novelist.git
cd novelist
stack setup                              # instalacja kompilatora lokalnie, w ~/.stack
stack build --bench --no-run-benchmarks  # kompilacja programu

# Uruchamianie testów
stack bench

kgadek

runWithMock :: MockDirectoryTree -> FSops r -> [String]
runWithMock mockTree = cata eval
  where
    eval :: TF.FreeF FSopsF r [String] -> [String]
    eval (TF.Free x@ListDir{}) = msg : cont
      where
        msg            = printf "LISTDIR: %s\n RESULT: %s\n" (x ^. dirName) (show dirListing)
        dirListing     = DirectoryListing immediateDirs immediateFiles
        immediateDirs  = mockTree ^.. unFix2 . mDirs . each . rootDirName
        immediateFiles = mockTree ^. unFix2 . mFiles

kgadek

-- stack --resolver nightly-2017-02-08 ghc --package hashtables -- -O2 harrop_ghc.hs
import           Control.Monad
import qualified Data.HashTable.IO as H

type HashTable k v = H.BasicHashTable k v

main = do
  m <- H.new :: IO (HashTable Int Int)
  forM_ [1..10000000] $ \n -> H.insert m n n
  v <- H.lookup m 100

kgadek

stuff :: Maybe Int
stuff = return (456 :: Int)

main :: IO ()
main = do
  let Just x = stuff
  print x

kgadek

Wed Jan 16 16:30:53 UTC 2019

kgadek

#!/usr/bin/env sh
# vim: foldmethod=marker
# ------------------------------------------------------------------------------
# Run in cloud-init.
# ------------------------------------------------------------------------------
# {{{ Configuration
: "${user:=konrad}"
# }}}---------------------------------------------------------------------------

#{{{ users: add $user

kgadek

root@spongebob:~# zdb -l /dev/mmcblk1
failed to unpack label 0
failed to unpack label 1
------------------------------------
LABEL 2
------------------------------------
    version: 5000
    name: 'rpool'
    state: 1
    txg: 78726

kgadek

Note

I'm no longer be maintaining this, as I'm no longer using Raspberry Pi 4 + ZFS.

My case was:

• Raspberry Pi 4 8GB
• Debian 11 Bullseye
• native ZFS encryption