charToInteger [notChar] = throwError $ TypeMismatch "character" notChar
charToInteger [notChar] = throwError $ TypeMismatch "character" notChar
charToInteger [notChar] = throwError $ TypeMismatch "character" notChar