adds Modes module
This commit is contained in:
16
src/Modes.elm
Normal file
16
src/Modes.elm
Normal file
@@ -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
|
||||||
Reference in New Issue
Block a user