Run pre-commit

Author: wenkokke

simulation/src/Topology.hs

@@ -189,8 +189,8 @@ readLatenciesSqlite3 topology latencySqliteFile = do
         [] -> error $ printf "missing latency for connection between %s and %s" consumer.name producerName
         [[latencyInMilisecond :: Double]] ->
           atomicModifyIORef' latenciesRef $ \latencies ->
-            let latencyInSecond = latencyInMilisecond / 1000.0 in
-              (M.adjust (M.insert producerName latencyInSecond) consumer.name latencies, ())
+            let latencyInSecond = latencyInMilisecond / 1000.0
+             in (M.adjust (M.insert producerName latencyInSecond) consumer.name latencies, ())
         _otherwise -> error "impossible: SQL query for average returned multiple rows"
   readIORef latenciesRef
 

simulation/test/Test/Topology.hs

@@ -19,11 +19,12 @@ import Test.QuickCheck.Random (QCGen (..))
 import Test.Tasty (TestTree, testGroup)
 import Test.Tasty.HUnit (Assertion, assertBool, assertEqual, testCase)
 import Test.Tasty.QuickCheck (Small (..), testProperty)
-import Topology (ClusterName (..), NodeName (..), addNodeNames, augmentWithPosition, benchTopologyToSimpleTopology, defaultParams, forgetPaths, forgetPoints, forgetPosition, forgetSimpleNodeInfo, forgetUnusedFieldsInBenchTopology, grToP2PTopography, grToSimpleTopology, p2pTopologyToGr, readBenchTopology, readLatenciesSqlite3Gz, simpleTopologyToBenchTopology, simpleTopologyToGr, sortBenchTopology, readSimpleTopologyFromBenchTopologyAndLatency)
+import Topology (ClusterName (..), NodeName (..), addNodeNames, augmentWithPosition, benchTopologyToSimpleTopology, defaultParams, forgetPaths, forgetPoints, forgetPosition, forgetSimpleNodeInfo, forgetUnusedFieldsInBenchTopology, grToP2PTopography, grToSimpleTopology, p2pTopologyToGr, readBenchTopology, readLatenciesSqlite3Gz, readSimpleTopologyFromBenchTopologyAndLatency, simpleTopologyToBenchTopology, simpleTopologyToGr, sortBenchTopology)
 
 tests :: TestTree
 tests =
-  testGroup "Topology"
+  testGroup
+    "Topology"
     [ testCase "test_benchTopologyToSimpleTopologyPreservesTopology" test_benchTopologyToSimpleTopologyPreservesTopology
     , testCase "test_benchTopologyIsConnected" test_benchTopologyIsConnected
     , testProperty "prop_grToSimpleTopologyPreservesTopology" prop_grToSimpleTopologyPreservesTopology