Expr.Types: mv more instances into Orphans section

Author: Anton-Latukha

src/Nix/Expr/Types.hs

@@ -62,6 +62,31 @@ import           Instances.TH.Lift              ()  -- importing Lift Text fo GH
 
 -- Upstreaming so far was not pursued.
 
+instance Serialise Pos where
+  encode = Serialise.encode . unPos
+  decode = mkPos <$> Serialise.decode
+
+instance Serialise SourcePos where
+  encode (SourcePos f l c) =
+    Serialise.encode f <>
+    Serialise.encode l <>
+    Serialise.encode c
+  decode =
+    liftA3 SourcePos
+      Serialise.decode
+      Serialise.decode
+      Serialise.decode
+
+instance Hashable Pos where
+  hashWithSalt salt = hashWithSalt salt . unPos
+
+instance Hashable SourcePos where
+  hashWithSalt salt (SourcePos f l c) =
+    salt
+      `hashWithSalt` f
+      `hashWithSalt` l
+      `hashWithSalt` c
+
 instance Binary Pos where
   put = Binary.put . unPos
   get = mkPos <$> Binary.get
@@ -223,31 +248,6 @@ data NKeyName r
     , Show, Read, Hashable
     )
 
-instance Serialise Pos where
-  encode = Serialise.encode . unPos
-  decode = mkPos <$> Serialise.decode
-
-instance Serialise SourcePos where
-  encode (SourcePos f l c) =
-    Serialise.encode f <>
-    Serialise.encode l <>
-    Serialise.encode c
-  decode =
-    liftA3 SourcePos
-      Serialise.decode
-      Serialise.decode
-      Serialise.decode
-
-instance Hashable Pos where
-  hashWithSalt salt = hashWithSalt salt . unPos
-
-instance Hashable SourcePos where
-  hashWithSalt salt (SourcePos f l c) =
-    salt
-      `hashWithSalt` f
-      `hashWithSalt` l
-      `hashWithSalt` c
-
 instance NFData1 NKeyName where
   liftRnf _ (StaticKey  !_            ) = ()
   liftRnf _ (DynamicKey (Plain !_)    ) = ()