shapr

❯ nixos-rebuild switch -I nixos-config=./surtr.nix --target-host root@surtr.scannedinavian.com
building Nix...
building the system configuration...
trace: No index state specified for haskell-project, using the latest index state that we know about (2023-01-28T00:00:00Z)!
copying 0 paths...
updating GRUB 2 menu...
installing the GRUB 2 boot loader on /dev/vda...
Installing for i386-pc platform.
/nix/store/4ifsgb6ljch39yrshhcr5m8z3q5jzb8g-grub-2.12-rc1/sbin/grub-install: error: cannot find a GRUB drive for /dev/vda.  Check your device.map.
/nix/store/dy6wk1rf6cyn2w9d5jmm9z2bwlp0vjbm-install-grub.pl: installation of GRUB on /dev/vda failed: Inappropriate ioctl for device

shapr

\set howmany 1
SELECT
  genre.name AS genre,
  CASE WHEN length(scrubby.name) > 15 THEN
    substring(scrubby.name FROM 1 FOR 15) || '⋯'
  ELSE
    scrubby.name
  END AS track,
  artist.name AS artist

shapr

module Main where

import System.Environment
import System.IO

main :: IO ()
main = do
    withFile
        "/tmp/stdin.txt"
        AppendMode

shapr

{-# LANGUAGE KindSignatures #-}
{-# LANGUAGE OverloadedStrings #-}

module SkyLine where

import Data.List (groupBy, sort)

{-
  input:
  [left,right,height]

shapr

{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE ScopedTypeVariables #-}

module Main where

import Control.Concurrent
import Data.Text (Text)
import qualified Data.Text as T
import qualified Data.Text.IO as TIO
import Data.Void

shapr

kali (192.168.1.12) -> www.leastauthority.com (35.198.125.84)                                                                   2023-05-10T09:44:22-0500 
Keys:  Help   Display mode   Restart statistics   Order of fields   quit
                                                                                                               Packets               Pings
 Host                                                                                                        Drop   Rcv    Avg Gmean Jttr Javg Jmax Jint
 1. _gateway                                                                                                  144   249    0.7   0.7  0.0  0.2  0.7  1.9
 2. 100.92.152.2                                                                                              265   128   71.0  29.5  6.8 60.5 3135 2529
    76.29.230.19
 3. po-315-321-rur201.huntsville.al.hunts.comcast.net                                                         264   129   68.8  28.9 10.9 59.6 3034 2482
    76.29.230.19
 4. 68.85.19

shapr

{
  config,
  pkgs,
  callPackage,
  ...
}: {
  imports = [
    <nixpkgs/nixos/modules/virtualisation/openstack-config.nix>
    ./gandicloud.nix

shapr

# Beware! This file is rewritten by htop when settings are changed in the interface.
# The parser is also very primitive, and not human-friendly.
htop_version=3.2.1
config_reader_min_version=3
fields=111 0 48 17 18 38 39 40 2 46 47 49 1
hide_kernel_threads=1
hide_userland_threads=1
shadow_other_users=0
show_thread_names=0
show_program_path=1

shapr

// -*- mode: c++ -*-
// Copyright 2016-2022 Keyboardio, inc. <jesse@keyboard.io>
// See "LICENSE" for license details

/**
 * These #include directives pull in the Kaleidoscope firmware core,
 * as well as the Kaleidoscope plugins we use in the Model 100's firmware
 */

// The Kaleidoscope core

shapr

-- day 9
day9 :: IO ()
day9 = do
  dt <- getDayInput "9"
  let exDirs = parseCleanDay9 dt
  putStrLn $ "day 1 part 1 " <> (show $ evalDay9 exDirs (scanl' tailFollow (0,0)))
  putStrLn $ "day 1 part 2 " <> (show $ evalDay9 exDirs (oneRope . oneRope . oneRope . oneRope . oneRope . oneRope . oneRope . oneRope . oneRope))
      where oneRope = scanl1 tailFollow

parseCleanDay9 :: Text -> [Direction]