From c047b9523b7b073450d91c6400550292d9ef5387 Mon Sep 17 00:00:00 2001
From: Kazu Yamamoto <kazu@iij.ad.jp>
Date: Fri, 30 Apr 2010 18:09:26 +0900
Subject: [PATCH] cosmetic change.

---
 Check.hs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

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