From 160cec86bb6a0ecf9486428fed5f7e682c5bba38 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Daniel=20Gr=C3=B6ber?= <dxld@darkboxed.org>
Date: Fri, 19 Jun 2015 17:21:17 +0200
Subject: [PATCH] Comment

---
 Language/Haskell/GhcMod/Target.hs | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/Language/Haskell/GhcMod/Target.hs b/Language/Haskell/GhcMod/Target.hs
index a952840..eb3cac9 100644
--- a/Language/Haskell/GhcMod/Target.hs
+++ b/Language/Haskell/GhcMod/Target.hs
@@ -312,6 +312,9 @@ resolveEntrypoint Cradle {..} c@GmComponent {..} = do
       rms <- resolveModule env srcDirs `mapM` eps
       return c { gmcEntrypoints = Set.fromList $ catMaybes rms }
 
+-- TODO: remember that he file from `main-is:` is always module `Main` and let
+-- ghc do the warning about it. Right now we run that module through
+-- resolveModule like any other
 resolveChEntrypoints :: FilePath -> ChEntrypoint -> IO [CompilationUnit]
 resolveChEntrypoints _ (ChLibEntrypoint em om) =
     return $ map (Right . chModToMod) (em ++ om)