Swap Result and Testable for better readme flow

Author: garyb

README.md

@@ -60,23 +60,6 @@ Test a property, returning all test results as an array.
 The first argument is the _random seed_ to be passed to the random generator.
 The second argument is the number of tests to run.
 
-#### `Result`
-
-``` purescript
-data Result
-  = Success 
-  | Failed String
-```
-
-The result of a test: success or failure (with an error message).
-
-#### `showResult`
-
-``` purescript
-instance showResult :: Show Result
-```
-
-
 #### `Testable`
 
 ``` purescript
@@ -112,6 +95,23 @@ instance testableFunction :: (Arbitrary t, Testable prop) => Testable (t -> prop
 ```
 
 
+#### `Result`
+
+``` purescript
+data Result
+  = Success 
+  | Failed String
+```
+
+The result of a test: success or failure (with an error message).
+
+#### `showResult`
+
+``` purescript
+instance showResult :: Show Result
+```
+
+
 #### `(<?>)`
 
 ``` purescript

src/Test/QuickCheck.purs

@@ -70,13 +70,6 @@ quickCheckPure s = quickCheckPure' {newSeed: s, size: 10} where
       rest <- go (n - 1)
       return $ result : rest
 
--- | The result of a test: success or failure (with an error message).
-data Result = Success | Failed String
-
-instance showResult :: Show Result where
-  show Success = "Success"
-  show (Failed msg) = "Failed: " ++ msg
-
 -- | The `Testable` class represents _testable properties_.
 -- |
 -- | A testable property is a function of zero or more `Arbitrary` arguments,
@@ -98,6 +91,13 @@ instance testableFunction :: (Arbitrary t, Testable prop) => Testable (t -> prop
     t <- arbitrary
     test (f t)
 
+-- | The result of a test: success or failure (with an error message).
+data Result = Success | Failed String
+
+instance showResult :: Show Result where
+  show Success = "Success"
+  show (Failed msg) = "Failed: " ++ msg
+
 -- | This operator attaches an error message to a failed test.
 -- |
 -- | For example: