From 85fdba4ffaf0b7da9bf53745c7104d4ae0b9e413 Mon Sep 17 00:00:00 2001
From: Kazu Yamamoto <kazu@iij.ad.jp>
Date: Thu, 6 May 2010 13:14:17 +0900
Subject: [PATCH] check file for "check".

---
 GHCMod.hs | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/GHCMod.hs b/GHCMod.hs
index e650047..bb22cb5 100644
--- a/GHCMod.hs
+++ b/GHCMod.hs
@@ -8,6 +8,7 @@ import Lang
 import List
 import Prelude hiding (catch)
 import System.Console.GetOpt
+import System.Directory
 import System.Environment (getArgs)
 import Types
 
@@ -49,7 +50,12 @@ main = flip catch handler $ do
     res <- case head cmdArg of
       "browse" -> concat <$> mapM (browseModule opt) (tail cmdArg)
       "list"   -> listModules opt
-      "check"  -> checkSyntax opt (cmdArg !! 1)
+      "check"  -> do
+          let file = cmdArg !! 1
+          exist <- doesFileExist file
+          if exist
+             then checkSyntax opt file
+             else return ""
       "lang"   -> listLanguages opt
       "boot"   -> do
          mods  <- listModules opt