Update Clear button logic to include message check

dmjio · web-flow · commit 6353e77e27c8 · 2025-08-28T09:14:31.000-05:00
diff --git a/src/WebSocket.hs b/src/WebSocket.hs
@@ -196,7 +196,7 @@ viewModel m =
         [ class_ "btn btn-primary"
         , onClick Clear
         ]
-        (null (m ^. received))
+        (null (m ^. received) || not (MS.null (m ^. msg)))
         [ disabled_ ]
         ["Clear"]
       ]

Original file line number	Diff line number	Diff line change
`@@ -196,7 +196,7 @@ viewModel m =`
`196`	`196`	`[ class_ "btn btn-primary"`
`197`	`197`	`, onClick Clear`
`198`	`198`	`]`
`199`		`- (null (m ^. received))`
	`199`	`+ (null (m ^. received) \|\| not (MS.null (m ^. msg)))`
`200`	`200`	`[ disabled_ ]`
`201`	`201`	`["Clear"]`
`202`	`202`	`]`