tilia-0.1.0.0: corpora/vendored/other/cpp/comma-before-varying-last-items.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
          ]