futhark-manifest 1.5.0.0 → 1.6.0.0
raw patch · 4 files changed
+29/−7 lines, 4 filesPVP ok
version bump matches the API change (PVP)
API changes (from Hackage documentation)
+ Futhark.Manifest: [opaqueArrayNew] :: OpaqueArrayOps -> CFuncName
+ Futhark.Manifest: [opaqueArraySet] :: OpaqueArrayOps -> CFuncName
+ Futhark.Manifest: [recordArrayNew] :: RecordArrayOps -> CFuncName
+ Futhark.Manifest: [recordArraySet] :: RecordArrayOps -> CFuncName
- Futhark.Manifest: OpaqueArrayOps :: Int -> TypeName -> CFuncName -> CFuncName -> OpaqueArrayOps
+ Futhark.Manifest: OpaqueArrayOps :: Int -> TypeName -> CFuncName -> CFuncName -> CFuncName -> CFuncName -> OpaqueArrayOps
- Futhark.Manifest: RecordArrayOps :: Int -> TypeName -> [RecordField] -> CFuncName -> CFuncName -> CFuncName -> RecordArrayOps
+ Futhark.Manifest: RecordArrayOps :: Int -> TypeName -> [RecordField] -> CFuncName -> CFuncName -> CFuncName -> CFuncName -> CFuncName -> RecordArrayOps
Files
- CHANGELOG.md +6/−0
- futhark-manifest.cabal +1/−1
- src/Futhark/Manifest.hs +18/−6
- tests/Tests.hs +4/−0
CHANGELOG.md view
@@ -1,5 +1,11 @@ # Revision history for futhark-manifest +## 1.6.0.0++* Added `opaqueArrayNew` and `recordArrayNew`.++* Added `opaqueArraySet` and `recordArraySet`.+ ## 1.5.0.0 * Adding record arrays and opaque arrays.
futhark-manifest.cabal view
@@ -1,6 +1,6 @@ cabal-version: 2.4 name: futhark-manifest-version: 1.5.0.0+version: 1.6.0.0 synopsis: Definition and serialisation instances for Futhark manifests.
src/Futhark/Manifest.hs view
@@ -167,7 +167,9 @@ { opaqueArrayRank :: Int, opaqueArrayElemType :: TypeName, opaqueArrayIndex :: CFuncName,- opaqueArrayShape :: CFuncName+ opaqueArrayShape :: CFuncName,+ opaqueArrayNew :: CFuncName,+ opaqueArraySet :: CFuncName } deriving (Eq, Ord, Show) @@ -180,7 +182,9 @@ recordArrayFields :: [RecordField], recordArrayZip :: CFuncName, recordArrayIndex :: CFuncName,- recordArrayShape :: CFuncName+ recordArrayShape :: CFuncName,+ recordArrayNew :: CFuncName,+ recordArraySet :: CFuncName } deriving (Eq, Ord, Show) @@ -274,23 +278,27 @@ ] instance JSON.ToJSON OpaqueArrayOps where- toJSON (OpaqueArrayOps rank elemtype index shape) =+ toJSON (OpaqueArrayOps rank elemtype index shape new set) = object [ ("rank", toJSON rank), ("elemtype", toJSON elemtype), ("index", toJSON index),- ("shape", toJSON shape)+ ("shape", toJSON shape),+ ("new", toJSON new),+ ("set", toJSON set) ] instance JSON.ToJSON RecordArrayOps where- toJSON (RecordArrayOps rank elemtype fields zip_f index shape) =+ toJSON (RecordArrayOps rank elemtype fields zip_f index shape new set) = object [ ("rank", toJSON rank), ("elemtype", toJSON elemtype), ("fields", toJSON fields), ("zip", toJSON zip_f), ("index", toJSON index),- ("shape", toJSON shape)+ ("shape", toJSON shape),+ ("new", toJSON new),+ ("set", toJSON set) ] instance JSON.ToJSON OpaqueOps where@@ -398,6 +406,8 @@ <*> v .: "elemtype" <*> v .: "index" <*> v .: "shape"+ <*> v .: "new"+ <*> v .: "set" instance JSON.FromJSON RecordArrayOps where parseJSON = JSON.withObject "RecordArrayOps" $ \v ->@@ -408,6 +418,8 @@ <*> v .: "zip" <*> v .: "index" <*> v .: "shape"+ <*> v .: "new"+ <*> v .: "set" instance JSON.FromJSON OpaqueOps where parseJSON = JSON.withObject "OpaqueOps" $ \v ->
tests/Tests.hs view
@@ -42,11 +42,15 @@ <*> arbitrary <*> arbitrary <*> arbitrary+ <*> arbitrary+ <*> arbitrary instance Arbitrary RecordArrayOps where arbitrary = RecordArrayOps <$> arbitrary+ <*> arbitrary+ <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary