prompt for other team

src/Mtlstats/Prompt.hs

@@ -26,6 +26,7 @@ module Mtlstats.Prompt (
   strPrompt,
   numPrompt,
   -- * Individual prompts
+  otherTeamPrompt,
   homeScorePrompt,
   awayScorePrompt
 ) where
@@ -92,6 +93,10 @@ numPrompt pStr act = Prompt
   , promptFunctionKey = const $ return ()
   }
 
+otherTeamPrompt :: Prompt
+otherTeamPrompt = strPrompt "Other team: " $
+  modify . (progMode . otherTeamL .~)
+
 homeScorePrompt :: Prompt
 homeScorePrompt = numPrompt "Home score: " $
   modify . (progMode . homeScoreL ?~)