From 0bacd8ee167b6bab2572caafaead7a85732a10af Mon Sep 17 00:00:00 2001
From: Brian Sermons <bsermons@gmail.com>
Date: Wed, 6 Jul 2016 19:41:41 -0500
Subject: [PATCH] Fix Ordering generic instance

---
 src/Data/Generic.purs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/Data/Generic.purs b/src/Data/Generic.purs
index 75904a8..6553df9 100755
--- a/src/Data/Generic.purs
+++ b/src/Data/Generic.purs
@@ -159,9 +159,9 @@ instance genericOrdering :: Generic Ordering where
       , { sigConstructor: "Data.Ordering.GT", sigValues: [] }
       ]
   fromSpine = case _ of
-    SProd "Data.Either.LT" [] -> Just LT
-    SProd "Data.Either.EQ" [] -> Just EQ
-    SProd "Data.Either.GT" [] -> Just GT
+    SProd "Data.Ordering.LT" [] -> Just LT
+    SProd "Data.Ordering.EQ" [] -> Just EQ
+    SProd "Data.Ordering.GT" [] -> Just GT
     _ -> Nothing
 
 -- | A GenericSpine is a universal representation of an arbitrary data