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

Fixed warnings

Browse Source
This commit is contained in:
Michael Snoyman 2012-01-24 04:59:29 +02:00
parent c1265e9bb3
commit cdd21df335
1 changed files with 0 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
yesod/Devel.hs
View File

@ -10,7 +10,6 @@ module Devel
import qualified Distribution.Simple.Utils as D import qualified Distribution.Simple.Utils as D
import qualified Distribution.Verbosity as D import qualified Distribution.Verbosity as D
import qualified Distribution.Package as D
import qualified Distribution.PackageDescription.Parse as D import qualified Distribution.PackageDescription.Parse as D
import qualified Distribution.PackageDescription as D import qualified Distribution.PackageDescription as D
@ -21,11 +20,8 @@ import Control.Monad (forever)
import qualified Data.List as L import qualified Data.List as L
import qualified Data.Map as Map import qualified Data.Map as Map
import Data.Maybe (listToMaybe) import Data.Maybe (listToMaybe)
import qualified Data.Text as T
import qualified Data.Text.IO as T
import System.Directory (createDirectoryIfMissing, removeFile, import System.Directory (createDirectoryIfMissing, removeFile,
doesFileExist,
getDirectoryContents) getDirectoryContents)
import System.Exit (exitFailure, exitSuccess) import System.Exit (exitFailure, exitSuccess)
import System.Posix.Types (EpochTime) import System.Posix.Types (EpochTime)
@ -33,10 +29,7 @@ import System.PosixCompat.Files (modificationTime, getFileStatus)
import System.Process (runCommand, terminateProcess, import System.Process (runCommand, terminateProcess,
waitForProcess, rawSystem) waitForProcess, rawSystem)
import Text.Shakespeare.Text (st)
import Build (recompDeps, getDeps,findHaskellFiles) import Build (recompDeps, getDeps,findHaskellFiles)
import Control.Monad (unless)
#if __GLASGOW_HASKELL__ >= 700 #if __GLASGOW_HASKELL__ >= 700
#define ST st #define ST st
@ -63,7 +56,6 @@ devel isDevel = do
_ <- forkIO $ do _ <- forkIO $ do
cabal <- D.findPackageDesc "." cabal <- D.findPackageDesc "."
gpd <- D.readPackageDescription D.normal cabal gpd <- D.readPackageDescription D.normal cabal
let pid = (D.package . D.packageDescription) gpd
checkCabalFile gpd checkCabalFile gpd
@ -150,9 +142,6 @@ watchForChanges list = do
then return () then return ()
else threadDelay 1000000 >> watchForChanges list else threadDelay 1000000 >> watchForChanges list
showPkgName :: D.PackageId -> String
showPkgName = (\(D.PackageName n) -> n) . D.pkgName
checkCabalFile :: D.GenericPackageDescription -> IO () checkCabalFile :: D.GenericPackageDescription -> IO ()
checkCabalFile gpd = case D.condLibrary gpd of checkCabalFile gpd = case D.condLibrary gpd of
Nothing -> do Nothing -> do