Changeset 7591 for src/Pugs/Compile.hs

Timestamp:

10/13/05 13:14:33 (3 years ago)

Author:

autrijus

Message:

* change liftM to fmap for more golfing value...

Files:

• src/Pugs/Compile.hs (modified) (1 diff)

src/Pugs/Compile.hs

@@ -79 +79 @@
         entries = sortBy padSort $ padToList pad
         canCompile (name@('&':_), xs) | length xs > 1 = do
-            liftM concat $ mapM (\x -> canCompile (name, [x])) xs
+            fmap concat $ mapM (\x -> canCompile (name, [x])) xs
         canCompile (name@('&':_), [(_, sym)]) = do
             ref <- liftSTM $ readTVar sym