printMovesFromHere :: (GameM m g, Show (Move g), DiscreteGame g) => m ()
printMovesFromHere = do
  l <- location
  (printStrLn . show . movesFrom) l

-- | Print a payoff or nothing.
printMovesFromHere :: (GameM m g, Show (Move g), DiscreteGame g) => m ()
printMovesFromHere = do
  l <- location
  (printStrLn . show . movesFrom) l

-- | Print a payoff or nothing.
printMovesFromHere = do
  l <- location
  (printStrLn . show . movesFrom) l

-- | Print a payoff or nothing.