Skip to content

Instantly share code, notes, and snippets.


Cheng Shao TerrorJack

View GitHub Profile
View slack-expand-unread.js
setInterval(() => Array.from(document.getElementsByClassName("c-button")).filter(b => b.innerText.includes("New Message")).forEach(b =>, 1000)
View Freer.hs
{-# LANGUAGE RankNTypes #-}
{-# OPTIONS_GHC -Wall #-}
module Freer where
import Control.Applicative
import Control.Monad
import Data.Sequence (Seq (..))
import GHC.Exts
View log.txt
This file has been truncated, but you can view the full file.
Version 2.3.1 x86_64
Compiled with:
- Cabal-
- Glob-0.10.0
- StateVar-1.2
- aeson-
- annotated-wl-pprint-0.7.0
- ansi-terminal-0.10.3
- ansi-wl-pprint-0.6.9
View mealy.hs
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE StaticPointers #-}
{-# LANGUAGE ViewPatterns #-}
{-# OPTIONS_GHC -Wall #-}
import Control.Concurrent
import Control.Distributed.Closure
import Control.Monad
import Data.Binary
import qualified Data.ByteString.Lazy as LBS
View T.hs
{-# LANGUAGE LambdaCase #-}
{-# OPTIONS_GHC -Wall -O2 -threaded -rtsopts "-with-rtsopts=-A64m -n2m -I0 -qg" #-}
module T where
import Control.Concurrent
import Control.Exception
import Control.Monad
import Data.IORef
View baidupcs.Dockerfile
FROM ubuntu:bionic
ARG DEBIAN_FRONTEND=noninteractive
apt update && \
apt full-upgrade -y && \
apt install -y \
curl \
desktop-file-utils \
View gc-talk.html
<!DOCTYPE html>
<meta charset="utf-8">
<meta name="generator" content="pandoc">
<title>A tour into GHC’s garbage collection</title>
<meta name="apple-mobile-web-app-capable" content="yes">
<meta name="apple-mobile-web-app-status-bar-style" content="black-translucent">
<meta name="viewport" content="width=device-width, initial-scale=1.0, maximum-scale=1.0, user-scalable=no, minimal-ui">
<link rel="stylesheet" href="">
TerrorJack /
Created Dec 31, 2019 — forked from ajaegers/
Git: move files in an subfolder keeping history

Change structure of project folder with Git

I have this structure:

TerrorJack /
Created Dec 11, 2019 — forked from george-hawkins/
Running virtualized x86_64 and emulated arm64 Ubuntu cloud images using QEMU

QEMU arm64 cloud server emulation

This is basically a rehash of an original post on CNXSoft - all credit (particularly for the Virtio device arguments used below) belongs to the author of that piece.

Download the latest uefi1.img image. E.g. ubuntu-16.04-server-cloudimg-arm64-uefi1.img from

Download the UEFI firmware image QEMU_EFI.fd from

Determine your current username and get your current ssh public key:

View jsval-gc.hs
{-# LANGUAGE MagicHash #-}
{-# LANGUAGE StrictData #-}
{-# LANGUAGE UnboxedTuples #-}
{-# OPTIONS_GHC -Wall -O2 #-}
import Data.Foldable
import GHC.Exts
import GHC.Types
import System.Mem
You can’t perform that action at this time.