workingdoge

## freechess.hs
{-# LANGUAGE DeriveFunctor #-}
{-# LANGUAGE DeriveFoldable #-}
{-# LANGUAGE DeriveTraversable #-}
{-# LANGUAGE LambdaCase #-}

module FreeChess where


-- Minimal “free” implementation, so we don't need an external
-- dependency.  We only implement the bits we use (`Free`, `liftF`,
	{-# LANGUAGE DeriveFunctor #-}
	{-# LANGUAGE DeriveFoldable #-}
	{-# LANGUAGE DeriveTraversable #-}
	{-# LANGUAGE LambdaCase #-}

	module FreeChess where


	-- Minimal “free” implementation, so we don't need an external
	-- dependency. We only implement the bits we use (`Free`, `liftF`,