Skip to content

Commit

Permalink
linting
Browse files Browse the repository at this point in the history
  • Loading branch information
spatten committed Sep 5, 2024
1 parent 0237110 commit a40b5a1
Showing 1 changed file with 7 additions and 7 deletions.
14 changes: 7 additions & 7 deletions src/App/Fossa/ManualDeps.hs
Original file line number Diff line number Diff line change
Expand Up @@ -427,24 +427,24 @@ instance FromJSON ReferencedDependency where
<$> (obj `neText` "name")
<*> pure depType
<*> (unTextLike <$$> obj .:? "version")
<* forbidNonRefDepFields obj
<* forbidLinuxFields depType obj
<* forbidEpoch depType obj
<* forbidNonRefDepFields obj
<* forbidLinuxFields depType obj
<* forbidEpoch depType obj
)

parseApkOrDebDependency :: Object -> DepType -> Parser ReferencedDependency
parseApkOrDebDependency obj depType =
LinuxApkDebDep
<$> parseLinuxDependency obj depType
<* forbidNonRefDepFields obj
<* forbidEpoch depType obj
<* forbidNonRefDepFields obj
<* forbidEpoch depType obj

parseRpmDependency :: Object -> DepType -> Parser ReferencedDependency
parseRpmDependency obj depType =
LinuxRpmDep
<$> parseLinuxDependency obj depType
<*> (unTextLike <$$> obj .:? "epoch")
<* forbidNonRefDepFields obj
<* forbidNonRefDepFields obj

parseLinuxDependency :: Object -> DepType -> Parser LinuxReferenceDependency
parseLinuxDependency obj depType =
Expand Down Expand Up @@ -511,7 +511,7 @@ instance FromJSON CustomDependency where
<*> (obj `neText` "license")
<*> obj
.:? "metadata"
<* forbidMembers "custom dependencies" ["type", "path", "url"] obj
<* forbidMembers "custom dependencies" ["type", "path", "url"] obj

instance FromJSON RemoteDependency where
parseJSON = withObject "RemoteDependency" $ \obj -> do
Expand Down

0 comments on commit a40b5a1

Please sign in to comment.