Skip to content

Instantly share code, notes, and snippets.

@i-am-tom
i-am-tom / bot.hs
Last active July 9, 2020 11:59 — forked from geekingfrog/bot.hs
Pour monsieur Charvet
{-# OPTIONS_GHC -Wall -Wextra #-}
{-# LANGUAGE BlockArguments #-}
{-# LANGUAGE FlexibleContexts #-}
{-# LANGUAGE GADTs #-}
{-# LANGUAGE RankNTypes #-}
{-# LANGUAGE TypeFamilies #-}
import Data.Functor.Product (Product (..))
import Data.Barbie