advent-of-code-2022/src/Shared.hs

module Shared(forceRight) where

forceRight :: Either a b -> b
forceRight (Left _) = error "forced Right but got Left"
forceRight (Right b) = b