diff options
Diffstat (limited to '')
-rw-r--r-- | server/Server.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/server/Server.hs b/server/Server.hs index 2c16834..84b4ae8 100644 --- a/server/Server.hs +++ b/server/Server.hs @@ -219,9 +219,9 @@ data JobStatus instance TS.Show JobStatus where show = \case - Pending _ -> "Pending" - Linted res rev _ -> "Linted result" - Failed err -> "Failed with: " <> show err + Pending _ -> "Pending" + Linted _ _ _ -> "Linted result" + Failed err -> "Failed with: " <> show err -- | the server's global state; might eventually end up with more -- stuff in here, hence the newtype |