format purescript code

Author: thomashoneyman

dashboard/src/Dashboard/Component/JobDetail.purs

@@ -303,9 +303,10 @@ renderLogEntries state
         [ HH.p_ [ HH.text "No logs at this level." ] ]
   | otherwise = do
       -- Logs are stored in ASC order; reverse at render time for DESC.
-      let displayLogs = case state.logSortOrder of
-            ASC -> state.allLogs
-            DESC -> Array.reverse state.allLogs
+      let
+        displayLogs = case state.logSortOrder of
+          ASC -> state.allLogs
+          DESC -> Array.reverse state.allLogs
       let totalLogs = Array.length displayLogs
       let totalPages = logTotalPages totalLogs
       let page = min state.logPage (totalPages - 1)
@@ -329,9 +330,10 @@ renderLogEntries state
 renderLogEntry :: forall m. SortOrder -> Int -> Int -> Int -> LogLine -> H.ComponentHTML Action () m
 renderLogEntry sortOrder totalLogs offset index logLine = do
   let level = V1.printLogLevel logLine.level
-  let rowNum = case sortOrder of
-        ASC -> offset + index + 1
-        DESC -> totalLogs - offset - index
+  let
+    rowNum = case sortOrder of
+      ASC -> offset + index + 1
+      DESC -> totalLogs - offset - index
   HH.tr [ HP.class_ (HH.ClassName ("log-entry log-entry--" <> level)) ]
     [ HH.td [ HP.class_ (HH.ClassName "log-entry__rownum") ]
         [ HH.text (show rowNum) ]
@@ -388,9 +390,10 @@ handleAction = case _ of
     H.modify_ _ { currentTime = Just now }
     handleAction FetchJob
     state <- H.get
-    let finished = case state.job of
-          Just job -> isJust (V1.jobInfo job).finishedAt
-          Nothing -> false
+    let
+      finished = case state.job of
+        Just job -> isJust (V1.jobInfo job).finishedAt
+        Nothing -> false
     unless finished do
       subId <- H.subscribe =<< Job.timerEmitter logRefreshInterval LogRefreshTick
       H.modify_ _ { logRefreshSubId = Just subId }
@@ -467,9 +470,10 @@ handleAction = case _ of
     H.modify_ _ { currentTime = Just now }
     state <- H.get
     -- No-op if the job is already finished: all logs have been fetched.
-    let finished = case state.job of
-          Just job -> isJust (V1.jobInfo job).finishedAt
-          Nothing -> false
+    let
+      finished = case state.job of
+        Just job -> isJust (V1.jobInfo job).finishedAt
+        Nothing -> false
     unless finished do
       result <- H.liftAff $ API.fetchJob state.apiConfig (JobId state.jobId)
         { level: Just state.logLevel, since: state.lastLogTimestamp, until: Nothing, order: Just ASC }

dashboard/src/Dashboard/Component/JobsList.purs

@@ -152,9 +152,10 @@ type PageCursor = { timestamp :: DateTime, dir :: PaginationDir }
 
 printCursorParam :: PageCursor -> String
 printCursorParam { timestamp, dir } =
-  (case dir of
-    Forward -> "f:"
-    Backward -> "b:")
+  ( case dir of
+      Forward -> "f:"
+      Backward -> "b:"
+  )
     <> Job.formatCursorTimestamp timestamp
 
 parseCursorParam :: String -> Maybe PageCursor
@@ -691,9 +692,10 @@ handleAction = case _ of
       -- avoids VDOM diffing on every auto-refresh tick when nothing new
       -- has arrived.
       unless (not state.loading && newFingerprints == oldFingerprints) do
-        let isBackward = case state.pageCursor of
-              Just { dir: Backward } -> true
-              _ -> false
+        let
+          isBackward = case state.pageCursor of
+            Just { dir: Backward } -> true
+            _ -> false
         let hasNext = isBackward || Array.length jobs >= pageSize
         H.modify_ _ { loading = false, error = Nothing, jobs = summaries, hasNextPage = hasNext }
 

dashboard/src/Dashboard/Job.purs

@@ -26,12 +26,12 @@ import Prelude
 import Control.Monad.Rec.Class (forever)
 import Data.DateTime (DateTime)
 import Data.DateTime as DateTime
+import Data.Either (hush)
 import Data.Formatter.DateTime (FormatterCommand(..))
 import Data.Formatter.DateTime as Formatter.DateTime
 import Data.Int as Int
 import Data.List (List)
 import Data.List as List
-import Data.Either (hush)
 import Data.Maybe (Maybe(..), isJust, isNothing)
 import Data.Newtype (unwrap)
 import Data.Time.Duration (Seconds)
@@ -142,8 +142,17 @@ formatTimestamp = Formatter.DateTime.format timestampFormat
 -- "YYYY-MM-DD HH:MM:SS"
 timestampFormat :: List FormatterCommand
 timestampFormat = List.fromFoldable
-  [ YearFull, Placeholder "-", MonthTwoDigits, Placeholder "-", DayOfMonthTwoDigits
-  , Placeholder " ", Hours24, Placeholder ":", MinutesTwoDigits, Placeholder ":", SecondsTwoDigits
+  [ YearFull
+  , Placeholder "-"
+  , MonthTwoDigits
+  , Placeholder "-"
+  , DayOfMonthTwoDigits
+  , Placeholder " "
+  , Hours24
+  , Placeholder ":"
+  , MinutesTwoDigits
+  , Placeholder ":"
+  , SecondsTwoDigits
   ]
 
 -- | Format a DateTime as an HTML datetime-local input value "YYYY-MM-DDTHH:MM".
@@ -157,8 +166,15 @@ parseDateTimeLocal = hush <<< Formatter.DateTime.unformat dateTimeLocalFormat
 -- "YYYY-MM-DDTHH:MM"
 dateTimeLocalFormat :: List FormatterCommand
 dateTimeLocalFormat = List.fromFoldable
-  [ YearFull, Placeholder "-", MonthTwoDigits, Placeholder "-", DayOfMonthTwoDigits
-  , Placeholder "T", Hours24, Placeholder ":", MinutesTwoDigits
+  [ YearFull
+  , Placeholder "-"
+  , MonthTwoDigits
+  , Placeholder "-"
+  , DayOfMonthTwoDigits
+  , Placeholder "T"
+  , Hours24
+  , Placeholder ":"
+  , MinutesTwoDigits
   ]
 
 -- | Format a DateTime as a URL-safe cursor timestamp "YYYY-MM-DDTHH:MM:SS".
@@ -172,8 +188,17 @@ parseCursorTimestamp = hush <<< Formatter.DateTime.unformat cursorTimestampForma
 -- "YYYY-MM-DDTHH:MM:SS"
 cursorTimestampFormat :: List FormatterCommand
 cursorTimestampFormat = List.fromFoldable
-  [ YearFull, Placeholder "-", MonthTwoDigits, Placeholder "-", DayOfMonthTwoDigits
-  , Placeholder "T", Hours24, Placeholder ":", MinutesTwoDigits, Placeholder ":", SecondsTwoDigits
+  [ YearFull
+  , Placeholder "-"
+  , MonthTwoDigits
+  , Placeholder "-"
+  , DayOfMonthTwoDigits
+  , Placeholder "T"
+  , Hours24
+  , Placeholder ":"
+  , MinutesTwoDigits
+  , Placeholder ":"
+  , SecondsTwoDigits
   ]
 
 -- | Format a duration in seconds as a human-readable string.

dashboard/src/Dashboard/Router.purs

@@ -10,9 +10,9 @@ import Dashboard.Component.JobDetail as JobDetail
 import Dashboard.Component.JobsList as JobsList
 import Dashboard.Route (Route(..))
 import Dashboard.Route as Route
+import Data.Array as Array
 import Data.Const (Const)
 import Data.Either (hush)
-import Data.Array as Array
 import Data.Maybe (Maybe(..), fromMaybe)
 import Data.String (Pattern(..))
 import Data.String as String