Add compatibility gorp for GHC 6.6.1.

[match/match.git] / program / CS2MinCostFlow.hs

diff --git a/program/CS2MinCostFlow.hs b/program/CS2MinCostFlow.hs
index 47a73f5..5ce8086 100644 (file)
--- a/program/CS2MinCostFlow.hs
+++ b/program/CS2MinCostFlow.hs
@@ -5,7 +5,12 @@ import System.IO.Unsafe
 import Data.Graph.Inductive.Graph
 import Data.Array.IArray
 import Data.List
+
+#if __GLASGOW_HASKELL__ <= 606
+(*) `on` f = \x y -> f x * f y
+#else
 import Data.Function
+#endif
 
 -- Configure the path to cs2.exe relative to the program/ directory here.
 cs2cmd = "./cs2.exe"