diff --git a/rfc.cabal b/rfc.cabal
--- a/rfc.cabal
+++ b/rfc.cabal
@@ -1,5 +1,5 @@
 name:                rfc
-version:             0.0.0.3
+version:             0.0.0.4
 synopsis:            Robert Fischer's Common library, for all Robert Fischer's common needs.
 description:         See README.md
 homepage:            https://github.com/RobertFischer/rfc#README.md
diff --git a/src/RFC/Data/ListMoveDirection.hs b/src/RFC/Data/ListMoveDirection.hs
--- a/src/RFC/Data/ListMoveDirection.hs
+++ b/src/RFC/Data/ListMoveDirection.hs
@@ -8,7 +8,7 @@
 import Data.Aeson as Aeson
 
 data ListMoveDirection = TowardsHead | TowardsTail
-  deriving (Show,Eq,Generic,Typeable)
+  deriving (Show,Eq,Ord,Generic,Typeable)
 
 instance FromJSON ListMoveDirection where
     parseJSON = withText "ListMoveDirection" $ \t -> do