From 017a9402fe6057d6637ec664718dca9f70a50bad Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Frederik=20Hangh=C3=B8j=20Iversen?= <fhi.1990@gmail.com>
Date: Fri, 18 Oct 2019 20:18:01 +0200
Subject: [PATCH] Use orphan Ord instance for Value

---
 src/Data/Language/Ruby/AST.hs | 31 ++++---------------------------
 1 file changed, 4 insertions(+), 27 deletions(-)

diff --git a/src/Data/Language/Ruby/AST.hs b/src/Data/Language/Ruby/AST.hs
index 4ac6ee7..cf9e59d 100644
--- a/src/Data/Language/Ruby/AST.hs
+++ b/src/Data/Language/Ruby/AST.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE DuplicateRecordFields, OverloadedLists, StrictData #-}
-{-# OPTIONS_GHC -Wall #-}
+{-# OPTIONS_GHC -Wall -Wno-orphans #-}
 module Data.Language.Ruby.AST
   ( Begin(..)
   , Statement(..)
@@ -30,8 +30,6 @@ import Frelude hiding (String)
 import qualified Frelude
 import qualified Data.Aeson.Types as Aeson
 import qualified Data.Vector as Vector
-import Data.Coerce
-import Data.Word
 
 kebabCase :: Frelude.String -> Frelude.String
 kebabCase = Aeson.camelTo2 '-'
@@ -166,8 +164,7 @@ instance FromJSON Array where
 newtype Anything = Anything Value
 
 deriving stock instance Show Anything
-instance Ord Anything where
-  compare = coerce compareValue
+deriving stock instance Ord Anything
 deriving stock instance Eq Anything
 deriving stock instance Generic Anything
 instance ToJSON Anything where
@@ -369,28 +366,8 @@ instance FromJSON Defs where
       <*> parseMaybe begin
     _ -> empty
 
-compareValue :: Aeson.Value -> Aeson.Value -> Ordering
-compareValue v0 v1 = case (v0, v1) of
-  (Object o0, Object o1) -> mconcat $ zipWith go (toList o0) (toList o1)
-    where
-    go (t0, v0') (t1, v1') = compare t0 t1 <> compareValue v0' v1'
-  (Aeson.Array a0, Aeson.Array a1)      -> mconcat $ zipWith compareValue (toList a0) (toList a1)
-  (Aeson.String s0, Aeson.String s1)    -> compare s0 s1
-  (Number n0, Number n1)    -> compare n0 n1
-  (Bool b0, Bool b1)        -> compare b0 b1
-  (Null, Null)              -> EQ
-  _                         -> (compare `on` cons) v0 v1
-    where
-    -- Enumerate constructors.
-    cons :: Aeson.Value -> Word8
-    cons = \case
-      Object{} -> 0
-      Aeson.Array{}  -> 1
-      Aeson.String{} -> 2
-      Number{} -> 3
-      Bool{}   -> 4
-      Null{}   -> 5
-
+deriving stock instance Ord Aeson.Value
+  
 newtype Sym = Sym Atom
 
 deriving stock instance Show Sym