goolord’s gists

goolord / Is_this_a_typeclass.hs

Last active September 4, 2021 19:50

	{-# LANGUAGE DataKinds #-}
	{-# LANGUAGE TypeFamilies #-}
	{-# LANGUAGE ScopedTypeVariables #-}
	{-# LANGUAGE TypeApplications #-}
	{-# LANGUAGE TypeSynonymInstances #-}
	{-# LANGUAGE FlexibleInstances #-}
	{-# LANGUAGE MultiParamTypeClasses #-}

	{- cabal:
	build-depends:

goolord / debug.hs

Created May 13, 2021 15:51

useful debugging stuff

	showBits :: FiniteBits a => a -> String
	showBits = fmap (bool '0' '1') . bitList

	traceWith :: Show b => (a -> b) -> a -> a
	traceWith f x = traceShow (f x) x

	bitList :: FiniteBits a => a -> [Bool]
	bitList x = let size = finiteBitSize x
	in [testBit x i \| i <- enumFromThenTo size (size - 1) 0]

goolord / index.html

Created August 11, 2020 05:45

zYqxXvg

	<html>
	<head>
	<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
	<link rel="stylesheet" href="https://unpkg.com/sakura.css/css/sakura.css" type="text/css">
	<style>
	button {
	width:50px;
	height:50px;
	border-radius: 50%;
	}

goolord / test.hs

Created November 16, 2019 08:42

	{-# LANGUAGE TemplateHaskell, LambdaCase, FlexibleContexts #-}
	{-# OPTIONS_GHC -fplugin=Polysemy.Plugin #-}

	module Main where

	import Polysemy
	import Polysemy.State
	import Polysemy.Reader
	import Polysemy.Error
	import Polysemy.NonDet

goolord / example.hs

Created November 15, 2019 17:05

	app :: Connection -> IO (Event t a)
	app conn = do
	(event, triggerEvent) <- newTriggerEvent
	forever $ do
	msg <- receiveData conn
	let m = parseSocketData msg
	triggerEvent m
	pure event

goolord / gist:e10f20374d3891c5397ee82a0a9af615

Created November 8, 2019 21:20

IPSum

goolord / ipsum

Created November 8, 2019 21:19

This file has been truncated, but you can view the full file.

goolord / output

Created December 3, 2018 15:16

	# zachchurchill @ developer1 in ~/Documents/grove/backend/service on git:master x [10:15:21]
	> nix-shell --run 'ghcid -c cabal new-repl'
	these derivations will be built:
	/nix/store/wl7s679ap53p8nv7fgk3x3dk81zb4mj3-beam-migrate-0.3.2.1.drv
	/nix/store/5c2lwzjcqr7cd5kgdb3d5n8i89g763wk-beam-postgres-0.3.2.2.drv
	/nix/store/jy3q1q1wqvprq6dv7yf65fqnp2i6kk8l-beam-0.3.2.0.drv
	/nix/store/n7f4pxmlilmdylqj00pp2six53rc1zjp-ghc-8.4.4-with-packages.drv
	building '/nix/store/jy3q1q1wqvprq6dv7yf65fqnp2i6kk8l-beam-0.3.2.0.drv'...
	setupCompilerEnvironmentPhase
	Build with /nix/store/s9a8h6qqdmignsqphir5jyllr5ivf0p3-ghc-8.4.4.

goolord / gist:fa91e3a4f81175a204eff855daef1b65

Created November 28, 2018 21:23

	%NOTIFY: Added "/home/zachchurchill/meow.hs" 2018-11-28 21:22:02.749463309 UTC False
	%NOTIFY: Modified "/home/zachchurchill/meow.hs" 2018-11-28 21:22:02.749475835 UTC False
	%NOTIFY: Modified "/home/zachchurchill/meow.hs" 2018-11-28 21:22:02.7494781 UTC False
	%STDIN: :reload
	%NOTIFY: Removed "/home/zachchurchill/meow.hs~" 2018-11-28 21:22:02.751100936 UTC False
	%STDIN: INTERNAL_GHCID.putStrLn ['#','~','G','H','C','I','D','-','F','I','N','I','S','H','-','5','~','#']
	INTERNAL_GHCID.hPutStrLn INTERNAL_GHCID.stderr ['#','~','G','H','C','I','D','-','F','I','N','I','S','H','-','5','~','#']
	%STDERR:
	%STDERR: meow.hs:10:0: error:
	%STDERR: error: macro names must be identifiers

Zachary Churchill goolord