From c20cb20438aa4ea4bf5e637f622bbb4933460b49 Mon Sep 17 00:00:00 2001 From: Erik de Castro Lopo Date: Thu, 14 Aug 2014 18:15:49 +1000 Subject: [PATCH] yesod-bin/Devel.hs : Relax requirements on location of Application.hs. I often move Application.hs to MyApp/Application.hs (and change the module name as needed) which would result in yesod-bin printing a warning about a missing Application.hs. The code should now accept any file named Application.hs (either in the top level source directory or somewhere in the tree. --- yesod-bin/Devel.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/yesod-bin/Devel.hs b/yesod-bin/Devel.hs index 77f34286..af4a6959 100644 --- a/yesod-bin/Devel.hs +++ b/yesod-bin/Devel.hs @@ -416,7 +416,7 @@ checkCabalFile gpd = case D.condLibrary gpd of unless (null unlisted) $ do putStrLn "WARNING: the following source files are not listed in exposed-modules or other-modules:" mapM_ putStrLn unlisted - when (D.fromString "Application" `notElem` D.exposedModules dLib) $ + when ("Application" `notElem` (map (last . D.components) $ D.exposedModules dLib)) $ putStrLn "WARNING: no exposed module Application" return (hsSourceDirs, dLib)