Format files

sheridanchris · Jan 13, 2024 · ab7c578 · ab7c578
1 parent 9c7f9bb
commit ab7c578
Show file tree

Hide file tree

Showing 2 changed files with 26 additions and 29 deletions.
diff --git a/build.fsx b/build.fsx
@@ -42,17 +42,16 @@ pipeline "Publish" {
       runSensitive (nugetPushCommand key))
   }
 
-  post [
-    stage "Post publish" {
-      whenNot { envVar "GITHUB_ACTION" }
+  post
+    [ stage "Post publish" {
+        whenNot { envVar "GITHUB_ACTION" }
 
-      run (fun _ ->
-        let nugetPackageFiles =
-          Directory.EnumerateFiles(Environment.CurrentDirectory, "*.nupkg")
+        run (fun _ ->
+          let nugetPackageFiles =
+            Directory.EnumerateFiles(Environment.CurrentDirectory, "*.nupkg")
 
-        nugetPackageFiles |> Seq.iter File.Delete)
-    }
-  ]
+          nugetPackageFiles |> Seq.iter File.Delete)
+      } ]
 
   runIfOnlySpecified true
 }
diff --git a/src/App/App.fs b/src/App/App.fs
@@ -43,27 +43,25 @@ let view () =
   let routerSubscription =
     Navigable.listenLocation (Router.getCurrentUrl, getPageFromUrl >> SetPage >> dispatch)
 
-  Html.div [
-    Attr.style [ Css.displayFlex; Css.flexDirectionColumn ]
+  Html.div
+    [ Attr.style [ Css.displayFlex; Css.flexDirectionColumn ]
 
-    Html.button [
-      Attr.style [ Css.width 350 ]
-      Attr.text "Click me to navigate to the login page!"
-      onClick (fun _ -> dispatch (Navigate "/#/login")) []
-    ]
-    Html.a [ Attr.href "/#/users/1"; Attr.text "Click me to navigate to a user's profile" ]
-    Bind.el (
-      model .> currentPage,
-      fun currentPage ->
-        let content =
-          match currentPage with
-          | Home -> "Home page"
-          | Login -> "Login page"
-          | UserProfile id -> $"Viewing user #{id}"
-          | NotFound -> "Not found!"
+      Html.button
+        [ Attr.style [ Css.width 350 ]
+          Attr.text "Click me to navigate to the login page!"
+          onClick (fun _ -> dispatch (Navigate "/#/login")) [] ]
+      Html.a [ Attr.href "/#/users/1"; Attr.text "Click me to navigate to a user's profile" ]
+      Bind.el (
+        model .> currentPage,
+        fun currentPage ->
+          let content =
+            match currentPage with
+            | Home -> "Home page"
+            | Login -> "Login page"
+            | UserProfile id -> $"Viewing user #{id}"
+            | NotFound -> "Not found!"
 
-        Html.h1 content
-    )
-  ]
+          Html.h1 content
+      ) ]
 
 Program.mount ("sutil-app", view ()) |> ignore // Do I ignore this?