diff --git a/Haskell/p054.hs b/Haskell/p054.hs
index 12140e7..0ac5f92 100644
--- a/Haskell/p054.hs
+++ b/Haskell/p054.hs
@@ -211,9 +211,8 @@ playGame g
         in if xs > ys then 1 else -1
 
 main = do
-    withFile "p054_poker.txt" ReadMode (\handle -> do
-        contents <- hGetContents handle
-        let games = map readGame (lines contents)
-            result = sum $ filter (==1) $ map playGame games
-        putStrLn $ "Project Euler, Problem 54\n"
-            ++ "Answer: " ++ show result)
+    contents <- readFile "p054_poker.txt"
+    let games = map readGame (lines contents)
+        result = sum $ filter (==1) $ map playGame games
+    putStrLn $ "Project Euler, Problem 54\n"
+        ++ "Answer: " ++ show result