cleanup TODO.md a little

aoc2023/Day2.newt

@@ -37,7 +37,7 @@ parseColor line = case split line " " of
 -- FIXME implicit isn't being solved in time here.
 parseDraw : String -> Either String Draw
 parseDraw line =
-  case mapM {Either String} parseColor $ split line ", " of
+  case mapM parseColor $ split line ", " of
     Right parts => Right $ foldl maxd (0,0,0) parts
     Left err => Left err
 
@@ -47,7 +47,7 @@ parseGame line =
     | _ => Left $ "No colon in " ++ line in
   let ("Game" :: ns :: Nil) = split a " "
     | _ => Left $ "No Game" in
-  let (Right parts) = mapM {Either String} parseDraw $ split b "; "
+  let (Right parts) = mapM parseDraw $ split b "; "
     | Left err => Left err in
   Right $ MkGame (toInt ns) parts