Permalink
Browse files

cleanup formatting

  • Loading branch information...
1 parent cfa2e03 commit 4e050a327ba1534b223076da4531e500a9269184 @sopvop sopvop committed Jun 5, 2012
Showing with 3 additions and 3 deletions.
  1. +3 −3 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

0 comments on commit 4e050a3

Please sign in to comment.