keelung 0.9.1.0 → 0.9.2

raw patch · 3 files changed

+15/−8 lines, 3 files

Files

• ChangeLog.md +6/−0
• keelung.cabal +1/−1
• src/Keelung.hs +8/−7

@@ -5,6 +5,12 @@ The format is based on [Keep a Changelog](https://keepachangelog.com/en/1.0.0/), and this project adheres to [Semantic Versioning](https://semver.org/spec/v2.0.0.html). +## [v0.9.2]++### Fixed ++* [Issue #11](https://github.com/btq-ag/keelung/issues/11): Cannot build with Cabal+ ## [v0.9.1]  ### Added

@@ -5,7 +5,7 @@ -- see: https://github.com/sol/hpack  name:           keelung-version:        0.9.1.0+version:        0.9.2 synopsis:       DSL for creating zero-knowledge proofs description:    Please see the README on GitHub at <https://github.com/btq-ag/keelung#readme> category:       Cryptography

@@ -241,7 +241,7 @@ wrapper args' payload = do   (cmd, args) <- findKeelungc   version <- readKeelungVersion cmd args-  checkKeelungVersion version+  checkCompilerVersion version   blob <- lift $ Process.readProcess cmd (args ++ args') (BS.unpack $ Serialize.encode payload)   let result = Serialize.decode (BS.pack blob)   case result of@@ -322,8 +322,8 @@         _ -> Nothing       (,,) <$> readMaybe major <*> readMaybe minor <*> readMaybe patch -checkKeelungVersion :: (Int, Int, Int) -> M ()-checkKeelungVersion (major, minor, patch) = do+checkCompilerVersion :: (Int, Int, Int) -> M ()+checkCompilerVersion (major, minor, patch) = do   if major == 0 && minor >= 9 && minor < 10 && patch >= 0     then return ()     else throwError (VersionMismatchError major minor patch)@@ -346,14 +346,15 @@  -------------------------------------------------------------------------------- --- | The version of Keelung is a triple of three numbers, we're not going full semver yet-keelungVersion_ :: (Int, Int, Int)-keelungVersion_ = (0, 9, 1)  -- | String of Keelung version exposed to the user keelungVersion :: String keelungVersion = let (major, minor, patch) = keelungVersion_ in show major ++ "." ++ show minor ++ "." ++ show patch-+  where +    -- | The version of Keelung is a triple of three numbers, we're not going full semver yet+    keelungVersion_ :: (Int, Int, Int)+    keelungVersion_ = (0, 9, 2)+     --------------------------------------------------------------------------------  type M = ExceptT Error IO