Fix formatting

fossas · Dec 13, 2023 · dca9a22 · dca9a22
1 parent 93b57ba
commit dca9a22
Show file tree

Hide file tree

Showing 2 changed files with 20 additions and 20 deletions.
diff --git a/src/App/Fossa/VSI/Types.hs b/src/App/Fossa/VSI/Types.hs
@@ -78,11 +78,11 @@ instance FromJSON Locator where
   parseJSON = withObject "Locator" $ \obj -> do
     Locator
       <$> obj
-      .: "fetcher"
+        .: "fetcher"
       <*> obj
-      .: "package"
+        .: "package"
       <*> obj
-      .: "revision"
+        .: "revision"
 
 parseLocator :: (ToText a) => a -> Either LocatorParseError Locator
 parseLocator = validateLocator . Srclib.parseLocator . toText

diff --git a/test/App/Fossa/VSI/TypesSpec.hs b/test/App/Fossa/VSI/TypesSpec.hs
@@ -72,8 +72,8 @@ invalidLocatorInference =
 
 expectedEmptyLocatorInference :: VsiExportedInferencesBody
 expectedEmptyLocatorInference =
-  VsiExportedInferencesBody
-    $ Map.fromList
+  VsiExportedInferencesBody $
+    Map.fromList
       [
         ( VsiFilePath "/foo/bar.h"
         , VsiInference Nothing
@@ -163,21 +163,21 @@ vsiTypesSpec = describe "VSI Types" $ do
 
 generateRulesSpec :: Spec
 generateRulesSpec = describe "generateRules" $ do
-  it "Generates a rule correctly"
-    $ generateRules expectedSingleInference
-    `shouldBe` singleRuleExpected
-  it "Reduces rules to common prefixes"
-    $ generateRules' commonPrefixInferences
-    `shouldBe` singleRuleExpected
-  it "Reports multiple rules for a project"
-    $ generateRules' multipleInferences
-    `shouldMatchList` multipleRulesExpected
-  it "Reports distinct locators for nested projects"
-    $ generateRules' nestedProjectInferences
-    `shouldMatchList` nestedProjectRulesExpected
-  it "Reports root rules correctly"
-    $ generateRules' rootRuleInferences
-    `shouldMatchList` rootRuleExpected
+  it "Generates a rule correctly" $
+    generateRules expectedSingleInference
+      `shouldBe` singleRuleExpected
+  it "Reduces rules to common prefixes" $
+    generateRules' commonPrefixInferences
+      `shouldBe` singleRuleExpected
+  it "Reports multiple rules for a project" $
+    generateRules' multipleInferences
+      `shouldMatchList` multipleRulesExpected
+  it "Reports distinct locators for nested projects" $
+    generateRules' nestedProjectInferences
+      `shouldMatchList` nestedProjectRulesExpected
+  it "Reports root rules correctly" $
+    generateRules' rootRuleInferences
+      `shouldMatchList` rootRuleExpected
   where
     generateRules' :: [(VsiFilePath, VsiInference)] -> [VsiRule]
     generateRules' = generateRules . VsiExportedInferencesBody . Map.fromList