Add Ord instance for Data.Text

Author: bergmark

fay-base/src/Data/Text.hs

@@ -1,3 +1,4 @@
+{-# OPTIONS -fno-warn-missing-methods #-}
 {-# LANGUAGE DeriveDataTypeable #-}
 {-# LANGUAGE EmptyDataDecls #-}
 {-# LANGUAGE NoImplicitPrelude #-}
@@ -62,14 +63,15 @@ module Data.Text
 import Data.Data
 import FFI
 import Data.Nullable (fromNullable)
-import Prelude (Eq,String,Int,Bool,Char,Maybe,Double,error)
+import Prelude (Eq,String,Int,Bool,Char,Maybe,Double,Ord,error)
 import qualified "base" Data.String as B (IsString (..))
 
 -- | A space efficient, packed, unboxed Unicode text type.
 data Text
 deriving instance Eq Text
 deriving instance Data Text
 deriving instance Typeable Text
+instance Ord Text
 instance B.IsString Text where fromString = error "the method fromString can never be called"
 
 -- | O(n) The intercalate function takes a Text and a list of Texts and

tests/TextOrd.hs

@@ -0,0 +1,13 @@
+{-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE PackageImports #-}
+{-# LANGUAGE RebindableSyntax #-}
+module TextOrd where
+
+import "fay-base" Data.Text
+
+main :: Fay ()
+main = do
+  print ("abc" < ("c"::Text))
+  print ("a" < ("bcd"::Text))
+  print ("bcd" > ("a"::Text))
+  print ("bcd" < ("a"::Text))

tests/TextOrd.res

@@ -0,0 +1,4 @@
+true
+true
+true
+false