tilia-0.1.0.0: corpora/vendored/other/cpp/comma-before-varying-last-items-out.hs

{-# LANGUAGE CPP #-}

module Shapes.Derived where

-- The comma before items that only some configurations have, where nothing
-- follows them, goes on the line of the first of them.
data Shape = Circle | Square
  deriving
    ( Eq,
      Ord
#ifdef WITH_SHOW
      , Show
#endif
#ifdef WITH_DATA
      , Data,
      Typeable
#endif
    )

palette :: [Colour]
palette =
  [ red,
    green
#ifdef WIDE_GAMUT
    , teal
#endif
  ]