diff --git a/src/Mtlstats/Control/EditGoalie.hs b/src/Mtlstats/Control/EditGoalie.hs index cfb980a..49938cd 100644 --- a/src/Mtlstats/Control/EditGoalie.hs +++ b/src/Mtlstats/Control/EditGoalie.hs @@ -21,8 +21,18 @@ along with this program. If not, see . module Mtlstats.Control.EditGoalie (editGoalieC) where +import Lens.Micro ((^.)) + import Mtlstats.Types -- | Controller/dispatcher for editing a 'Goalie' editGoalieC :: EditGoalieState -> Controller -editGoalieC = undefined +editGoalieC egs + | null $ egs^.egsSelectedGoalie = selectC + | otherwise = editC + +selectC :: Controller +selectC = undefined + +editC :: Controller +editC = undefined