Ignore context when comparing strings

This commit is contained in:
Ken Micklas 2018-11-17 14:57:24 -05:00
parent ff16557e34
commit a7bdda4912

View file

@ -255,7 +255,7 @@ valueEq :: MonadThunk (NValue m) (NThunk m) m
=> NValue m -> NValue m -> m Bool
valueEq = curry $ \case
(NVConstant lc, NVConstant rc) -> pure $ lc == rc
(NVStr ls, NVStr rs) -> pure (ls == rs)
(NVStr ls, NVStr rs) -> pure $ principledStringIgnoreContext ls == principledStringIgnoreContext rs
(NVStr ns, NVConstant NNull) -> pure (hackyStringIgnoreContextMaybe ns == Just "")
(NVConstant NNull, NVStr ns) -> pure (Just "" == hackyStringIgnoreContextMaybe ns)
(NVList ls, NVList rs) -> alignEqM thunkEq ls rs