From 2fae98f452a5b4bb0393fdd5ec12fa43efc3a301 Mon Sep 17 00:00:00 2001
From: Nicolas Perriault <nicolas@perriault.net>
Date: Wed, 10 May 2017 09:46:04 +0200
Subject: [PATCH] Refactor error updates.

---
 src/Update/Error.elm | 8 +++++++-
 src/Update/Main.elm  | 3 ++-
 2 files changed, 9 insertions(+), 2 deletions(-)

diff --git a/src/Update/Error.elm b/src/Update/Error.elm
index b27739b..495ae07 100644
--- a/src/Update/Error.elm
+++ b/src/Update/Error.elm
@@ -1,5 +1,6 @@
-module Update.Error exposing (addErrorNotification)
+module Update.Error exposing (addErrorNotification, cleanErrors)
 
+import Time exposing (Time)
 import Types exposing (..)
 
 
@@ -10,3 +11,8 @@ addErrorNotification message model =
             { message = message, time = model.currentTime }
     in
         error :: model.errors
+
+
+cleanErrors : Time -> List ErrorNotification -> List ErrorNotification
+cleanErrors currentTime errors =
+    List.filter (\{ time } -> currentTime - time <= 10000) errors
diff --git a/src/Update/Main.elm b/src/Update/Main.elm
index f848b6e..c8c2d01 100644
--- a/src/Update/Main.elm
+++ b/src/Update/Main.elm
@@ -5,6 +5,7 @@ import List.Extra exposing (removeAt)
 import Mastodon.Model exposing (..)
 import Types exposing (..)
 import Update.Draft
+import Update.Error
 import Update.Mastodon
 import Update.Timeline
 import Update.Viewer
@@ -36,7 +37,7 @@ update msg model =
         Tick newTime ->
             { model
                 | currentTime = newTime
-                , errors = List.filter (\{ time } -> model.currentTime - time <= 10000) model.errors
+                , errors = Update.Error.cleanErrors newTime model.errors
             }
                 ! []