blank-canvas 0.7.3 → 0.7.4
raw patch · 5 files changed
+39/−18 lines, 5 filesdep ~basedep ~base-compat-batteriesdep ~containersPVP ok
version bump matches the API change (PVP)
Dependency ranges changed: base, base-compat-batteries, containers, data-default-class, scotty
API changes (from Hackage documentation)
Files
- Changelog.md +3/−0
- Graphics/Blank.hs +8/−1
- Graphics/Blank/Canvas.hs +3/−1
- Graphics/Blank/Utils.hs +3/−1
- blank-canvas.cabal +22/−15
Changelog.md view
@@ -1,3 +1,6 @@+### 0.7.4 [2023.10.05]+* Support building with `scotty-0.20`.+ ### 0.7.3 * Allow building with GHC 9.0.
Graphics/Blank.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE CPP #-} {-# LANGUAGE GADTs #-} {-# LANGUAGE NoImplicitPrelude #-} {-# LANGUAGE OverloadedStrings #-}@@ -291,7 +292,7 @@ -- There has to be a better way of doing this, using function, perhaps? get (Scotty.regex "^/(.*)$") $ do- fileName :: Text <- Scotty.param "1"+ fileName :: Text <- captureParam "1" db <- liftIO $ atomically $ readTVar $ locals if fileName `S.member` db then do@@ -307,6 +308,12 @@ $ setTimeout 5 $ defaultSettings ) app+ where+#if MIN_VERSION_scotty(0,20,0)+ captureParam = Scotty.captureParam+#else+ captureParam = Scotty.param+#endif -- | Sends a set of canvas commands to the 'Canvas'. Attempts -- to common up as many commands as possible. Should not crash.
Graphics/Blank/Canvas.hs view
@@ -48,11 +48,13 @@ Return :: a -> Canvas a instance Monad Canvas where+#if !(MIN_VERSION_base(4,11,0)) return = Return+#endif (>>=) = Bind instance Applicative Canvas where- pure = return+ pure = Return (<*>) = ap instance Functor Canvas where
Graphics/Blank/Utils.hs view
@@ -60,7 +60,9 @@ | otherwise = error "dataURLMimeType: bad parse" where (dat,rest0) = Text.span (/= ':') txt- Just (_,rest1) = Text.uncons rest0+ rest1 = case Text.uncons rest0 of+ Just (_,rest1') -> rest1'+ Nothing -> "dataURLMimeType: Unexpected empty Text" (mime_type,rest2) = Text.span (/= ';') rest1 -- | Write a data URL to a given file.
blank-canvas.cabal view
@@ -1,5 +1,5 @@ Name: blank-canvas-Version: 0.7.3+Version: 0.7.4 Synopsis: HTML5 Canvas Graphics Library Description: @blank-canvas@ is a Haskell binding to the complete@@ -41,14 +41,16 @@ Extra-source-files: README.md Changelog.md Cabal-version: >= 1.10-tested-with: GHC == 7.8.4- , GHC == 7.10.3- , GHC == 8.0.2+tested-with: GHC == 8.0.2 , GHC == 8.2.2 , GHC == 8.4.4 , GHC == 8.6.5- , GHC == 8.8.3- , GHC == 8.10.1+ , GHC == 8.8.4+ , GHC == 8.10.7+ , GHC == 9.0.2+ , GHC == 9.2.7+ , GHC == 9.4.4+ , GHC == 9.6.1 data-files: static/index.html static/jquery.js@@ -75,30 +77,35 @@ Paths_blank_canvas default-language: Haskell2010- build-depends: aeson >= 0.7 && < 1.6,+ build-depends: aeson >= 1.4.4 && < 2.3, base64-bytestring >= 1.0 && < 1.3,- base >= 4.7 && < 4.15,- base-compat-batteries >= 0.10 && < 0.12,- bytestring == 0.10.*,+ base >= 4.9 && < 4.20,+ base-compat-batteries >= 0.10 && < 0.14,+ bytestring >= 0.10 && < 0.13, colour >= 2.2 && < 2.4,- containers >= 0.5 && < 0.7,+ containers >= 0.5 && < 0.8, data-default-class >= 0.0.1 && < 0.2, fail == 4.9.*, http-types >= 0.8 && < 0.13, mime-types >= 0.1.0.3 && < 0.2, kansas-comet >= 0.4 && < 0.5,- scotty >= 0.10 && < 0.13,+ -- TODO: Eventually, we should bump the lower version+ -- bounds to >=0.20 so that we can remove some CPP in+ -- Graphics.Blank.+ scotty >= 0.10 && < 0.21, semigroups >= 0.18 && < 1, stm >= 2.2 && < 2.6,- text >= 1.1 && < 1.3,+ text >= 1.1 && < 2.2, text-show >= 2 && < 4,- transformers >= 0.3 && < 0.6,+ transformers >= 0.3 && < 0.7, wai == 3.*, wai-extra >= 3.0.1 && < 3.2, warp == 3.*,- vector >= 0.10 && < 0.13+ vector >= 0.10 && < 0.14 GHC-options: -Wall+ if impl(ghc >= 8.6)+ ghc-options: -Wno-star-is-type GHC-prof-options: -Wall -fsimpl-tick-factor=100000 source-repository head