From 5faf0e5a0eec09a2f4021726f68d23202e521ccf Mon Sep 17 00:00:00 2001
From: Stefan Scheidewig <stefan.scheidewig@staffbase.com>
Date: Sun, 18 Apr 2021 22:31:17 +0200
Subject: [PATCH] Made viewMode pattern matches exhaustive
---
.../src/main/elm/Comp/ItemDetail/SingleAttachment.elm | 10 +++++-----
modules/webapp/src/main/elm/Comp/ItemDetail/Update.elm | 6 +++---
2 files changed, 8 insertions(+), 8 deletions(-)
diff --git a/modules/webapp/src/main/elm/Comp/ItemDetail/SingleAttachment.elm b/modules/webapp/src/main/elm/Comp/ItemDetail/SingleAttachment.elm
index a1e87c4d..046a36f8 100644
--- a/modules/webapp/src/main/elm/Comp/ItemDetail/SingleAttachment.elm
+++ b/modules/webapp/src/main/elm/Comp/ItemDetail/SingleAttachment.elm
@@ -115,7 +115,7 @@ attachHeader texts settings model _ attach =
SelectView _ ->
True
- _ ->
+ SimpleView ->
False
selectToggleText =
@@ -123,7 +123,7 @@ attachHeader texts settings model _ attach =
SelectView _ ->
texts.exitSelectMode
- _ ->
+ SimpleView ->
texts.selectModeTitle
noAttachmentsSelected =
@@ -364,7 +364,7 @@ menuItem texts model pos attach =
else
"fa fa-circle ml-1"
- _ ->
+ SimpleView ->
"fa fa-check-circle ml-1"
visible =
@@ -372,7 +372,7 @@ menuItem texts model pos attach =
SelectView _ ->
True
- _ ->
+ SimpleView ->
model.visibleAttach == pos
msg =
@@ -380,7 +380,7 @@ menuItem texts model pos attach =
SelectView _ ->
ToggleAttachment attach.id
- _ ->
+ SimpleView ->
SetActiveAttachment pos
in
a
diff --git a/modules/webapp/src/main/elm/Comp/ItemDetail/Update.elm b/modules/webapp/src/main/elm/Comp/ItemDetail/Update.elm
index 65e56c05..435145b4 100644
--- a/modules/webapp/src/main/elm/Comp/ItemDetail/Update.elm
+++ b/modules/webapp/src/main/elm/Comp/ItemDetail/Update.elm
@@ -281,7 +281,7 @@ update key flags inav settings msg model =
resultModel
{ model | viewMode = SelectView svm_ }
- _ ->
+ SimpleView ->
resultModel model
ToggleMenu ->
@@ -968,7 +968,7 @@ update key flags inav settings msg model =
in
resultModel model_
- _ ->
+ SimpleView ->
resultModel model
DeleteSelectedConfirmed ->
@@ -980,7 +980,7 @@ update key flags inav settings msg model =
in
resultModelCmd ( { model | attachModal = Nothing, viewMode = SimpleView }, cmd )
- _ ->
+ SimpleView ->
resultModel model
AddFilesToggle ->