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
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 |
#!/usr/bin/env sh | |
# vim: foldmethod=marker | |
# ------------------------------------------------------------------------------ | |
# Run in cloud-init. | |
# ------------------------------------------------------------------------------ | |
# {{{ Configuration | |
: "${user:=konrad}" | |
# }}}--------------------------------------------------------------------------- | |
#{{{ users: add $user |
Wed Jan 16 16:30:53 UTC 2019 |
{-# LANGUAGE RankNTypes, RecordWildCards #-} | |
import Data.Char | |
import Data.Functor.Identity | |
import Control.Applicative | |
{- | |
Inspired from real-world Brainf**k, we want to create an interpreter of that language which will | |
support the following instructions (the machine memory or 'data' should behave like a potentially | |
infinite array of bytes, initialized to 0): |
package funsets | |
import org.scalatest.FunSuite | |
import org.junit.runner.RunWith | |
import org.scalatest.junit.JUnitRunner | |
/** | |
* This class is a test suite for the methods in object FunSets. To run | |
* the test suite, you can either: |
stuff :: Maybe Int | |
stuff = return (456 :: Int) | |
main :: IO () | |
main = do | |
let Just x = stuff | |
print x | |
-- 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 |
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 |
# 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 |