From c79dd30b1e335a536df80d0e60b0bca8c9dc5141 Mon Sep 17 00:00:00 2001
From: stuebinm
Date: Sun, 6 Mar 2022 17:57:44 +0100
Subject: fix cwality-maps

whoops, forgot this earlier
---
 cwality-maps/Config.hs | 4 ++--
 1 file 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)
-- 
cgit v1.2.3