Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

cleanup formatting

  • Loading branch information...
commit 4e050a327ba1534b223076da4531e500a9269184 1 parent cfa2e03
Leonid Onokhov sopvop authored
Showing with 3 additions and 3 deletions.
  1. +3 −3 test/suite/Snap/Core/Tests.hs
6 test/suite/Snap/Core/Tests.hs
View
@@ -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
Please sign in to comment.
Something went wrong with that request. Please try again.