futhark-manifest 1.9.0.0 → 1.10.0.0

raw patch · 3 files changed

+18/−7 lines, 3 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• CHANGELOG.md +9/−0
• futhark-manifest.cabal +1/−1
• src/Futhark/Manifest.hs +8/−6

@@ -1,5 +1,14 @@ # Revision history for futhark-manifest +## 1.10.0.0++* Replaced `inputUnique` with `inputConsumed`.++* Replaced `outputUnique` with `outputFresh`.++* Updated for the new manifest format in the next version of Futhark (but with+  backwards compatibility).+ ## 1.9.0.0  * New type `Doc` for representing documentation comments.

@@ -1,6 +1,6 @@ cabal-version:      2.4 name:               futhark-manifest-version:            1.9.0.0+version:            1.10.0.0  synopsis:           Definition and serialisation instances for Futhark manifests. 

@@ -75,14 +75,14 @@ data Input = Input   { inputName :: T.Text,     inputType :: TypeName,-    inputUnique :: Bool+    inputConsumed :: Bool   }   deriving (Eq, Ord, Show)  -- | Manifest info for an entry point return value. data Output = Output   { outputType :: TypeName,-    outputUnique :: Bool+    outputFresh :: Bool   }   deriving (Eq, Ord, Show) @@ -341,14 +341,14 @@       onOutput (Output t u) =         object           [ ("type", toJSON t),-            ("unique", toJSON u)+            ("fresh", toJSON u)           ]        onInput (Input p t u) =         object           [ ("name", toJSON p),             ("type", toJSON t),-            ("unique", toJSON u)+            ("consumed", toJSON u)           ]        onType (TypeArray t et rank ops) =@@ -449,11 +449,13 @@  instance JSON.FromJSON Output where   parseJSON = JSON.withObject "Output" $ \v ->-    Output <$> v .: "type" <*> v .: "unique"+    -- "unique" for backwards compatibility.+    Output <$> v .: "type" <*> (v .: "fresh" <|> v .: "unique")  instance JSON.FromJSON Input where   parseJSON = JSON.withObject "Input" $ \v ->-    Input <$> v .: "name" <*> v .: "type" <*> v .: "unique"+    -- "unique" for backwards compatibility.+    Input <$> v .: "name" <*> v .: "type" <*> (v .: "consumed" <|> v .: "unique")  instance JSON.FromJSON Type where   parseJSON = JSON.withObject "Type" $ \ty -> pArray ty <|> pOpaque ty