haskell/stackage-server
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage-server.git synced 2026-01-20 16:01:55 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Fix warnings

Browse Source
This commit is contained in:
Michael Snoyman 2014-10-24 10:49:59 +03:00
parent 3992ca4f38
commit 20a95b4d24
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Handler/Haddock.hs
View File

@ -6,7 +6,7 @@ import Filesystem (removeTree, isDirectory, createTree, isFile, rename, removeFi
import Control.Concurrent (forkIO) import Control.Concurrent (forkIO)
import Control.Concurrent.Chan import Control.Concurrent.Chan
import System.IO.Temp (withSystemTempFile, withTempFile) import System.IO.Temp (withSystemTempFile, withTempFile)
import Control.Exception (mask) import Control.Exception (mask, mask_)
import System.Process (createProcess, proc, cwd, waitForProcess) import System.Process (createProcess, proc, cwd, waitForProcess)
import System.Exit (ExitCode (ExitSuccess)) import System.Exit (ExitCode (ExitSuccess))
import Network.Mime (defaultMimeLookup) import Network.Mime (defaultMimeLookup)
@ -95,7 +95,7 @@ createCompressor
-> IO (IO ()) -- ^ action to kick off compressor again -> IO (IO ()) -- ^ action to kick off compressor again
createCompressor dirs = do createCompressor dirs = do
baton <- newMVar () baton <- newMVar ()
mask $ \restore -> void $ forkIO $ forever $ do mask_ $ void $ forkIO $ forever $ do
takeMVar baton takeMVar baton
runResourceT $ goDir (dirRawRoot dirs) runResourceT $ goDir (dirRawRoot dirs)
return $ void $ tryPutMVar baton () return $ void $ tryPutMVar baton ()
@ -159,9 +159,11 @@ mkDirs dir = Dirs
, dirCacheRoot = dir </> "cachedir" , dirCacheRoot = dir </> "cachedir"
} }
dirGzIdent, dirRawIdent :: Dirs -> PackageSetIdent -> FilePath
dirGzIdent dirs ident = dirGzRoot dirs </> fpFromText (toPathPiece ident) dirGzIdent dirs ident = dirGzRoot dirs </> fpFromText (toPathPiece ident)
dirRawIdent dirs ident = dirRawRoot dirs </> fpFromText (toPathPiece ident) dirRawIdent dirs ident = dirRawRoot dirs </> fpFromText (toPathPiece ident)
dirGzFp, dirRawFp :: Dirs -> PackageSetIdent -> [Text] -> FilePath
dirGzFp dirs ident rest = dirGzIdent dirs ident </> mconcat (map fpFromText rest) dirGzFp dirs ident rest = dirGzIdent dirs ident </> mconcat (map fpFromText rest)
dirRawFp dirs ident rest = dirRawIdent dirs ident </> mconcat (map fpFromText rest) dirRawFp dirs ident rest = dirRawIdent dirs ident </> mconcat (map fpFromText rest)