morley 1.8.0 → 1.8.1
raw patch · 3 files changed
+17/−2 lines, 3 filesPVP: major bump suggested
API removals or changes: PVP suggests a major version bump
API changes (from Hackage documentation)
+ Util.CLI: instance Util.CLI.HasCLReader GHC.Base.String
+ Util.CLI: instance Util.CLI.HasCLReader GHC.Word.Word16
- Michelson.Typed.Haskell: crDescriptionL :: forall a_a6civ. Lens' (ConstructorRep a_a6civ) (Maybe Text)
+ Michelson.Typed.Haskell: crDescriptionL :: forall a_a6clm. Lens' (ConstructorRep a_a6clm) (Maybe Text)
- Michelson.Typed.Haskell: crFieldsL :: forall a_a6civ a_a6cjN. Lens (ConstructorRep a_a6civ) (ConstructorRep a_a6cjN) [FieldRep a_a6civ] [FieldRep a_a6cjN]
+ Michelson.Typed.Haskell: crFieldsL :: forall a_a6clm a_a6cmE. Lens (ConstructorRep a_a6clm) (ConstructorRep a_a6cmE) [FieldRep a_a6clm] [FieldRep a_a6cmE]
- Michelson.Typed.Haskell: crNameL :: forall a_a6civ. Lens' (ConstructorRep a_a6civ) Text
+ Michelson.Typed.Haskell: crNameL :: forall a_a6clm. Lens' (ConstructorRep a_a6clm) Text
- Michelson.Typed.Haskell: frDescriptionL :: forall a_a6ciu. Lens' (FieldRep a_a6ciu) (Maybe Text)
+ Michelson.Typed.Haskell: frDescriptionL :: forall a_a6cll. Lens' (FieldRep a_a6cll) (Maybe Text)
- Michelson.Typed.Haskell: frNameL :: forall a_a6ciu. Lens' (FieldRep a_a6ciu) (Maybe Text)
+ Michelson.Typed.Haskell: frNameL :: forall a_a6cll. Lens' (FieldRep a_a6cll) (Maybe Text)
- Michelson.Typed.Haskell: frTypeRepL :: forall a_a6ciu a_a6cly. Lens (FieldRep a_a6ciu) (FieldRep a_a6cly) a_a6ciu a_a6cly
+ Michelson.Typed.Haskell: frTypeRepL :: forall a_a6cll a_a6cop. Lens (FieldRep a_a6cll) (FieldRep a_a6cop) a_a6cll a_a6cop
- Michelson.Typed.Haskell.Doc: crDescriptionL :: forall a_a6civ. Lens' (ConstructorRep a_a6civ) (Maybe Text)
+ Michelson.Typed.Haskell.Doc: crDescriptionL :: forall a_a6clm. Lens' (ConstructorRep a_a6clm) (Maybe Text)
- Michelson.Typed.Haskell.Doc: crFieldsL :: forall a_a6civ a_a6cjN. Lens (ConstructorRep a_a6civ) (ConstructorRep a_a6cjN) [FieldRep a_a6civ] [FieldRep a_a6cjN]
+ Michelson.Typed.Haskell.Doc: crFieldsL :: forall a_a6clm a_a6cmE. Lens (ConstructorRep a_a6clm) (ConstructorRep a_a6cmE) [FieldRep a_a6clm] [FieldRep a_a6cmE]
- Michelson.Typed.Haskell.Doc: crNameL :: forall a_a6civ. Lens' (ConstructorRep a_a6civ) Text
+ Michelson.Typed.Haskell.Doc: crNameL :: forall a_a6clm. Lens' (ConstructorRep a_a6clm) Text
- Michelson.Typed.Haskell.Doc: frDescriptionL :: forall a_a6ciu. Lens' (FieldRep a_a6ciu) (Maybe Text)
+ Michelson.Typed.Haskell.Doc: frDescriptionL :: forall a_a6cll. Lens' (FieldRep a_a6cll) (Maybe Text)
- Michelson.Typed.Haskell.Doc: frNameL :: forall a_a6ciu. Lens' (FieldRep a_a6ciu) (Maybe Text)
+ Michelson.Typed.Haskell.Doc: frNameL :: forall a_a6cll. Lens' (FieldRep a_a6cll) (Maybe Text)
- Michelson.Typed.Haskell.Doc: frTypeRepL :: forall a_a6ciu a_a6cly. Lens (FieldRep a_a6ciu) (FieldRep a_a6cly) a_a6ciu a_a6cly
+ Michelson.Typed.Haskell.Doc: frTypeRepL :: forall a_a6cll a_a6cop. Lens (FieldRep a_a6cll) (FieldRep a_a6cop) a_a6cll a_a6cop
Files
- CHANGES.md +5/−0
- morley.cabal +1/−1
- src/Util/CLI.hs +11/−1
CHANGES.md view
@@ -1,3 +1,8 @@+1.8.1+=====+* [!613](https://gitlab.com/morley-framework/morley/-/merge_requests/613)+ Added `HasCLReader` instances for `Word16` and `String`.+ 1.8.0 =====
morley.cabal view
@@ -5,7 +5,7 @@ -- see: https://github.com/sol/hpack name: morley-version: 1.8.0+version: 1.8.1 synopsis: Developer tools for the Michelson Language description: A library to make writing smart contracts in Michelson — the smart contract language of the Tezos blockchain — pleasant and effective. category: Language
src/Util/CLI.hs view
@@ -82,9 +82,15 @@ instance HasCLReader Word64 where getReader = Opt.auto -- ↓ Same as for 'Natural', the user usually does not care whether- -- the number if bounded (reasonable values should fit anyway).+ -- the number is bounded (reasonable values should fit anyway). getMetavar = "NATURAL NUMBER" +instance HasCLReader Word16 where+ getReader = Opt.auto+ -- ↓ Same as for 'Natural', the user usually does not care whether+ -- the number is bounded (reasonable values should fit anyway).+ getMetavar = "NATURAL NUMBER"+ instance HasCLReader Integer where getReader = Opt.auto getMetavar = "INTEGER"@@ -94,6 +100,10 @@ getMetavar = "INTEGER" instance HasCLReader Text where+ getReader = Opt.str+ getMetavar = "STRING"++instance HasCLReader String where getReader = Opt.str getMetavar = "STRING"