timjb/halma

Found

do sendI18nMsg hlCantStartNewRoundBecauseNoMatch

Perhaps

sendI18nMsg hlCantStartNewRoundBecauseNoMatch

Found

do sendI18nMsg (flip hlCantUndo (Just CantUndoNoGame))

Perhaps

sendI18nMsg (flip hlCantUndo (Just CantUndoNoGame))

Found

import Control.Monad ( void, when )
import Control.Monad ( unless )

Perhaps

import Control.Monad ( void, when, unless )

Found

do sendI18nMsg (flip hlCantUndo Nothing)

Perhaps

sendI18nMsg (flip hlCantUndo Nothing)

Found

(CmdCall{cmdCallName = cmd})

Perhaps

CmdCall{cmdCallName = cmd}

Found

do sendMsg $
     textMsg $
       "Can't identify sender of move command " <>
         showMoveCmd moveCmd <> "!"

Perhaps

sendMsg $
  textMsg $
    "Can't identify sender of move command " <>
      showMoveCmd moveCmd <> "!"

Found

{-# LANGUAGE LambdaCase #-}

Perhaps

Found

do handleAfterMove match game afterMove

Perhaps

handleAfterMove match game afterMove

Found

(flip hlCantUndo (Just CantUndoNoGame))

Perhaps

(`hlCantUndo` (Just CantUndoNoGame))

Found

(flip hlAIMove moveByAi)

Perhaps

(`hlAIMove` moveByAi)

Found

let match' = match{matchCurrentGame = Just game'}
modify $ \ chat -> chat{hcMatchState = MatchRunning match'}
sendMatchState

Perhaps

Combine with halma-telegram-bot/src/Game/Halma/TelegramBot/Controller.hs:228:7

Found

(flip hlUnrecognizedCmdMsg call)

Perhaps

(`hlUnrecognizedCmdMsg` call)

Found

(flip hlNotYourTurn notYourTurnInfo)

Perhaps

(`hlNotYourTurn` notYourTurnInfo)

Found

(flip hlCantUndo Nothing)

Perhaps

(`hlCantUndo` Nothing)