module Affection.Types ( RGBA(..) ) where data RGBA = RGBA { r :: Int , g :: Int , b :: Int , a :: Int }