[inferno-ml] Add some instances for ScriptInputType (#135)

We need some of these instances elsewhere
plow-technologies · Oct 8, 2024 · a898541 · a898541
1 parent 599f3c5
commit a898541
Show file tree

Hide file tree

Showing 3 changed files with 9 additions and 3 deletions.
diff --git a/inferno-ml-server-types/CHANGELOG.md b/inferno-ml-server-types/CHANGELOG.md
@@ -1,6 +1,9 @@
 # Revision History for inferno-ml-server-types
 *Note*: we use https://pvp.haskell.org/ (MAJOR.MAJOR.MINOR.PATCH)
 
+## 0.9.1
+* `Ord`/`VCHashUpdate` instances for `ScriptInputType`
+
 ## 0.9.0
 * Add `Arbitrary`/`ToADTArbitrary` instances for most types
 * Simplify `ModelMetadata`

diff --git a/inferno-ml-server-types/inferno-ml-server-types.cabal b/inferno-ml-server-types/inferno-ml-server-types.cabal
@@ -1,6 +1,6 @@
 cabal-version: 2.4
 name:          inferno-ml-server-types
-version:       0.9.0
+version:       0.9.1
 synopsis:      Types for Inferno ML server
 description:   Types for Inferno ML server
 homepage:      https://github.com/plow-technologies/inferno.git#readme

diff --git a/inferno-ml-server-types/src/Inferno/ML/Server/Types.hs b/inferno-ml-server-types/src/Inferno/ML/Server/Types.hs
@@ -70,7 +70,9 @@ import GHC.Generics (Generic)
 import Inferno.Instances.Arbitrary ()
 import Inferno.Types.Syntax (Ident)
 import Inferno.Types.VersionControl
-  ( VCObjectHash,
+  ( VCHashUpdate,
+    VCHashUpdateViaShow (VCHashUpdateViaShow),
+    VCObjectHash,
     byteStringToVCObjectHash,
     vcObjectHashToByteString,
   )
@@ -797,8 +799,9 @@ data ScriptInputType
     -- the same script identifier to point to the same PID with both
     -- types of access enabled
     ReadableWritable
-  deriving stock (Show, Eq, Generic)
+  deriving stock (Show, Eq, Ord, Generic)
   deriving anyclass (NFData, ToADTArbitrary)
+  deriving (VCHashUpdate) via (VCHashUpdateViaShow ScriptInputType)
 
 instance FromJSON ScriptInputType where
   parseJSON = withText "ScriptInputType" $ \case