fix(View): add exhaustive pattern match for SPNTF

This commit is contained in:
shum
2026-04-21 15:53:19 +00:00
committed by Dev
parent 98ed404caf
commit a31ece7312
+1
View File
@@ -1621,6 +1621,7 @@ viewServerTestResult (AProtoServerWithAuth p _) = \case
pName = case p of
SPSMP -> "packet"
SPXFTP -> "data"
SPNTF -> "notification"
viewRelayTestResult :: Maybe RelayProfile -> Maybe RelayTestFailure -> [StyledString]
viewRelayTestResult relayProfile_ = \case