diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,5 +1,8 @@
 # Revision history for fearOfView
 
 ## 0.1.0.0 -- 2025-08-10
-
 * First release.
+
+## 0.1.0.3 -- 2025-08-12
+* Fix incompatibility with recent GHC. Thanks Francesco Ariis.
+* Fix WASD keybindings
diff --git a/CursesDraw.hs b/CursesDraw.hs
--- a/CursesDraw.hs
+++ b/CursesDraw.hs
@@ -1,3 +1,4 @@
+{-# LANGUAGE CPP              #-}
 {-# LANGUAGE FlexibleContexts #-}
 {-# LANGUAGE LambdaCase       #-}
 {-# LANGUAGE TupleSections    #-}
@@ -8,12 +9,16 @@
 import           Control.Monad       (forM, forM_, mplus, unless, void)
 import           Control.Monad.State (get, gets, lift, liftIO, put, runStateT)
 import           Data.Bifunctor      (bimap)
-import           Data.Foldable       (foldl')
 import           Data.Function       (on)
 import           Data.List           (intersperse, minimumBy)
 import           Data.Maybe          (fromMaybe, isJust, isNothing, maybeToList)
 import           Safe                (atMay)
 
+#if !MIN_VERSION_base(4,20,0)
+-- foldl' started being exported from prelude in base-4.20.0
+import           Data.Foldable       (foldl')
+#endif
+
 import qualified Data.Map.Strict     as M
 import qualified Data.Set            as S
 
@@ -502,7 +507,10 @@
             , let lev = HS.maxLevel hs in (showLevel lev, levelStyle lev)
             ] <>
             [ ("  ", style0) ] <>
-            [ (take 1 $ show e, equipStyle e) | e <- S.toList $ HS.equipment hs ]
+            [ if e `elem` HS.equipment hs
+                then (take 1 $ show e, equipStyle e)
+                else ("-", style0)
+            | e <- allEquipment ]
         scoreX showName = min ((scrW - l) `div` 2) (scrW - l - 1 - aKeyL)
             where l = sum $ [length "99   99~  99:C"]
                     <> [11 | showName] <> [2 + length allEquipment]
diff --git a/KeyBindings.hs b/KeyBindings.hs
--- a/KeyBindings.hs
+++ b/KeyBindings.hs
@@ -43,7 +43,8 @@
     ]
 
 wasdBindings = lowerToo
-    [ ('W', C.Dir P.DLeft)
+    [ ('A', C.Dir P.DLeft)
+    , ('Z', C.Dir P.DLeft)  -- for AZERTY
     , ('S', C.Dir P.DDown)
     , ('W', C.Dir P.DUp)
     , ('D', C.Dir P.DRight)
diff --git a/README.md b/README.md
--- a/README.md
+++ b/README.md
@@ -1,7 +1,7 @@
 # Fear of View
 A terminal broughlike game about manipulating vision.
 
-Released under the AGPL, version 3 or later. See LICENSE.
+Released under the AGPL, version 3 or later. See COPYING.
 
 ![Screenshot](fov-shot.png "Screenshot")
 
diff --git a/fearOfView.cabal b/fearOfView.cabal
--- a/fearOfView.cabal
+++ b/fearOfView.cabal
@@ -1,6 +1,6 @@
 cabal-version:      2.2
 name:               fearOfView
-version:            0.1.0.1
+version:            0.1.0.3
 license:            AGPL-3.0-or-later
 license-file:       COPYING
 maintainer:         mbays@sdf.org