a little lint

This commit is contained in:
nek0 2018-06-03 20:24:33 +02:00
parent bf0cd44f56
commit 88c988ddbf

View file

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