diff options
author | stuebinm | 2022-03-06 17:57:44 +0100 |
---|---|---|
committer | stuebinm | 2022-03-06 17:57:44 +0100 |
commit | c79dd30b1e335a536df80d0e60b0bca8c9dc5141 (patch) | |
tree | 0580fe01318f490bfb95b2278ed1e10e4fbaeba3 | |
parent | 83bfdb5600e4888648272eaf85c25f0af944a4f3 (diff) |
fix cwality-maps
whoops, forgot this earlier
Diffstat (limited to '')
-rw-r--r-- | cwality-maps/Config.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/cwality-maps/Config.hs b/cwality-maps/Config.hs index 1317f72..38c61ed 100644 --- a/cwality-maps/Config.hs +++ b/cwality-maps/Config.hs @@ -16,7 +16,7 @@ import Universum import Data.List (isSuffixOf) import qualified Data.Map.Strict as M -import Data.Tiled (LoadResult (Loaded), Tiledmap, +import Data.Tiled (Tiledmap, loadTiledmap) import Lens.Micro.Platform (makeLenses, traverseOf) import System.Directory (listDirectory) @@ -55,7 +55,7 @@ loadConfig path = do list <- forM maps $ \mapname -> loadTiledmap (path </> mapname) >>= \case - Loaded tmap -> pure (toText mapname, tmap) + Right tmap -> pure (toText mapname, tmap) err -> error (show err) pure (path, M.fromList list) |