/usr/web/sources/contrib/fernan/nhc98/src/prelude/PackedString/Eq_PackedString.hs

Plan 9 from Bell Labs’s /usr/web/sources/contrib/fernan/nhc98/src/prelude/PackedString/Eq_PackedString.hs


module NHC.PackedString(Eq(..)) where

import DPackedString
import PrimComparePS(primComparePS)

instance Eq PackedString where
    p1 == p2 = primComparePS p1 p2 == EQ
    p1 /= p2 = primComparePS p1 p2 /= EQ

(Return to Plan 9 Home Page)