never executed always true always false

    1 -----------------------------------------------------------------------------
    2 -- |
    3 -- Module      :  Distribution.Client.Init.Utils
    4 -- Copyright   :  (c) Brent Yorgey 2009
    5 -- License     :  BSD-like
    6 --
    7 -- Maintainer  :  cabal-devel@haskell.org
    8 -- Stability   :  provisional
    9 -- Portability :  portable
   10 --
   11 -- Shared utilities used by multiple cabal init modules.
   12 --
   13 -----------------------------------------------------------------------------
   14 
   15 module Distribution.Client.Init.Utils (
   16     eligibleForTestSuite
   17   , message
   18   ) where
   19 
   20 import Distribution.Solver.Compat.Prelude
   21 import Prelude ()
   22 
   23 import Distribution.Simple.Setup
   24   ( Flag(..) )
   25 import Distribution.Client.Init.Types
   26   ( InitFlags(..), PackageType(..) )
   27 
   28 -- | Returns true if this package is eligible for test suite initialization.
   29 eligibleForTestSuite :: InitFlags -> Bool
   30 eligibleForTestSuite flags =
   31   Flag True == initializeTestSuite flags
   32   && Flag Executable /= packageType flags
   33 
   34 -- | Possibly generate a message to stdout, taking into account the
   35 --   --quiet flag.
   36 message :: InitFlags -> String -> IO ()
   37 message (InitFlags{quiet = Flag True}) _ = return ()
   38 message _ s = putStrLn s