diff --git a/Check.hs b/Check.hs
index fee7ee0..0ee827c 100644
--- a/Check.hs
+++ b/Check.hs
@@ -21,10 +21,6 @@ checkSyntax _ file = unlines <$> check file
 
 ----------------------------------------------------------------
 
--- I don't know why, but parseDynamicFlags must be used.
-cmdOptions :: [Located String]
-cmdOptions = map noLoc ["-Wall","-fno-warn-unused-do-bind"]
-
 check :: String -> IO [String]
 check fileName = ghandle ignore $ runGhc (Just libdir) $ do
     ref <- liftIO $ newIORef []
@@ -44,6 +40,10 @@ check fileName = ghandle ignore $ runGhc (Just libdir) $ do
     ignore :: SomeException -> IO [String]
     ignore _ = return []
 
+-- I don't know why, but parseDynamicFlags must be used.
+cmdOptions :: [Located String]
+cmdOptions = map noLoc ["-Wall","-fno-warn-unused-do-bind"]
+
 ----------------------------------------------------------------
 
 refLogger :: IORef [String] -> WarnErrLogger