a little lint

2018-06-03 20:24:33 +02:00 · 2018-06-03 20:24:33 +02:00 · 88c988ddbf
commit 88c988ddbf
parent bf0cd44f56
1 changed files with 1 additions and 1 deletions
--- 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