P2KQ6PRM6HH2NQFXCTQIMGTAKXIG6BQ32IBYTKBSP4NWTZ4JLGGAC module Deck () where
module Deck( Card (..), DeckList, Category, CardName) whereimport Data.Vectorimport Data.Text (Text)import Refinedimport Numeric.Naturaltype Category = Refined NonEmpty Texttype CardName = Refined NonEmpty Textdata Card = Card{ name :: CardName, quantity :: Refined Positive Natural, category :: Category}
type DeckList = Vector Card