Skip to main content

Consensus style guide

This document describes the style we follow in the consensus team. While style is subjective, we attempt to motivate our choices with objective reasons where possible. Not everyone agrees with every choice we make, but we compromise. It is unlikely that this style guide matches the preference of even a single team member for 100%. In different teams, with different values and priorities, different choices might make more sense.

Aesthetics is something that a lot of programmers feel strongly about, and the goal of this style guide is not to stifle all personal freedom of expression. It is an attempt to document the style that we have tried to adhere to as much as we can in the codebase, and of course it is a style that we believe works well. When modifying the existing code, it would therefore be much appreciated if the existing style is adhered to, either by looking at the surrounding code or by reading this style guide. Whenever possible, it would also be good to stick to this style guide for new code. Should you disagree strongly with some of the recommendations here, however, feel free to "carve out a little niche" for yourself by adhering to your own preferences in modules that exclusively you work on (if this means splitting some modules up, that is fine). However, please do try to be consistent; inconsistent style is not a preference, that's just sloppiness.

Enforcement

As part of each PR review, we also check for consistency with the content of this document. We find that the rules herein become familiar and intuitive after some use: eventually it'll just be a document you refer to only occasionally. But we don't expect the first several PRs to perfectly adhere to these rules. So please make an effort, but don't worry too much: our highest priority is to see your PR's content! We'll help tidy up any deviations.

For maintenance work in particular, it suffices to focus only on the PR's diff. Our goal in that case is just to avoid obvious deviations from the module's existing style choices. Specifically, it's OK to inspect only the diff itself along with its context -- eg whatever is available in the GitHub PR interface. As long that rendering doesn't show that the PR spoils something like intentional alignment for example, then the PR has no style problems.

We run stylish-haskell as a requirement for merging. The specific configuration can be found here.

Guiding principles

We value the following principles in the consensus team:

  • Optimise for clarity: the following things occur with decreasing frequency:

    1. One reads the code and tries to understand it.
    2. After having understood the code, one modifies it.
    3. One writes the initial version of the code. This only happens once.

    We believe it is important to optimise for (1), then (2), but not for (3). Making a little effort to make to code easier to understand when writing or modifying it pays off dividends when reading it the next time, especially when another team member will be the one reading it. Picking good names, formatting it in a clear way, separating concerns, highlighting the differences between similar steps, documenting why it does this and that, ..., are all worth the extra effort.

    The layout and formatting of the code can help convey the meaning and the essence of the code. Alignment can help emphasise the similarities and the differences between cases.

    This is why we do not believe in automatic code formatters: they have no idea of the story the code is trying to tell. While the convenience, automation, and uniformity are big advantages, in our opinion, they come at the cost of code clarity.

    The style is not optimised for "diff-ability" (code review is important, but happens less frequently than reading code). All things being equal, writing code in a way that minimises unnecessary noise in a diff is good, but not at the cost of clarity.

  • Consistency: inconsistent style, especially within a single module, looks sloppy, inspires little confidence in the quality of the code, and distracts. Consistency is also a helpful guiding factor when deciding on style guidelines in the first place; sometimes a choice between formatting something this way or that way seems arbitrary in isolation, but becomes clearer when seen as part of a coherent whole.

Formatting

