tfausak’s gists

tfausak / Main.hs

Created April 8, 2026 15:50

Benchmark for generating Core directly when deriving Generic.

	#!/usr/bin/env cabal
	{- cabal:
	build-depends: base, directory, process
	ghc-options: -Wall
	-}

	-- https://gitlab.haskell.org/ghc/ghc/-/issues/27130

	import qualified Control.Exception as Exception
	import qualified Control.Monad as Monad

tfausak / bench_generics_unified.sh

Last active April 2, 2026 21:04

https://gitlab.haskell.org/ghc/ghc/-/issues/27130

	#!/usr/bin/env bash
	# Unified Generic deriving benchmark
	# Tests compile-time (allocations + time) and runtime (to . from round-trip)
	# for record types (N fields) and sum types (N constructors),
	# comparing -fdirect-core-generic-deriving vs -fno-direct-core-generic-deriving.
	set -euo pipefail

	GHC="${GHC:-./_build/stage1/bin/ghc}"
	OPT="${OPT:--O0}"

tfausak / balatro-daily-seed.hs

Created January 12, 2025 18:25

Generates a random seed for Balatro every day.

	#! /usr/bin/env cabal
	{- cabal:
	build-depends: base, random, time
	-}
	import qualified Data.Time as Time
	import qualified System.Random as Random

	main :: IO ()
	main =
	putStrLn

tfausak / Witch.hs

Last active November 6, 2024 17:46

Deriving `From` instances using `Generically`. https://github.com/tfausak/witch/issues/107

	{-# LANGUAGE DeriveGeneric #-}
	{-# LANGUAGE DerivingVia #-}
	{-# LANGUAGE FlexibleContexts #-}
	{-# LANGUAGE FlexibleInstances #-}
	{-# LANGUAGE MultiParamTypeClasses #-}
	{-# LANGUAGE ScopedTypeVariables #-}
	{-# LANGUAGE StandaloneDeriving #-}
	{-# LANGUAGE TypeOperators #-}
	{-# LANGUAGE UndecidableInstances #-}

tfausak / UUIDv7.hs

Last active August 21, 2024 14:11

UUID v7 generator in Haskell.

tfausak / HW_Answer.hs

Last active November 19, 2022 16:24

	module HW_Answer where

	import qualified Data.Text as Text
	import qualified Data.Vector as Vector
	import qualified HW_Other as Other

	data Answer
	= Single (Vector.Vector Text.Text)
	\| Multi Other.Other (Vector.Vector Text.Text)
	\| Extension (Vector.Vector Text.Text)

tfausak / .devcontainer.json

Last active February 18, 2023 15:40

Haskell Language Server (HLS) issue #3074. https://github.com/haskell/haskell-language-server/issues/3074

	{
	"customizations": {
	"vscode": {
	"extensions": [
	"haskell.haskell"
	]
	}
	},
	"dockerComposeFile": "compose.yaml",
	"service": "devcontainer",

tfausak / DisableWarnings.hs

Last active May 24, 2022 12:11

A GHC plugin for disabling some warnings.

	module DisableWarnings where

	import qualified Data.List as List
	import qualified GHC.Data.Bag as Bag
	import qualified GHC.Data.IOEnv as IOEnv
	import qualified GHC.Plugins as Plugins
	import qualified GHC.Tc.Types as Tc
	import qualified GHC.Types.Error as Error

	plugin :: Plugins.Plugin

tfausak / brittany-benchmark.hs

Last active March 14, 2022 20:35

	#! /usr/bin/env sh
	set -o errexit

	# https://github.com/haskell-servant/servant/issues/986

	###############################################################################
	# Print out various system information.

	date
	lsb_release --all

tfausak / HW_Answer.hs

Last active November 17, 2021 13:57

2021 State of Haskell Survey Results

	module HW_Answer where

	import qualified Data.Text as Text
	import qualified Data.Vector as Vector
	import qualified HW_Other as Other

	data Answer
	= Single (Vector.Vector Text.Text)
	\| Multi Other.Other (Vector.Vector Text.Text)
	\| Extension (Vector.Vector Text.Text)

Taylor Fausak tfausak