Shrunk main down to a single method call in CodeJam. Nice.

CodeJam.hs

@@ -9,6 +9,11 @@ instance Show Case where
     show (Unsolved number input) = "Case #" ++ (show number) ++ ": N/A"
     show (Solved number answer) = "Case #" ++ (show number) ++ ": " ++ answer
 
+codeJam :: (Input -> String) -> IO ()
+codeJam solve = do
+    input <- fmap lines getContents
+    mapM_ putStrLn $ map (show.(solveCase solve)) $ getCases input
+
 getCases :: Input -> [Case]
 getCases input = zipWith Unsolved [1..] $ splitIntoCases input' linesPerCase
     where n = read $ head input :: Int

minimum-scalar/minimum-scalar.hs

@@ -8,12 +8,7 @@ import CodeJam
 import Data.List
 
 main :: IO ()
-main = do
-    input <- fmap lines getContents
-    mapM_ putStrLn $ map (show.(solveCase solve)) $ getCases input
-
-linesPerCase :: Int
-linesPerCase = 3
+main = codeJam solve
 
 solve :: Input -> String
 solve input = show result

reverse-words/reverse-words.hs

@@ -7,12 +7,7 @@
 import CodeJam
 
 main :: IO ()
-main = do
-    input <- fmap lines getContents
-    mapM_ putStrLn $ map (show.(solveCase solve)) $ getCases input
-
-linesPerCase :: Int
-linesPerCase = 1
+main = codeJam solve
 
 solve :: Input -> String
 solve input = unwords.reverse.words $ head input

store-credit/store-credit.hs

@@ -9,13 +9,8 @@ import CodeJam
 data Item = Item { index :: Int, price :: Int } deriving (Show)
 
 main :: IO ()
-main = do
-    input <- fmap lines getContents
-    mapM_ putStrLn $ map (show.(solveCase solve)) $ getCases input
+main = codeJam solve
 
-linesPerCase :: Int
-linesPerCase = 3
-
 solve :: Input -> String
 solve input = formatAnswer res1 res2
     where (l1:l2:l3:_) = input