Put :: on the same line as the function name

Author: jorisdral

bench/micro/Bench/Database/LSMTree/Internal/Index.hs

@@ -112,8 +112,8 @@ searchBenchmarkable index = whnf $ foldl' (\ _ key -> rnf (search key index)) ()
 -- ** Incremental construction
 
 -- | Constructs append operations to be used in index construction.
-incrementalConstructionAppends
-    :: Int      -- ^ Number of keys used in the construction
+incrementalConstructionAppends ::
+       Int      -- ^ Number of keys used in the construction
     -> [Append] -- ^ Constructed append operations
 incrementalConstructionAppends = appendsForIndexCompact
 

test/Test/Database/LSMTree/Internal/Snapshot/Codec/Golden.hs

@@ -55,8 +55,8 @@ handleOutputFiles :: TestTree -> TestTree
 handleOutputFiles = Tasty.localOption Au.OnPass
 
 -- | Internally, the function will infer the correct filepath names.
-snapshotCodecTest
-  :: String -- ^ Name of the test
+snapshotCodecTest ::
+     String -- ^ Name of the test
   -> SnapshotMetaData -- ^ Data to be serialized
   -> TestTree
 snapshotCodecTest name datum =