tilia-0.1.4.0: corpora/vendored/other/cpp/directives-in-a-haddock-out.hs

{-# LANGUAGE CPP #-}

module M where

class Shape a where
  {- |
  The area, for example:

#if MIN_VERSION_base(4,10,0)
  >>> area (Square 2)
  4.0
#else
  >>> area (Square 2.0)
  4.0
#endif
  -}
  area :: a -> Double

  -- | The perimeter.
  perimeter :: a -> Double