From 7115d1ec162b4059b3e8e8f84bd8d5898c1db025 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Wed, 14 May 2014 19:41:05 -0400
Subject: moved source code to src

This is to work around OSX's brain-damange regarding filename case
insensitivity.

Avoided moving config.hs, because it's a config file. Put in a symlink to
make build work.
---
 Propellor/Message.hs | 51 ---------------------------------------------------
 1 file changed, 51 deletions(-)
 delete mode 100644 Propellor/Message.hs

(limited to 'Propellor/Message.hs')

diff --git a/Propellor/Message.hs b/Propellor/Message.hs
deleted file mode 100644
index 780471c3..00000000
--- a/Propellor/Message.hs
+++ /dev/null
@@ -1,51 +0,0 @@
-{-# LANGUAGE PackageImports #-}
-
-module Propellor.Message where
-
-import System.Console.ANSI
-import System.IO
-import System.Log.Logger
-import "mtl" Control.Monad.Reader
-
-import Propellor.Types
-
--- | Shows a message while performing an action, with a colored status
--- display.
-actionMessage :: (MonadIO m, ActionResult r) => Desc -> m r -> m r
-actionMessage desc a = do
-	liftIO $ do
-		setTitle $ "propellor: " ++ desc
-		hFlush stdout
-
-	r <- a
-
-	liftIO $ do
-		setTitle "propellor: running"
-		let (msg, intensity, color) = getActionResult r
-		putStr $ desc ++ " ... "
-		colorLine intensity color msg
-		hFlush stdout
-
-	return r
-
-warningMessage :: MonadIO m => String -> m ()
-warningMessage s = liftIO $ colorLine Vivid Magenta $ "** warning: " ++ s
-
-colorLine :: ColorIntensity -> Color -> String -> IO ()
-colorLine intensity color msg = do
-	setSGR [SetColor Foreground intensity color]
-	putStr msg
-	setSGR []
-	-- Note this comes after the color is reset, so that
-	-- the color set and reset happen in the same line.
-	putStrLn ""
-	hFlush stdout
-
-errorMessage :: String -> IO a
-errorMessage s = do
-	liftIO $ colorLine Vivid Red $ "** error: " ++ s
-	error "Cannot continue!"
-
--- | Causes a debug message to be displayed when PROPELLOR_DEBUG=1
-debug :: [String] -> IO ()
-debug = debugM "propellor" . unwords
-- 
cgit v1.3-2-g0d8e