never executed always true always false

    1 module Distribution.Client.BuildReports.Lens (
    2     BuildReport,
    3     module Distribution.Client.BuildReports.Lens,
    4 ) where
    5 
    6 import Distribution.Client.Compat.Prelude
    7 import Distribution.Compat.Lens
    8 import Prelude ()
    9 
   10 import Distribution.Client.BuildReports.Types (BuildReport, InstallOutcome, Outcome)
   11 import Distribution.Compiler                  (CompilerId)
   12 import Distribution.System                    (Arch, OS)
   13 import Distribution.Types.Flag                (FlagAssignment)
   14 import Distribution.Types.PackageId           (PackageIdentifier)
   15 
   16 import qualified Distribution.Client.BuildReports.Types as T
   17 
   18 package :: Lens' BuildReport PackageIdentifier
   19 package f s = fmap (\x -> s { T.package = x }) (f (T.package s))
   20 
   21 os :: Lens' BuildReport OS
   22 os f s = fmap (\x -> s { T.os = x }) (f (T.os s))
   23 
   24 arch :: Lens' BuildReport Arch
   25 arch f s = fmap (\x -> s { T.arch = x }) (f (T.arch s))
   26 
   27 compiler :: Lens' BuildReport CompilerId
   28 compiler f s = fmap (\x -> s { T.compiler = x }) (f (T.compiler s))
   29 
   30 client :: Lens' BuildReport PackageIdentifier
   31 client f s = fmap (\x -> s { T.client = x }) (f (T.client s))
   32 
   33 flagAssignment :: Lens' BuildReport FlagAssignment
   34 flagAssignment f s = fmap (\x -> s { T.flagAssignment = x }) (f (T.flagAssignment s))
   35 
   36 dependencies :: Lens' BuildReport [PackageIdentifier]
   37 dependencies f s = fmap (\x -> s { T.dependencies = x }) (f (T.dependencies s))
   38 
   39 installOutcome :: Lens' BuildReport InstallOutcome
   40 installOutcome f s = fmap (\x -> s { T.installOutcome = x }) (f (T.installOutcome s))
   41 
   42 docsOutcome :: Lens' BuildReport Outcome
   43 docsOutcome f s = fmap (\x -> s { T.docsOutcome = x }) (f (T.docsOutcome s))
   44 
   45 testsOutcome :: Lens' BuildReport Outcome
   46 testsOutcome f s = fmap (\x -> s { T.testsOutcome = x }) (f (T.testsOutcome s))