From 21650c4011b038d6aadd33af40c0b053cebb663d Mon Sep 17 00:00:00 2001 From: Artus Date: Tue, 5 Nov 2019 21:20:09 +0100 Subject: [PATCH] adds Modes module --- src/Modes.elm | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) create mode 100644 src/Modes.elm diff --git a/src/Modes.elm b/src/Modes.elm new file mode 100644 index 0000000..e7ac8c0 --- /dev/null +++ b/src/Modes.elm @@ -0,0 +1,16 @@ +module Modes exposing (..) + +type ViewMode + = Sell + | Buy + | Grab + | Add + + +canSelectIn : ViewMode -> Bool +canSelectIn mode = + case mode of + Sell -> True + Buy -> True + Grab -> True + Add -> False