shapr

(use-package haskell-mode
  :ensure t
  :delight " hsk"
  :bind (:map haskell-mode-map ([(meta .)] . lsp-find-definition))
  :init
  (progn
    (add-hook 'haskell-mode-hook 'turn-on-haskell-doc-mode)
    (add-hook 'haskell-mode-hook #'lsp-deferred)
    (add-hook 'haskell-literate-mode-hook #'lsp)
    (add-hook 'haskell-mode-hook 'turn-on-haskell-indent)

shapr

/* expand.c */
/* Copyright 1994 by Philip Gage */

#include <stdio.h>

/* Decompress data from input to output */
void expand (FILE *input, FILE *output)
{
  unsigned char left[256], right[256], stack[30];
  short int c, count, i, size;

shapr

/* compress.c */
/* Copyright 1994 by Philip Gage */

#include <stdio.h>

#define BLOCKSIZE 5000   /* Maximum block size */
#define HASHSIZE  4096   /* Size of hash table */
#define MAXCHARS   200   /* Char set per block */
#define THRESHOLD    3   /* Minimum pair count */

shapr

diff --git a/src/Core.hs b/src/Core.hs
index 08b40dd..2741c26 100644
--- a/src/Core.hs
+++ b/src/Core.hs
@@ -80,7 +80,7 @@ main = do
             exitFailure
         print ("main loop starts" :: String)
 
-        SDL.initialize [SDL.InitVideo]
+        SDL.initializeAll

shapr

❯ nixos-rebuild switch -I nixos-config=./surtr.nix --target-host [email protected]
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