Figuring out the new guard layout rule

FileSystem.purs

  reify :: forall eff. ComponentClass (FileSystemTreeProps eff) FileSystemTreeState
  reify = createClass spec 
    { displayName = "FileSystemTree"
    , getInitialState = \_ -> pure {collapsed: true}
    , render = \this -> case this.props.files of
      (FileType {"type" = "file", name = n})                           -> pure $ D.div {}
                                                                          [D.span {}
                                                                            [ dataFileIcon
                                                                            , D.rawText n
                                                                            ]
                                                                          ]
      (FileType {"type" = "directory", name = n}) | n `endsWith` ".nb" -> pure $ D.div {}
                                                                          [D.span {onClick: eventHandler this \this _ ->
                                                                                   this.props.request $ OpenNotebook $ joinPath $ this.props.path `snoc` n
                                                                                  }
                                                                            [ notebookIcon
                                                                            , D.rawText $ formatNotebookName n
                                                                            ]
                                                                          ]
      (FileType {"type" = "directory", name = n, children = c})        -> pure $ treeView
                                                                          { collapsed: this.state.collapsed
                                                                          , defaultCollapsed: true
                                                                          , nodeLabel: D.span
                                                                             {onClick: eventHandler (coerceThis this) toggleTree}
                                                                             [ if this.state.collapsed then dirClosedIcon else dirOpenIcon
                                                                             , D.rawText n
                                                                             ]
                                                                          , onClick: eventHandler (coerceThis this) toggleTree
                                                                          }
                                                                          (sort c <#> \f -> reify { files: f
                                                                                                  , request: this.props.request
                                                                                                  , path: this.props.path `snoc` n
                                                                                                  } [])
      (FileType {"type" = "mount", name = n})                          -> pure $ D.div {}
                                                                          [D.span {}
                                                                            [ mountIcon
                                                                            , D.rawText n
                                                                            ]
                                                                          ]
      (FileType {name = n})                                            -> pure $ D.div {}
                                                                          [D.span {}
                                                                            [ fileIcon
                                                                            , D.rawText n
                                                                            ]
                                                                          ] }