We now list the formatting rules we have converged on. As these have grown organically, not all code follows these rules. When touching some existing code, we in general recommend sticking to the existing style, but when it differs from the rules below, it is good practice to update the code's style to match them.

  1. Indentation: we indent by 2 spaces.

    Why: to avoid wasting horizontal screen space.

    Some consequences of this rule:

    a. The where clause of a function body is indented 2 spaces from the left margin, and the function body is indented 2 spaces from the where:

    foo x y z =
    ..
    where
    a = ..

    The where keyword acts as a separator between the body and the bindings. Keeping them at the same indentation level would make it hard to see where the body ends.

    We stick with this indentation even if the where clause is not present, just to avoid unnecessary changes when a where clause is added.

    b. We indent record data and newtype definitions as follows:

    data Foo = Foo {
    fooBar :: Int
    , fooArgument :: Bool
    }
    deriving (Show, Eq)

    newtype Foo = Foo {
    unFoo :: Int
    }
    deriving (Show, Eq)

    The deriving is indented from the left margin, and the constructors are indented from the deriving clause. This provides a consistent style for datatypes with multiple constructors (see below).

    Multiple deriving clauses using DerivingStrategies are aligned:

    data Foo = Foo {
    fooBar :: Int
    , fooArgument :: Bool
    }
    deriving stock (Show, Eq, Generic)
    deriving anyclass (NoThunks, NFData)

    newtype Foo = Foo {
    unFoo :: Int
    }
    deriving stock (Show)
    deriving newtype (Eq)
    deriving NoThunks via InspectHeapNamed "Foo" Foo

    Parentheses around a singleton list of classes are optional.

    Records that fit onto a single line can be formatted like this:

    data Foo = X {foo :: A, bar :: B} | Y

    c. We indent data definitions with multiple constructors as follows:

    data Foo =
    Bar Int Int
    | Baz
    Int
    Int
    (Maybe Bool)
    [Foo]

    Note the arguments of Baz being indented by two spaces.

    d. Both of the following are fine

    let fooBarBaz = fooBar
    baz

    let fooBarBaz =
    fooBar baz

    whichever is more natural.

    In the rare case that you want a where clause on a let binding, indent by 4 spaces, like described in (a):

    let fooBarBaz =
    ..
    where
    aux = ..

    e. do is placed after the =:

    foo .. = do
    bar
    baz

    Function calls can be placed on the same line as the do, unless this would make the line too long:

    foo .. = atomically $ do
    bar
    baz

    -- If the first line too long:
    foo .. =
    atomically $ do
    bar
    baz

    The where block can be indented by 2 spaces, as described in (a).

    In a case, use hanging do:

    case foo of
    X -> do
    ..
    Y -> do
    ..

    f. While it is technically possible to add a where clause to a pattern match case, use a let instead, to emphasise that the binding is local:

    case x of y
    A x -> A_body
    B y ->
    let bl = bl_body y
    in B_body

    Note that we align B_body with bl in the let block. At the moment we are not being very consistent with this.

    Using a where clause for a case can be okay, but tends to make the scope a bit confusing, so we try to avoid it.

  2. Line length: we limit the number of characters per line to 80.

    Why: long lines are less readable (there is a reason why books and newspapers limit their line length). It's also practical: even with (ultra-)wide monitors, most people tend to have many windows side by side.

    If you are going beyond 80 characters, wrap the line, introduce local bindings, etc.

    Comments and docstrings should also be wrapped at 80 characters.

    There are a few exceptions:

    • Sometimes alignment trumps line length. When many lines are aligned and a few of them are too long because of that, the clarity that comes from alignment (emphasising differences and similarities) can outweigh the line length limit.

    • Diagrams, examples, or long URLs in the comments can be wider than 80 characters.

    For certain constructs we have concrete recommendations on how to wrap them in case their length exceeds 80 characters:

    a. Type signatures: if a type signature doesn't fit on one line, wrap it like this:

    fooBar ::
    a
    -> ..
    -> ..

    Why: Keeping the :: on the first line is consistent with the rest of the style (compare to module Foo where for example), and has a practical benefit: it makes it much easier to grep for the definition of fooBar. The -> is indented 2 spaces from the left margin, as usual; the first argument is aligned with the rest (and happens to therefore be indented 5 spaces).

    When there are constraints:

    fooBar ::
    (Eq a, ..)
    => a
    -> ..
    -> ..

    When there is an explicit forall:

    fooBar ::
    forall a .. z. (Eq a, ..)
    => a
    -> ..
    -> ..

    If the forall line gets too long, wrap it after the .:

    fooBar ::
    forall a .. z.
    (Eq a, ..)
    => a
    -> ..
    -> ..

    Note that the . after the forall stays on the same line and that there is no space before it.

    If the constraints don't fit on one line:

    fooBar ::
    forall a .. z. (
    Eq a
    , ..
    )
    => a
    -> ..
    -> ..

    If there is a large function argument in the type signature:

    fooBar ::
    => a
    -> ( forall c. Eq c
    => c
    -> ..
    -> ..
    )
    -> ..

    Note that the first arrow in the function argument is indented one space relative to the opening parenthesis. The above line wrapping rules apply to the nested function type as well.

    b. Function calls: when not all arguments to a function call fit on a single line, either introduce clear local bindings for the arguments or put each argument on a separate line, indented 2 spaces from the function call:

    fooBar
    x
    (baz + 1)
    bar
    (foo (bar x))

    Why: multiple lines of multiple arguments are hard to read; for example, in

    fooBar
    x (baz + 1)
    bar (foo (bar x))

    it might look like bar is applied to (foo (bar x)), whereas in fact of course they are both just two arguments to fooBar. So, either everything on the same line as the function call, or else a line per argument.

    When writing a function call in the applicative style that does not fit on a single line, indent it as follows:

    fooBar
    <$> x
    <*> baz + 1
    <*> bar
    <*> foo (bar x)

    c. Argument lists: put the formal arguments of a function on a single line when possible:

    foo a b (SomeRecord {field = x}) =
    ..

    Bracketing a pattern match on a record is optional, but we feel it aids clarity.

    When that does not fit on a single line, move any pattern matches to a where block:

    foo a b c =
    ..
    where
    SomeRecord {field = x} = c

    When that is still not enough, then the function has so many arguments that naming them is not only useful for alignment, it also helps to clarify call sites: introduce a record.

    foo args =
    ..
    where
    Args {
    argA = a
    , argB = b
    , argC = SomeRecord {field = x}
    } = args

    d. Class or instance contexts: when a class or instance declaration doesn't fit onto a single line because of the super-class context, wrap the line before the => and align the class name with the first character in the context:

    class (Eq a, ..)
    => C a where

    instance (Eq a, ..)
    => C a where

    When the context doesn't fit onto a single line, wrap as follows:

    class ( Eq a
    , ..
    ) => C a where

    instance ( Eq a
    , ..
    ) => C a where

    e. Tuples in type signatures:

    foo ::
    a
    -> ( ..
    , ..
    )
    -> ( ..
    , ..
    )

    f. Datatypes:

    data Foo =
    Bar
    Arg1
    Arg2
    ..
    ArgN
    | Baz

    data Foo = Foo {
    , longFieldName ::
    HasCallStack
    => Int
    -> ..
    }

    g. Type synonyms:

    type Foo a b =
    AVeryLongTypeHereAndItKeepsGoing
    Arg1
    (Maybe b)
    Arg3

    type Cts a = (
    Eq a
    , ..
    , ..
    )

    h. Function composition:

    foo =
    h
    . g
    . f

    Why: The alignment of the .s and the function names makes the structure easy to see at a glance.

    This generalises to other binary operators, e.g., +, *, etc.

  3. Parentheses: avoid redundant parentheses, except when they help with the order of operations. Use your judgement, and aim for clarity. Redundant parentheses sometimes help the reader, but sometimes confuse as they might suggest that they are there to disambiguate something whereas in fact there is nothing to disambiguate.

    -- NO
    foo (Bar x) = (Bar (succ x))
    -- YES
    foo (Bar x) = Bar (succ x)

    -- NO
    ((x + y), z)
    -- YES
    (x + y, z)

    -- OKAY
    (fromIntegral x) * y
  4. Spaces: surround binary operators with a space on each side. A comma is always followed by a space.

    Why: this is a general convention that is also used in text and math books. Not doing so makes it harder to read and is sloppy.

    avg x y = (x + y) / 2

    let ((x, y), z) = foo
    in (y, z)

    The only exception is in tuple sections:

    (,) <$> foo <*> bar
    (True,) <$> foo
  5. Function composition and the dollar operator:

    Choose between using parenthesis, $ and . in whichever way you think results in the most readable code.

  6. Opening braces: we don't start a new line for opening braces:

    data Foo = Foo {
    ..
    , ..
    }

    mkFoo x = Foo {
    ..
    , ..
    }

    modifyFoo foo = foo {
    ..
    , ..
    }

    bar foo = ..
    where
    Foo {
    ..
    , ..
    } = foo

    There don't seem to be any really good arguments for putting the bracket either on the same line or on the next, other than the fact that the opening bracket indicates that there is more to follow. It is also consistent with the where in instance .. where and class .. where.

  7. Blank lines: we use exactly one blank line between different declarations: export lists, import lists, declarations, etc.

    Why: a blank line helps with readability. Always using a single one is consistent and easier to adhere to than one line in these cases and two lines in those other cases.

    When defining multiple non-trivial bindings in a where-block, separate them with a single blank line.

    fooBar .. =
    ..
    where
    foo :: ..
    foo = ..

    bar :: ..
    bar = ..

    -- OKAY
    foo .. =
    where
    x = ..
    y = succ x

    Always end a file with a newline, which is not the same as a blank line.

    -- NO
    ..

    <EOF>

    -- NO
    ..<EOF>

    -- YES
    ..
    <EOF>

    Why: see this StackOverflow answer, moreover, GitHub will highlight a missing newline at the end of the file.

  8. Sections: we group related definitions in sections that start with a section title. The same grouping can be replicated in the export list.

    module AmazingModule (
    -- Foo
    Foo (..)
    , mkFoo
    -- Bar
    , ..
    ) where

    {-------------------------------------------------------------------------------
    Foo
    -------------------------------------------------------------------------------}

    data Foo = ..

    mkFoo :: ..

    ..

    {-------------------------------------------------------------------------------
    Bar

    Bar is bla bla
    -------------------------------------------------------------------------------}

    type Bar = ..
    ..

    The two lines of the section header are each 80 characters in total. The title is indented by two spaces. The section header can contain more text, which is separated from the first line by one blank line. The section header has a single blank line above and below it.

  9. Comment style: in general we tend to use -- instead of {- .. -}. We sometimes make exceptions for big non-Haddock comments.

  10. Haddock formatting: we use Haddock formatting in docstrings. We also do this in comments for consistency.

    -- | Short title
    --
    -- Longer description .. 'Foo' .. "Data.String" .. @a@ .. /not/ ..
    -- __never__ .. called \"foo bars\" .. alternative style " foo bars "
    -- .. @'Foo' a@
    --
    -- > foo bar baz
    --
    -- .. ends here.
    foo :: ..

    Note the space after the |. We do not align the following lines with the first character of the |.

    Haddock treats something between double quotes as a link to a module. So when you try to quote something, either use backslashes or extra spaces as in the example above.

    We prefer -- | over -- ^. We only use the latter when documenting the arguments to a constructor or a function:

    foo ::
    Word -- ^ Max size
    -> ..

    data Foo =
    -- | Foo
    --
    -- ..
    Foo
    Int -- ^ @x@
    (Maybe Bool)
    -- ^ .. long line ..

    -- | Baar
    | Baar

    Note the indentation of -- |, the two spaces before the -- ^, and the blank line between the constructors.

    We often document preconditions, invariants, and postcondition using the following style:

    -- | Foo
    --
    -- PRECONDITION: x must be greater than y
    -- > x > y
    --
    -- POSTCONDITION: the result will be positive
    foo :: ..

    data Foo = Foo {
    -- | The bar ..
    fooBar :: Int

    -- | The baz ..
    --
    -- INVARIANT: 'fooBaz' is always greater than 7
    , fooBaz :: Int
    }
  11. Alignment: we align things when it helps with readability.

    Alignment makes it clear which things are the same and which things are different, compare the following code block

    foo (Quux a b c) = bar a b c
    foo (Bar b c) = bar [] b c
    foo (FooBar a c) = bar a [] c

    with the aligned version:

    foo (Quux   a b c) = bar a  b  c
    foo (Bar b c) = bar [] b c
    foo (FooBar a c) = bar a [] c

    Alignment makes it easier to spot errors. For example, compare the two code blocks, where the c argument is forgotten on the second line:

    foo (Quux a b c) = bar a b c
    foo (Bar b c) = bar [] b c
    foo (FooBar a c) = bar a []
    foo (Quux   a b c) = bar a  b  c
    foo (Bar b c) = bar [] b c
    foo (FooBar a c) = bar a []

    It is immediately obvious in the aligned code, but not in the unaligned code.

  12. Pattern guard alignment:

    This is one area in which we have not yet converged on a single style, and there are two styles in use:

    foo x y z
    | x == y
    = ..
    | Just z' <- z
    , z' == x
    , let x' = ..
    = .. x'
    | otherwise
    = ..
    where
    ..

    versus

    foo x y z
    | x == y =
    ..
    | otherwise =
    ..
    where
    ..

    Similarly for case:

    case mX of
    Just x
    | x > 100
    -> ..
    | x > 0
    -> ..
    _otherwise
    -> ..

    versus

    case mX of
    Just x
    | x > 100 ->
    ..
    | x > 0 ->
    ..
    _otherwise ->
    ..

    Choose whichever style you prefer. The latter style is more suitable for hanging do.

    In either style, use of _otherwise instead of _, as the latter is easy to miss.

  13. case vs function with multiple clauses:

    The choice between using a case and having multiple clauses of the function can help emphasise the structure of the code, and the differences and commonalities between the cases.

    foo acc visited = \case
    [] -> ..
    x:xs -> ..
  14. if-then-else:

    When using if-then-else in combination with do, follow the following style:

    if foo then do
    bar
    baz
    else do
    quux
    bar

    Why: to avoid wasting horizontal screen space.

  15. Import lists: we use stylish-haskell to automatically format import lists. See the .stylish-haskell.yaml config.

    When importing modules from consensus and in particular modules from the same package, an import list and a qualifier can be omitted. For example, importing Ouroboros.Consensus.Block is often done without an import list as it brings many basic definitions that are relied upon in scope.

    When importing from other packages, we prefer to use either an import list or a qualifier.

  16. Export lists: we use stylish-haskell to automatically format export lists. See the .stylish-haskell.yaml config. We format export lists in the following way:

    module X (
    ..
    , ..
    ) where

    We sometimes use Haddock headings:

    module X (
    -- * Foo
    ..
    -- ** Foo Bar
    , ..
    -- * Bar
    , ..
    ) where

    When exporting something with members, e.g., a datatype with constructors or a class with methods, we format them in the following way (note the space):

    module X (
    Foo (..)
    , Bar (MkBar)
    ) where

    Why: this is consistent with how stylish-haskell formats it when importing it.

    When intentionally hiding the constructor of a datatype or newtype, we add a -- opaque comment after it in the export list to be explicit about this:

    module X (
    Foo -- opaque
    ) where

    Why: otherwise, people unfamiliar with this type might be tempted to export its constructor without realising they're hidden for a reason. This comment should make them (and the reviewer) think twice.

  17. Syntactic extensions: we like to use some syntactic language extensions. Some argue against having to learn additional syntax, but we believe the learning curve is minimal and using them can help improve the clarity of the code.

    We like to use LambdaCase to avoid giving intermediate results a redundant name:

    -- OKAY
    mFoo <- getFoo
    case mFoo of
    Nothing -> ..
    Just foo -> ..

    -- OKAY
    getFoo >>= \case
    Nothing -> ..
    Just foo -> ..

    In the second snippet, there was no need to name the intermediary mFoo result. Especially when its name is long or coming up with a reasonable name for it is tricky, we recommend using LambdaCase.

    The use of MultiWayIf is also recommended when it improves the readability:

    if | Set.member pt prevApplied -> Just True
    | Map.member hash invalid -> Just False
    | otherwise -> Nothing

    In our opinion, this is more readable than alternatives like:

    if Set.member pt prevApplied then Just True else
    if Map.member hash invalid then Just False else
    Nothing
  18. Records:

    We purposefully discourage the use of RecordWildCards.

    For records we often use NamedFieldPuns to make it convenient to extract fields from the record. We use the following convention when naming fields to avoid duplicate record fields (we do not use DuplicateRecordFields):

    data SomeRecord = SomeRecord {
    someRecordA :: ..
    , someRecordB :: ..
    }

    To avoid long lines, it is sometimes useful to use record deconstruction in local bindings:

    foo someRecord =
    ..
    where
    SomeRecord {someRecordA, someRecordB} = someRecord

    The convention above can be also contracted into srA, srB, etc, i.e. abbreviating the name of the data definition.

    We try to avoid partial fields, but replacing partial fields such as

    data Foo = FooX {foo :: A, bar :: B} | FooY

    with

    data Foo = FooX A B | FooY

    is not an improvement: replacing record field names with positional arguments is a big loss in clarity. Instead, introduce a record to be used as an argument to the FooX constructor.

    data X = X {foo :: A, bar :: B}
    data Foo = FooX X | FooY
  19. Pointfree: Use your judgement when to use pointfree style and when not to use it; aim for clarity.

  20. Warnings: we use the following warnings for each Cabal component:

    -Wall
    -Wcompat
    -Wincomplete-uni-patterns
    -Wincomplete-record-updates
    -Wpartial-fields
    -Widentities
    -Wredundant-constraints
    -Wmissing-export-lists
    -Wunused-packages
    -Wno-unticked-promoted-constructors

    Why: the warnings produced by the above list of flags signal code smells or enforce good practices. There is seldom a reason to disable one of them. At the time of speaking, we haven't needed any CPP yet to accomplish this.

    We also keep the code entirely warning free; doing this consistently and without exception means that important warnings don't get lost. We enforce this by using -Werror in CI.

    We sometimes make exceptions for test code, e.g., -Wno-incomplete-uni-patterns.

    For consistency, always use -Wx and -Wno-x instead of -fwarn-x and -fno-warn-x.

  21. HasCallStack: when using error in code paths should be impossible and are indicative of bugs, make sure enough HasCallStack constraints are in scope so that the error message will result in a useful callstack.

    Note that HasCallStack constraints on record fields will need manual wrappers to work properly:

    data API m = API {
    foo_ :: HasCallStack => Maybe a -> m a
    }
    foo :: HasCallStack => API m -> Maybe a -> m a
    foo = foo_

    Without the extra wrapper foo, the call stack would only start at _foo, which is rather useless.

  22. Ambiguous types: we avoid AllowAmbiguousTypes. Instead, we add a Proxy argument for the ambiguous type variable.

    Why: this makes it explicit which type variable is ambiguous.

    When passing the Proxy, use Proxy @X where X is the concrete type.

    Why: this is less verbose than Proxy :: Proxy X.

    Generally try to avoid type applications, as they are rather brittle: if the type arguments to the function change order, suddenly a function call might no longer work, often with a hard to understand error message. This gets even worse when a function doesn't have an explicit forall, and so the order is not even specified. Prefer to use Proxy, possibly by introducing some auxiliary functions.

    When the same Proxy can be used multiple times, one can define it locally like so:

    pb :: Proxy blk
    pb = Proxy
  23. Redundant pragmas: remove unused language pragmas when possible.

    Why: if a module lists the CPP, AllowAmbiguousTypes, UndecidableInstances, or any other suspicious extension, it triggers an unnecessary red flag. Even for harmless extensions, it is good practice to remove unused ones.

    Tip: HLint can warn you about some unused pragmas.

  24. Reexports: When re-exporting several modules from one module, use the following pattern:

    module Foo (
    fooA
    , fooB
    , fooC
    , ...
    ) where

    import Foo.A (fooA, ...)
    import Foo.B (fooB, ...)
    import Foo.C (fooC, ...)

    Why: this leads to more changes to the export list, but makes it absolutely clear where each identifier comes from.

