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

Don't print package description

Browse Source
This commit is contained in:
Luite Stegeman 2011-09-02 07:26:49 +02:00
parent f5910a50ff
commit cb0de49010
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
yesod/Build.hs
View File

@ -16,7 +16,8 @@ import Data.List (isSuffixOf)
import qualified Data.Attoparsec.Text.Lazy as A import qualified Data.Attoparsec.Text.Lazy as A
import qualified Data.Text.Lazy.IO as TIO import qualified Data.Text.Lazy.IO as TIO
import Control.Applicative ((<|>)) import Control.Applicative ((<|>))
import Control.Monad (when) import Control.Exception (SomeException, try)
import Control.Monad (when, filterM, forM, forM_)
import Data.Char (isSpace) import Data.Char (isSpace)
import Data.Monoid (mappend) import Data.Monoid (mappend)
import qualified Data.Map as Map import qualified Data.Map as Map
@ -24,8 +25,7 @@ import qualified Data.Set as Set
import qualified System.Posix.Types import qualified System.Posix.Types
import System.PosixCompat.Files (setFileTimes, getFileStatus, import System.PosixCompat.Files (setFileTimes, getFileStatus,
accessTime, modificationTime) accessTime, modificationTime)
import Control.Monad (filterM, forM, forM_)
import Control.Exception (SomeException, try)
touch :: IO () touch :: IO ()
touch = mapM_ go . Map.toList =<< getDeps touch = mapM_ go . Map.toList =<< getDeps

2
yesod/Devel.hs
View File

@ -165,7 +165,7 @@ checkCabalFile gpd = case D.condLibrary gpd of
case (D.hsSourceDirs . D.libBuildInfo) dLib of case (D.hsSourceDirs . D.libBuildInfo) dLib of
["dist/src-devel"] -> return () ["dist/src-devel"] -> return ()
_ -> _ ->
T.putStrLn upgradeMessage >> print gpd >> exitFailure T.putStrLn upgradeMessage >> exitFailure
lookupDevelLib :: D.CondTree D.ConfVar c a -> Maybe a lookupDevelLib :: D.CondTree D.ConfVar c a -> Maybe a
lookupDevelLib ct = listToMaybe . map (\(_,x,_) -> D.condTreeData x) . lookupDevelLib ct = listToMaybe . map (\(_,x,_) -> D.condTreeData x) .