From cc377492bb091bd2b2ba2dee76154bbb8a9674a6 Mon Sep 17 00:00:00 2001 From: Jonathan Lamothe Date: Wed, 4 Sep 2019 23:16:54 -0400 Subject: [PATCH] removed unused modules --- src/Mtlstats/Events.hs | 89 ------------------------------------------ src/Mtlstats/UI.hs | 69 -------------------------------- 2 files changed, 158 deletions(-) delete mode 100644 src/Mtlstats/Events.hs delete mode 100644 src/Mtlstats/UI.hs diff --git a/src/Mtlstats/Events.hs b/src/Mtlstats/Events.hs deleted file mode 100644 index 2ee2503..0000000 --- a/src/Mtlstats/Events.hs +++ /dev/null @@ -1,89 +0,0 @@ -{- | - -mtlstats -Copyright (C) 2019 Rhéal Lamothe - - -This program is free software: you can redistribute it and/or modify -it under the terms of the GNU General Public License as published by -the Free Software Foundation, either version 3 of the License, or (at -your option) any later version. - -This program is distributed in the hope that it will be useful, but -WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -General Public License for more details. - -You should have received a copy of the GNU General Public License -along with this program. If not, see . - --} - -{-# LANGUAGE LambdaCase #-} - -module Mtlstats.Events (handleEvent) where - -import Control.Monad (when) -import Control.Monad.Trans.State (gets, modify) -import Data.Char (toUpper) -import Lens.Micro ((^.), (.~)) -import Lens.Micro.Extras (view) -import qualified UI.NCurses as C - -import Mtlstats.Actions -import Mtlstats.Menu -import Mtlstats.Prompt -import Mtlstats.Types - --- | Event handler -handleEvent - :: C.Event - -- ^ The event being handled - -> Action Bool -handleEvent e = gets (view progMode) >>= \case - MainMenu -> menuHandler mainMenu e - NewSeason -> menuHandler newSeasonMenu e >> return True - NewGame gs - | null $ gs^.gameYear -> do - promptHandler gameYearPrompt e - return True - | null $ gs^.gameMonth -> do - menuHandler gameMonthMenu e - return True - | null $ gs^.gameDay -> do - promptHandler gameDayPrompt e - modify validateGameDate - return True - | null $ gs^.gameType -> do - menuHandler gameTypeMenu e - return True - | null $ gs^.otherTeam -> do - promptHandler otherTeamPrompt e - return True - | null $ gs^.homeScore -> do - promptHandler homeScorePrompt e - return True - | null $ gs^.awayScore -> do - promptHandler awayScorePrompt e - modify overtimeCheck - modify updateGameStats - return True - | null $ gs^.overtimeFlag -> do - overtimePrompt e - >>= modify . (progMode.gameStateL.overtimeFlag .~) - modify updateGameStats - return True - | otherwise -> do - when - (case e of - C.EventCharacter _ -> True - C.EventSpecialKey _ -> True - _ -> False) $ - modify $ progMode .~ MainMenu - return True - -overtimePrompt :: C.Event -> Action (Maybe Bool) -overtimePrompt (C.EventCharacter c) = case toUpper c of - 'Y' -> return (Just True) - 'N' -> return (Just False) - _ -> return Nothing diff --git a/src/Mtlstats/UI.hs b/src/Mtlstats/UI.hs deleted file mode 100644 index 0bffbcd..0000000 --- a/src/Mtlstats/UI.hs +++ /dev/null @@ -1,69 +0,0 @@ -{- | - -mtlstats -Copyright (C) 2019 Rhéal Lamothe - - -This program is free software: you can redistribute it and/or modify -it under the terms of the GNU General Public License as published by -the Free Software Foundation, either version 3 of the License, or (at -your option) any later version. - -This program is distributed in the hope that it will be useful, but -WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -General Public License for more details. - -You should have received a copy of the GNU General Public License -along with this program. If not, see . - --} - -module Mtlstats.UI (draw) where - -import Control.Monad (void) -import Lens.Micro ((^.)) -import qualified UI.NCurses as C - -import Mtlstats.Format -import Mtlstats.Menu -import Mtlstats.Prompt -import Mtlstats.Report -import Mtlstats.Types - --- | Drawing function -draw :: ProgState -> C.Curses () -draw s = do - void $ C.setCursorMode C.CursorInvisible - w <- C.defaultWindow - cm <- C.updateWindow w $ do - C.clear - case s ^. progMode of - MainMenu -> drawMenu mainMenu - NewSeason -> drawMenu newSeasonMenu - NewGame gs - | null $ gs^.gameYear -> header s >> drawPrompt gameYearPrompt s - | null $ gs^.gameMonth -> header s >> drawMenu gameMonthMenu - | null $ gs^.gameDay -> header s >> drawPrompt gameDayPrompt s - | null $ gs^.gameType -> header s >> drawMenu gameTypeMenu - | null $ gs^.otherTeam -> header s >> drawPrompt otherTeamPrompt s - | null $ gs^.homeScore -> header s >> drawPrompt homeScorePrompt s - | null $ gs^.awayScore -> header s >> drawPrompt awayScorePrompt s - | null $ gs^.overtimeFlag -> header s >> overtimePrompt - | otherwise -> showReport s - C.render - void $ C.setCursorMode cm - -header :: ProgState -> C.Update () -header s = C.drawString $ - "*** GAME " ++ padNum 2 (s^.database.dbGames) ++ " ***\n" - -overtimePrompt :: C.Update C.CursorMode -overtimePrompt = do - C.drawString "Did the game go into overtime? (Y/N)" - return C.CursorInvisible - -showReport :: ProgState -> C.Update C.CursorMode -showReport s = do - C.drawString $ report 72 s - return C.CursorInvisible