Permalink
Browse files

Add Eq and Ord instances for Builder

  • Loading branch information...
bos committed May 27, 2011
1 parent 190abc0 commit adaae86382772271a91754f57d8bb2736483a247
Showing with 6 additions and 0 deletions.
  1. +6 −0 Data/Text/Lazy/Builder.hs
@@ -92,6 +92,12 @@ instance String.IsString Builder where
instance Show Builder where
show = L.unpack . toLazyText
+instance Eq Builder where
+ a == b = toLazyText a == toLazyText b
+
+instance Ord Builder where
+ a <= b = toLazyText a <= toLazyText b
+
------------------------------------------------------------------------
-- | /O(1)./ The empty @Builder@, satisfying

0 comments on commit adaae86

Please sign in to comment.