haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

include .cabal file in the watched files

Browse Source
This commit is contained in:
Luite Stegeman 2012-04-05 21:53:58 +02:00
parent 4dc5e74f02
commit d774c32680
1 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
yesod/Devel.hs
View File

@ -103,7 +103,7 @@ devel isCabalDev forceCabal passThroughArgs = do
forever $ do
recompDeps hsSourceDirs
list <- getFileList hsSourceDirs
list <- getFileList hsSourceDirs [cabal]
success <- rebuild
if not success
then putStrLn "Build failure, pausing..."
@ -112,7 +112,7 @@ devel isCabalDev forceCabal passThroughArgs = do
putStrLn $ "Starting development server: runghc " ++ L.unwords devArgs
(_,_,_,ph) <- createProcess $ proc "runghc" devArgs
watchTid <- forkIO . try_ $ do
watchForChanges hsSourceDirs list
watchForChanges hsSourceDirs [cabal] list
putStrLn "Stopping development server..."
writeLock
threadDelay 1000000
@ -121,7 +121,7 @@ devel isCabalDev forceCabal passThroughArgs = do
ec <- waitForProcess' ph
putStrLn $ "Exit code: " ++ show ec
Ex.throwTo watchTid (userError "process finished")
watchForChanges hsSourceDirs list
watchForChanges hsSourceDirs [cabal] list
mkRebuild :: String -> FilePath -> String -> Bool -> (FilePath, FilePath) -> IO (IO Bool)
mkRebuild ghcVer cabalFile cabalCmd forceCabal (ldPath, arPath)
@ -157,22 +157,22 @@ try_ x = (Ex.try x :: IO (Either Ex.SomeException a)) >> return ()
type FileList = Map.Map FilePath EpochTime
getFileList :: [FilePath] -> IO FileList
getFileList hsSourceDirs = do
getFileList :: [FilePath] -> [FilePath] -> IO FileList
getFileList hsSourceDirs extraFiles = do
(files, deps) <- getDeps hsSourceDirs
let files' = files ++ map fst (Map.toList deps)
let files' = extraFiles ++ files ++ map fst (Map.toList deps)
fmap Map.fromList $ flip mapM files' $ \f -> do
efs <- Ex.try $ getFileStatus f
return $ case efs of
Left (_ :: Ex.SomeException) -> (f, 0)
Right fs -> (f, modificationTime fs)
watchForChanges :: [FilePath] -> FileList -> IO ()
watchForChanges hsSourceDirs list = do
newList <- getFileList hsSourceDirs
watchForChanges :: [FilePath] -> [FilePath] -> FileList -> IO ()
watchForChanges hsSourceDirs extraFiles list = do
newList <- getFileList hsSourceDirs extraFiles
if list /= newList
then return ()
else threadDelay 1000000 >> watchForChanges hsSourceDirs list
else threadDelay 1000000 >> watchForChanges hsSourceDirs extraFiles list
checkDevelFile :: IO ()
checkDevelFile = do
@ -188,7 +188,7 @@ checkCabalFile gpd = case D.condLibrary gpd of
failWith "no development flag found in your configuration file. Expected a 'library-only' flag or the older 'devel' flag"
Just dLib -> do
let hsSourceDirs = D.hsSourceDirs . D.libBuildInfo $ dLib
fl <- getFileList hsSourceDirs
fl <- getFileList hsSourceDirs []
let unlisted = checkFileList fl dLib
unless (null unlisted) $ do
putStrLn "WARNING: the following source files are not listed in exposed-modules or other-modules:"