semiring-0.3: Data/Semiring/Helpers.hs

module Data.Semiring.Helpers where 

cartesian as bs = [(a,b) | a <- as, b <- bs]