From 6287f5fe9c4a6ba74cb8387dd3a52d654679e927 Mon Sep 17 00:00:00 2001
From: James Hillyerd <james@hillyerd.com>
Date: Tue, 1 Jan 2019 13:48:41 -0800
Subject: [PATCH] ui: Truncate monitor after 500 messages, closes #87

---
 ui/src/Page/Monitor.elm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ui/src/Page/Monitor.elm b/ui/src/Page/Monitor.elm
index 7410766..d892c13 100644
--- a/ui/src/Page/Monitor.elm
+++ b/ui/src/Page/Monitor.elm
@@ -49,7 +49,7 @@ update msg model =
         MessageReceived value ->
             case D.decodeValue (MessageHeader.decoder |> D.at [ "detail" ]) value of
                 Ok header ->
-                    ( { model | messages = header :: model.messages }
+                    ( { model | messages = header :: List.take 500 model.messages }
                     , Cmd.none
                     )