← Back to branch summary

~ubuntu-branches/ubuntu/quantal/haskell-test-framework/quantal

« back to all changes in this revision

Viewing changes to Test/Framework/Runners/Options.hs

  • Committer: Package Import Robot
  • Author(s): Clint Adams
  • Date: 2012-02-09 22:17:23 UTC
  • mfrom: (2.1.2 sid)
  • Revision ID: package-import@ubuntu.com-20120209221723-d0qcsclnev43p0os
Tags: 0.5-1
New upstream version.

Show diffs side-by-side

added added

removed removed

Lines of Context:
Test/Framework/Runners/Options.hs
6
6
 
7
7
import Data.Monoid
8
8
 
 
9
data ColorMode = ColorAuto | ColorNever | ColorAlways
9
10
 
10
11
type RunnerOptions = RunnerOptions' Maybe
11
12
type CompleteRunnerOptions = RunnerOptions' K
15
16
        ropt_test_patterns :: f [TestPattern],
16
17
        ropt_xml_output :: f (Maybe FilePath),
17
18
        ropt_xml_nested :: f Bool,
18
 
        ropt_plain_output :: f Bool,
 
19
        ropt_color_mode :: f ColorMode,
19
20
        ropt_hide_successes :: f Bool
20
21
    }
21
22
 
26
27
            ropt_test_patterns = Nothing,
27
28
            ropt_xml_output = Nothing,
28
29
            ropt_xml_nested = Nothing,
29
 
            ropt_plain_output = Nothing,
 
30
            ropt_color_mode = Nothing,
30
31
            ropt_hide_successes = Nothing
31
32
        }
32
33
 
36
37
            ropt_test_patterns = mappendBy ropt_test_patterns ro1 ro2,
37
38
            ropt_xml_output = mappendBy ropt_xml_output ro1 ro2,
38
39
            ropt_xml_nested = getLast (mappendBy (Last . ropt_xml_nested) ro1 ro2),
39
 
            ropt_plain_output = getLast (mappendBy (Last . ropt_plain_output) ro1 ro2),
 
40
            ropt_color_mode = getLast (mappendBy (Last . ropt_color_mode) ro1 ro2),
40
41
            ropt_hide_successes = getLast (mappendBy (Last . ropt_hide_successes) ro1 ro2)
41
42
        }
 
 
b'\\ No newline at end of file'