diff --git a/src/Test.hs b/src/Test.hs index ad501e9..a895195 100644 --- a/src/Test.hs +++ b/src/Test.hs @@ -151,7 +151,7 @@ drawMap = do partposanims = M.fromList (nrows $ mapMat $ stateData ud) (ncols $ mapMat $ stateData ud) - ((reverse . fst) $ + ((reverse . fst) (Prelude.foldl (\(done, proc) coord -> let (ndone, nproc) = processList proc coord