From 3059a295dc29526001b5bbc56a85661e37e8467b Mon Sep 17 00:00:00 2001
From: Kazu Yamamoto <kazu@iij.ad.jp>
Date: Thu, 24 Apr 2014 12:53:14 +0900
Subject: [PATCH] comment.

---
 src/GHCModi.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/GHCModi.hs b/src/GHCModi.hs
index 4cfd4b8..a6bfa2b 100644
--- a/src/GHCModi.hs
+++ b/src/GHCModi.hs
@@ -117,9 +117,9 @@ main = E.handle cmdHandler $
         void $ forkIO $ setupDB cradle mlibdir opt mvar
         run cradle mlibdir opt $ loop opt S.empty mvar
       where
+        -- this is just in case.
+        -- If an error is caught here, it is a bug of GhcMod library.
         someHandler (SomeException e) = do
-            -- fixme: this is not perfece for -l
-            --        because each command expect its own s-expression.
             let ret = convert opt $ "ghc-modi:0:0:" ++ show e
             putStr ret
             putStrLn "NG"