cleanup formatting

snapframework · Jun 5, 2012 · 4e050a3 · 4e050a3
1 parent cfa2e03
commit 4e050a3
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/test/suite/Snap/Core/Tests.hs b/test/suite/Snap/Core/Tests.hs
@@ -492,9 +492,9 @@ testMethods = testCase "types/methods" $ do
 
 methodGen :: Int -> Gen Method
 methodGen n = variant n $ oneof
-              [elements [GET, HEAD, POST, PUT, DELETE
-                       , TRACE, OPTIONS, CONNECT, PATCH]
-              ,Method <$> arbitrary
+              [ elements [ GET, HEAD, POST, PUT, DELETE
+                         , TRACE, OPTIONS, CONNECT, PATCH ]
+              , Method <$> arbitrary
               ]
 
 testMethodEq :: Test