summaryrefslogtreecommitdiff
path: root/cwality-maps
diff options
context:
space:
mode:
authorstuebinm2022-03-06 17:57:44 +0100
committerstuebinm2022-03-19 20:00:54 +0100
commit1e3ee5b0c6f4cff4656b8ca377699569cae4323b (patch)
treeba4d65a857d57346eef458ae66581a665d612359 /cwality-maps
parentab16b947984b230b38fb38aaeceab9e206a18587 (diff)
fix cwality-maps
whoops, forgot this earlier
Diffstat (limited to 'cwality-maps')
-rw-r--r--cwality-maps/Config.hs4
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)