Plan 9 from Bell Labs’s /usr/web/sources/contrib/fernan/nhc98/src/prelude/PackedString/Ord_PackedString.hs
module NHC.PackedString(Ord(..)) where import DPackedString import Eq_PackedString import PrimComparePS(primComparePS) instance Ord PackedString where compare p1 p2 = primComparePS p1 p2