Drezil/pioneers
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Fixed shadowing in aplAll

Browse Source
This commit is contained in:
Jonas Betzendahl
2014-04-28 10:37:31 +02:00
parent 60fd217233
commit 777c868de0
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/Map/Creation.hs
View File

@@ -31,7 +31,7 @@ aplByNode :: (Node -> Node) -> (Node -> Bool) -> PlayMap -> PlayMap
aplByNode f g mp = array (bounds mp) (map (\(ab,c) -> (if g c then (ab, f c) else (ab,c))) (assocs mp)) aplByNode f g mp = array (bounds mp) (map (\(ab,c) -> (if g c then (ab, f c) else (ab,c))) (assocs mp))
aplAll :: [a -> a] -> a -> a aplAll :: [a -> a] -> a -> a
aplAll fs m = foldl (\ m f -> f m) m fs aplAll fs m = foldl (\ n f -> f n) m fs
-- general 3D-Gaussian -- general 3D-Gaussian
gauss3Dgeneral :: Floating q => gauss3Dgeneral :: Floating q =>