diff options
| author | stuebinm | 2022-10-11 13:39:16 +0200 |
|---|---|---|
| committer | stuebinm | 2022-10-11 13:39:16 +0200 |
| commit | 4caded904c54d1cd85bf54239517e93650a404f5 (patch) | |
| tree | ce150d3588aa766c12ee6bb3e3ed3aea73615d43 /server/Server.hs | |
| parent | e4b0ae395f3207f4bbaebbf42a3d3a28a516489d (diff) | |
use template haskell aeson, not generics
this has been bothering me for MONTHS, and it compiles faster now. also fixed some warnings
Diffstat (limited to 'server/Server.hs')
| -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 |