nek0/tracer
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

a little lint

Browse source
This commit is contained in:
nek0 2018-06-03 20:24:33 +02:00
parent bf0cd44f56
commit 88c988ddbf
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Test.hs
View file

@ -151,7 +151,7 @@ drawMap = do
partposanims = M.fromList partposanims = M.fromList
(nrows $ mapMat $ stateData ud) (nrows $ mapMat $ stateData ud)
(ncols $ mapMat $ stateData ud) (ncols $ mapMat $ stateData ud)
((reverse . fst) $ ((reverse . fst)
(Prelude.foldl (Prelude.foldl
(\(done, proc) coord -> (\(done, proc) coord ->
let (ndone, nproc) = processList proc coord let (ndone, nproc) = processList proc coord