Bug report from fantomas-ui

[nojaf]

Issue created from fantomas-ui

Problem found by @seangwright in #515.
The issue here is that an additional newline is added between two and blocks.

Code

module Game

type Details =
    { Name: string
      Description: string }

type Item =
    { Details: Details }

type Exit =
    | Passable of Details * desitnation: Room
    | Locked of Details * key: Item * next: Exit
    | NoExit of Details option

and Exits =
    { North: Exit
      South: Exit
      East: Exit
      West: Exit }

and Room =
    { Details: Details
      Items: Item list
      Exits: Exits }

Result

module Game

type Details =
    { Name: string
      Description: string }

type Item =
    { Details: Details }

type Exit =
    | Passable of Details * desitnation: Room
    | Locked of Details * key: Item * next: Exit
    | NoExit of Details option

and Exits =
    { North: Exit
      South: Exit
      East: Exit
      West: Exit }


and Room =
    { Details: Details
      Items: Item list
      Exits: Exits }

Options

Fantomas 3.0.0

Name	Value
IndentOnTryWith	false
IndentSpaceNum	4
KeepNewlineAfter	false
PageWidth	120
ReorderOpenDeclaration	false
SemicolonAtEndOfLine	false
SpaceAfterComma	true
SpaceAfterSemicolon	true
SpaceAroundDelimiter	true
SpaceBeforeArgument	true
SpaceBeforeColon	false
StrictMode	false