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

fix compiler warnings

Browse Source
This commit is contained in:
Greg Weber 2011-08-14 19:39:21 -07:00
parent 7bece4c246
commit 06be2c0f65
2 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
yesod/Scaffold/Build.hs
View File

@ -18,6 +18,7 @@ import Data.Monoid (mappend)
import qualified Data.Map as Map import qualified Data.Map as Map
import qualified Data.Set as Set import qualified Data.Set as Set
import System.PosixCompat.Files (accessTime, modificationTime, getFileStatus, setFileTimes) import System.PosixCompat.Files (accessTime, modificationTime, getFileStatus, setFileTimes)
import qualified System.Posix.Types
import Control.Monad (filterM, forM) import Control.Monad (filterM, forM)
import Control.Exception (SomeException, try) import Control.Exception (SomeException, try)
@ -55,6 +56,7 @@ touchDeps =
try' :: IO x -> IO (Either SomeException x) try' :: IO x -> IO (Either SomeException x)
try' = try try' = try
getFileStatus' :: FilePath -> IO (System.Posix.Types.EpochTime, System.Posix.Types.EpochTime)
getFileStatus' fp = do getFileStatus' fp = do
efs <- try' $ getFileStatus fp efs <- try' $ getFileStatus fp
case efs of case efs of

6
yesod/Scaffold/Devel.hs
View File

@ -20,12 +20,12 @@ import Scaffold.Build (getDeps, touchDeps, findHaskellFiles)
-- import Distribution.Simple.Install (install) -- import Distribution.Simple.Install (install)
-- import Distribution.Simple.Register (register) -- import Distribution.Simple.Register (register)
import Control.Concurrent (forkIO, threadDelay, ThreadId, killThread) import Control.Concurrent (forkIO, threadDelay, ThreadId, killThread)
import Control.Exception (try, SomeException, finally) import Control.Exception (try, SomeException)
import System.PosixCompat.Files (modificationTime, getFileStatus) import System.PosixCompat.Files (modificationTime, getFileStatus)
import qualified Data.Map as Map import qualified Data.Map as Map
import System.Posix.Types (EpochTime) import System.Posix.Types (EpochTime)
import Blaze.ByteString.Builder.Char.Utf8 (fromString) -- import Blaze.ByteString.Builder.Char.Utf8 (fromString)
import Network.Wai (Application, Response (ResponseBuilder), responseLBS) -- import Network.Wai (Application, Response (ResponseBuilder), responseLBS)
-- import Network.HTTP.Types (status500) -- import Network.HTTP.Types (status500)
import Control.Monad (when, forever) import Control.Monad (when, forever)
import System.Process (runCommand, terminateProcess, waitForProcess) import System.Process (runCommand, terminateProcess, waitForProcess)