tidy-up: change order in file

Author: cstml

lambda-buffers-compiler/src/LambdaBuffers/Compiler/ProtoCompat/Types.hs

@@ -207,22 +207,6 @@ data CompilerResult
   | RCompilerOutput CompilerOutput
   deriving stock (Show, Eq, Ord, Generic)
 
-instance Arbitrary a => Arbitrary (NonEmpty a) where
-  arbitrary = sized f
-    where
-      f :: (Num t, Ord t) => t -> Gen (NonEmpty a)
-      f n
-        | n <= 0 = do
-            x <- arbitrary @a
-            pure $ x :| []
-        | otherwise = do
-            x <- arbitrary
-            xs <- f (n - 1)
-            pure $ x <| xs
-
-instance Arbitrary Text where
-  arbitrary = pack <$> arbitrary
-
 instance Arbitrary SourceInfo where
   arbitrary = SourceInfo <$> arbitrary <*> arbitrary <*> arbitrary
 
@@ -344,3 +328,21 @@ instance Arbitrary CompilerResult where
       [ RCompilerFailure <$> arbitrary
       , RCompilerOutput <$> arbitrary
       ]
+
+-- Orphan Instances
+
+instance Arbitrary a => Arbitrary (NonEmpty a) where
+  arbitrary = sized f
+    where
+      f :: (Num t, Ord t) => t -> Gen (NonEmpty a)
+      f n
+        | n <= 0 = do
+            x <- arbitrary @a
+            pure $ x :| []
+        | otherwise = do
+            x <- arbitrary
+            xs <- f (n - 1)
+            pure $ x <| xs
+
+instance Arbitrary Text where
+  arbitrary = pack <$> arbitrary