Guidelines

There are more general guidelines on how we write and structure code.

  1. Scope: We try to be careful about scope, clarifying where a variable is relevant and where it is not. For example, in

    foo x y z =
    ..
    where
    ..

    all of x, y, z will be in scope in the where clause. If they aren't relevant, limit their scope:

    foo x = \y z ->
    ..
    where
    ..

    this also can help to avoid awkward variable names.

    Similarly, choosing where over let can help to clarify which variables are in scope in those definitions. Writing

    foo x = do
    ..
    where
    y = ...

    makes it very clear that the definition of y does not depend on anything that has happened within the do block (it depends only on the formal parameters of the function). The flipside of this is that y is then scoped over the entire function body; that typically is less likely to result in confusion (especially for local function definitions), but if it is useful to emphasise that y is only used in a small part of the function body, or that this avoids awkward naming, then feel free to use let to express that. Use your judgement: use scope wisely.

  2. Tuples: We generally prefer records over tuples with lots of arguments; positional arguments (in tuples or as arguments to constructors) provide less clues what the arguments are used for.

  3. Orphans: Orphans are generally considered bad practice, but unfortunately avoiding orphans at all cost often means being unable to split a module into smaller parts. The reason orphans are considered bad practice is that they might lead to incoherence; we prefer the ability to split modules into smaller parts and accept the loss of the help of the compiler to avoid incoherence as an acceptable compromise.

    Orphans in test suites are also acceptable.

  4. Assertions: If it helps to explain what a function does, we try to be clear about preconditions, postconditions, and invariants. When possible, it is useful to reinforce such invariants with assertions so that if our reasoning turns out to be invalid, we will notice. The use of Ouroboros.Consensus.Util.Assert.assertWithMsg is preferred over assert, so that if the assertion fails, we get some kind of informative error message rather than just a Prolog-like "no".

  5. Test packages: In order to make test code from test suite A available in test suite B, we define test suites as a test suite library which is then used by a test suite executable; the test suite library can then be reused by other test suites as well.

    When there are multiple test suites within a single package, it is possible to share some code between them by making the same source code directory available to all of them. However, doing so would make it impossible to use that shared code in a test suite defined in another package. To avoid this problem, we avoid sharing source directories in cabal files.