[Use bang-patterns instead of seq's.
Lemmih <lemmih@gmail.com>**20081221174817
 Ignore-this: c1c2b793ea81300c1b9dce6ffeee8771
] hunk ./Fixer/Fixer.hs 1
-{-# OPTIONS_GHC -fglasgow-exts #-}
+{-# LANGUAGE BangPatterns #-}
hunk ./Fixer/Fixer.hs 234
-    let f _ tl n | (tl::Int) `seq` n `seq` False = undefined
-        f [] tl n | n > 0, tl /= 0 = do
+    let f [] !tl !n | n > 0, tl /= 0 = do
hunk ./Fixer/Fixer.hs 263
-    f (Set.toList to) (-1) (0::Int)
+    f (Set.toList to) (-1::Int) (0::Int)