diff --git a/Changelog.md b/Changelog.md
--- a/Changelog.md
+++ b/Changelog.md
@@ -1,3 +1,6 @@
+### 0.7.3
+* Allow building with GHC 9.0.
+
 ### 0.7.2
 * Render Unicode codepoints beyond `0xFFFF` properly.
 
diff --git a/Graphics/Blank.hs b/Graphics/Blank.hs
--- a/Graphics/Blank.hs
+++ b/Graphics/Blank.hs
@@ -172,7 +172,6 @@
 
 import           Data.Aeson (Result(..), fromJSON)
 import           Data.Aeson.Types (parse)
-import           Data.List as L
 import qualified Data.Map as M (lookup)
 import qualified Data.Set as S
 import qualified Data.Text as T
diff --git a/Graphics/Blank/JavaScript.hs b/Graphics/Blank/JavaScript.hs
--- a/Graphics/Blank/JavaScript.hs
+++ b/Graphics/Blank/JavaScript.hs
@@ -10,7 +10,7 @@
 import           Data.Colour.SRGB
 import           Data.Default.Class
 import           Data.Ix
-import           Data.List                       hiding (length)
+import qualified Data.List                       as L
 import           Data.String
 import           Data.Text                       (Text)
 import qualified Data.Text.Lazy                  as TL
@@ -507,7 +507,7 @@
 jsLineJoinCorner = jsLiteralBuilder . showb
 
 jsList :: (a -> Builder) -> [a] -> Builder
-jsList js = mconcat . intersperse "," . map js
+jsList js = mconcat . L.intersperse "," . map js
 
 instance JSArg RepeatDirection where
     showbJS = jsRepeatDirection
diff --git a/blank-canvas.cabal b/blank-canvas.cabal
--- a/blank-canvas.cabal
+++ b/blank-canvas.cabal
@@ -1,5 +1,5 @@
 Name:                blank-canvas
-Version:             0.7.2
+Version:             0.7.3
 Synopsis:            HTML5 Canvas Graphics Library
 
 Description:      @blank-canvas@ is a Haskell binding to the complete
@@ -94,7 +94,7 @@
                        text-show             >= 2       && < 4,
                        transformers          >= 0.3     && < 0.6,
                        wai                   == 3.*,
-                       wai-extra             >= 3.0.1   && < 3.1,
+                       wai-extra             >= 3.0.1   && < 3.2,
                        warp                  == 3.*,
                        vector                >= 0.10    && < 0.13