string2Symbol [notString] = throwError $ TypeMismatch "string" notString
string2Symbol [notString] = throwError $ TypeMismatch "string" notString
string2Symbol [notString] = throwError $ TypeMismatch "string" notString