unpackStr notString  = throwError $ TypeMismatch "string" notString
unpackStr notString  = throwError $ TypeMismatch "string" notString
unpackStr notString  = throwError $ TypeMismatch "string" notString