futhark-manifest 1.10.0.0 → 1.11.0.0
raw patch · 4 files changed
+13/−5 lines, 4 filesPVP ok
version bump matches the API change (PVP)
API changes (from Hackage documentation)
+ Futhark.Manifest: [arraySet] :: ArrayOps -> CFuncName
- Futhark.Manifest: ArrayOps :: CFuncName -> CFuncName -> CFuncName -> CFuncName -> CFuncName -> CFuncName -> CFuncName -> ArrayOps
+ Futhark.Manifest: ArrayOps :: CFuncName -> CFuncName -> CFuncName -> CFuncName -> CFuncName -> CFuncName -> CFuncName -> CFuncName -> ArrayOps
Files
- CHANGELOG.md +4/−0
- futhark-manifest.cabal +2/−2
- src/Futhark/Manifest.hs +6/−3
- tests/Tests.hs +1/−0
CHANGELOG.md view
@@ -1,5 +1,9 @@ # Revision history for futhark-manifest +## 1.11.0.0++* Added `arraySet`.+ ## 1.10.0.0 * Replaced `inputUnique` with `inputConsumed`.
futhark-manifest.cabal view
@@ -1,6 +1,6 @@ cabal-version: 2.4 name: futhark-manifest-version: 1.10.0.0+version: 1.11.0.0 synopsis: Definition and serialisation instances for Futhark manifests. @@ -32,7 +32,7 @@ ghc-options: -Wall -Wcompat -Wredundant-constraints -Wincomplete-record-updates -Wmissing-export-lists default-language: Haskell2010 -test-suite futhark-data-test+test-suite futhark-manifest-test default-language: Haskell2010 type: exitcode-stdio-1.0 main-is: Tests.hs
src/Futhark/Manifest.hs view
@@ -106,7 +106,8 @@ arrayNew :: CFuncName, arrayNewRaw :: CFuncName, arrayValuesRaw :: CFuncName,- arrayIndex :: CFuncName+ arrayIndex :: CFuncName,+ arraySet :: CFuncName } deriving (Eq, Ord, Show) @@ -241,7 +242,7 @@ deriving (Eq, Ord, Show) instance JSON.ToJSON ArrayOps where- toJSON (ArrayOps {arrayFree, arrayShape, arrayValues, arrayNew, arrayNewRaw, arrayValuesRaw, arrayIndex}) =+ toJSON (ArrayOps {arrayFree, arrayShape, arrayValues, arrayNew, arrayNewRaw, arrayValuesRaw, arrayIndex, arraySet}) = object [ ("free", toJSON arrayFree), ("shape", toJSON arrayShape),@@ -249,7 +250,8 @@ ("new", toJSON arrayNew), ("new_raw", toJSON arrayNewRaw), ("values_raw", toJSON arrayValuesRaw),- ("index", toJSON arrayIndex)+ ("index", toJSON arrayIndex),+ ("set", toJSON arraySet) ] instance JSON.ToJSON RecordField where@@ -387,6 +389,7 @@ <*> v .: "new_raw" <*> v .: "values_raw" <*> v .: "index"+ <*> v .: "set" instance JSON.FromJSON RecordField where parseJSON = JSON.withObject "RecordField" $ \v ->
tests/Tests.hs view
@@ -22,6 +22,7 @@ <*> arbitrary <*> arbitrary <*> arbitrary+ <*> arbitrary instance Arbitrary RecordField where arbitrary = RecordField <$> arbitrary <*> arbitrary <*> arbitrary