fearOfView 0.1.0.1 → 0.1.0.3

raw patch · 5 files changed

+18/−6 lines, 5 files

Files

• CHANGELOG.md +4/−1
• CursesDraw.hs +10/−2
• KeyBindings.hs +2/−1
• README.md +1/−1
• fearOfView.cabal +1/−1

@@ -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

@@ -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]

@@ -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)

@@ -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") 

@@ -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