1 files changed, 9 insertions, 9 deletions

diff --git a/src/Wavefront/Types.hs b/src/Wavefront/Types.hs
index 564f5d5..2e49ba9 100644
--- a/src/Wavefront/Types.hs
+++ b/src/Wavefront/Types.hs
@@ -84,7 +84,7 @@ data Location = Location {
   , locY :: {-# UNPACK #-} !Float
   , locZ :: {-# UNPACK #-} !Float
   , locW :: {-# UNPACK #-} !Float
-  } deriving (Eq,Show)
+  } deriving (Eq,Ord,Show)
 
 -- | A texture coordinate is a 3D-floating vector. You can access to its
 -- components by pattern matching on them:
@@ -96,7 +96,7 @@ data TexCoord = TexCoord {
     texcoordR :: {-# UNPACK #-} !Float
   , texcoordS :: {-# UNPACK #-} !Float
   , texcoordT :: {-# UNPACK #-} !Float
-  } deriving (Eq,Show)
+  } deriving (Eq,Ord,Show)
 
 
 -- | A normal is a 3-floating vector. You can access to its components by
@@ -109,13 +109,13 @@ data Normal = Normal {
     norX :: {-# UNPACK #-} !Float
   , norY :: {-# UNPACK #-} !Float
   , norZ :: {-# UNPACK #-} !Float
-  } deriving (Eq,Show)
+  } deriving (Eq,Ord,Show)
 
 -- | A point is a single index that references the locations. It’s a canonical
 -- type that truly represents a polygonal point.
 data Point = Point {
     pointLocIndex :: {-# UNPACK #-} !Int
-  } deriving (Eq,Show)
+  } deriving (Eq,Ord,Show)
 
 -- | A line index is a pair of indices. @'LineIndex' vi vti@. @vi@ references
 -- the locations and @vti@ indexes the texture coordinates. If @vti ==
@@ -124,14 +124,14 @@ data Point = Point {
 data LineIndex = LineIndex {
     lineLocIndex      :: {-# UNPACK #-} !Int
   , lineTexCoordIndex :: !(Maybe Int)
-  } deriving (Eq,Show)
+  } deriving (Eq,Ord,Show)
 
 -- | A line gathers two line indices accessible by pattern matching or
 -- 'lineIndexA' and 'lineIndexB'.
 data Line = Line {
     lineIndexA :: LineIndex
   , lineIndexB :: LineIndex
-  } deriving (Eq,Show)
+  } deriving (Eq,Ord,Show)
 
 -- | A face index is a triplet of indices. @'FaceIndex' vi vti vni@ is a face
 -- that indexes the locations with @vi@, the texture coordinates with @vti@ and
@@ -142,11 +142,11 @@ data FaceIndex = FaceIndex {
     faceLocIndex      :: {-# UNPACK #-} !Int
   , faceTexCoordIndex :: !(Maybe Int)
   , faceNorIndex      :: !(Maybe Int)
-  } deriving (Eq,Show)
+  } deriving (Eq,Ord,Show)
 
 -- | A face gathers several 'FaceIndex' to build up faces. It has a least three
 -- vertices
-data Face = Face FaceIndex FaceIndex FaceIndex [FaceIndex] deriving (Eq,Show)
+data Face = Face FaceIndex FaceIndex FaceIndex [FaceIndex] deriving (Eq,Ord,Show)
 
 pattern Triangle :: FaceIndex -> FaceIndex -> FaceIndex -> Face
 pattern Triangle a b c = Face a b c []
@@ -164,4 +164,4 @@ data Element a = Element {
   , elMtl            :: Maybe Text
   , elSmoothingGroup :: Natural
   , elValue          :: a
-  } deriving (Eq,Show,Functor)
+  } deriving (Eq,Ord,Show,Functor)