From cb0de490100f8d0b92d2a92537c834e366906ef2 Mon Sep 17 00:00:00 2001
From: Luite Stegeman <stegeman@gmail.com>
Date: Fri, 2 Sep 2011 07:26:49 +0200
Subject: [PATCH] Don't print package description

---
 yesod/Build.hs | 6 +++---
 yesod/Devel.hs | 2 +-
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/yesod/Build.hs b/yesod/Build.hs
index ebcc1b3f..13414da2 100644
--- a/yesod/Build.hs
+++ b/yesod/Build.hs
@@ -16,7 +16,8 @@ import Data.List (isSuffixOf)
 import qualified Data.Attoparsec.Text.Lazy as A
 import qualified Data.Text.Lazy.IO as TIO
 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.Monoid (mappend)
 import qualified Data.Map as Map
@@ -24,8 +25,7 @@ import qualified Data.Set as Set
 import qualified System.Posix.Types
 import System.PosixCompat.Files (setFileTimes, getFileStatus,
                                              accessTime, modificationTime)
-import Control.Monad (filterM, forM, forM_)
-import Control.Exception (SomeException, try)
+
 
 touch :: IO ()
 touch = mapM_ go . Map.toList =<< getDeps
diff --git a/yesod/Devel.hs b/yesod/Devel.hs
index a7d1866d..3efa0144 100644
--- a/yesod/Devel.hs
+++ b/yesod/Devel.hs
@@ -165,7 +165,7 @@ checkCabalFile gpd = case D.condLibrary gpd of
          case (D.hsSourceDirs . D.libBuildInfo) dLib of
            ["dist/src-devel"]  -> return ()
            _                   ->
-             T.putStrLn upgradeMessage >> print gpd >> exitFailure
+             T.putStrLn upgradeMessage >> exitFailure
 
 lookupDevelLib :: D.CondTree D.ConfVar c a -> Maybe a
 lookupDevelLib ct = listToMaybe . map (\(_,x,_) -> D.condTreeData x) .