affection/src/Affection/Types.hs

module Affection.Types
  ( RGBA(..)
  ) where

data RGBA = RGBA
  { r :: Int
  , g :: Int
  , b :: Int
  , a :: Int
  }