answerSelected a s | a == correctAnswer s = toExploreMode $ s {
      answerButtonModes = replaceAtSameIndex a (allAnswers s) Correct (answerButtonModes s),
      scoreMap = insert (currentConfig s) newSpecificMap (scoreMap s)
      }
      where newSpecificMap = markCorrect a $ findWithDefault empty (currentConfig s) (scoreMap s)
answerSelected a s | a == correctAnswer s = toExploreMode $ s {
      answerButtonModes = replaceAtSameIndex a (allAnswers s) Correct (answerButtonModes s),
      scoreMap = insert (currentConfig s) newSpecificMap (scoreMap s)
      }
      where newSpecificMap = markCorrect a $ findWithDefault empty (currentConfig s) (scoreMap s)
answerSelected a s | a == correctAnswer s = toExploreMode $ s {
      answerButtonModes = replaceAtSameIndex a (allAnswers s) Correct (answerButtonModes s),
      scoreMap = insert (currentConfig s) newSpecificMap (scoreMap s)
      }
      where newSpecificMap = markCorrect a $ findWithDefault empty (currentConfig s) (scoreMap s)