field is optional

fossas · Aug 15, 2024 · 836c54b · 836c54b
1 parent 3a149b2
commit 836c54b
Show file tree

Hide file tree

Showing 5 changed files with 7 additions and 7 deletions.
diff --git a/src/Strategy/Python/Poetry/Common.hs b/src/Strategy/Python/Poetry/Common.hs
@@ -44,7 +44,7 @@ import Strategy.Python.Poetry.PyProject (
 
 -- | Gets build backend of pyproject.
 getPoetryBuildBackend :: PyProject -> Maybe Text
-getPoetryBuildBackend project = buildBackend <$> pyprojectBuildSystem project
+getPoetryBuildBackend project = buildBackend =<< pyprojectBuildSystem project
 
 -- | Supported pyproject dependencies.
 supportedPyProjectDep :: PoetryDependency -> Bool

diff --git a/src/Strategy/Python/Poetry/PyProject.hs b/src/Strategy/Python/Poetry/PyProject.hs
@@ -126,15 +126,15 @@ data PyProjectMetadata = PyProjectMetadata
   deriving (Show, Eq, Ord)
 
 newtype PyProjectBuildSystem = PyProjectBuildSystem
-  { buildBackend :: Text
+  { buildBackend :: Maybe Text
   }
   deriving (Show, Eq, Ord)
 
 instance Toml.Schema.FromValue PyProjectBuildSystem where
   fromValue =
     Toml.Schema.parseTableFromValue $
       PyProjectBuildSystem
-        <$> Toml.Schema.reqKey "build-backend"
+        <$> Toml.Schema.optKey "build-backend"
 
 data PyProjectPoetry = PyProjectPoetry
   { name :: Maybe Text

diff --git a/test/Python/Poetry/CommonSpec.hs b/test/Python/Poetry/CommonSpec.hs
@@ -40,7 +40,7 @@ import Toml.Schema qualified
 expectedPyProject :: PyProject
 expectedPyProject =
   PyProject
-    { pyprojectBuildSystem = Just $ PyProjectBuildSystem{buildBackend = "poetry.core.masonry.api"}
+    { pyprojectBuildSystem = Just $ PyProjectBuildSystem{buildBackend = Just "poetry.core.masonry.api"}
     , pyprojectProject = Nothing
     , pyprojectTool =
         Just $

diff --git a/test/Python/Poetry/PyProjectSpec.hs b/test/Python/Poetry/PyProjectSpec.hs
@@ -54,7 +54,7 @@ shouldParseInto = parseMatch parseConstraintExpr
 expectedPyProject :: PyProject
 expectedPyProject =
   PyProject
-    { pyprojectBuildSystem = Just $ PyProjectBuildSystem{buildBackend = "poetry.core.masonry.api"}
+    { pyprojectBuildSystem = Just $ PyProjectBuildSystem{buildBackend = Just "poetry.core.masonry.api"}
     , pyprojectProject = Nothing
     , pyprojectTool =
         Just $
@@ -90,7 +90,7 @@ expectedPyProject =
 expectedPyProject3 :: PyProject
 expectedPyProject3 =
   PyProject
-    { pyprojectBuildSystem = Just $ PyProjectBuildSystem{buildBackend = "poetry.core.masonry.api"}
+    { pyprojectBuildSystem = Just $ PyProjectBuildSystem{buildBackend = Just "poetry.core.masonry.api"}
     , pyprojectProject = Nothing
     , pyprojectTool =
         Just $

diff --git a/test/Python/PoetrySpec.hs b/test/Python/PoetrySpec.hs
@@ -39,7 +39,7 @@ newPoetryLock pkgs = PoetryLock pkgs $ PoetryMetadata "some-version" "some-hash"
 candidatePyProject :: PyProject
 candidatePyProject =
   PyProject
-    { pyprojectBuildSystem = Just $ PyProjectBuildSystem "poetry.core.masonry.api"
+    { pyprojectBuildSystem = Just $ PyProjectBuildSystem{buildBackend = Just "poetry.core.masonry.api"}
     , pyprojectProject = Nothing
     , pyprojectTool =
         Just $