diff --git a/GHCMod.hs b/GHCMod.hs
index d61d011..f2f5a06 100644
--- a/GHCMod.hs
+++ b/GHCMod.hs
@@ -62,7 +62,7 @@ argspec = [ Option "l" ["tolisp"]
 parseArgs :: [OptDescr (Options -> Options)] -> [String] -> (Options, [String])
 parseArgs spec argv
     = case getOpt Permute spec argv of
-        (o,n,[]  ) -> (foldl (flip id) defaultOptions o, n)
+        (o,n,[]  ) -> (foldr id defaultOptions o, n)
         (_,_,errs) -> throw (CmdArg errs)
 
 ----------------------------------------------------------------