husky-0.4: src/Messages.hs

{-----------------------------------------------------------------
 
  (c) 2008-2009 Markus Dittrich 
 
  This program is free software; you can redistribute it 
  and/or modify it under the terms of the GNU General Public 
  License Version 3 as published by the Free Software Foundation. 
 
  This program is distributed in the hope that it will be useful,
  but WITHOUT ANY WARRANTY; without even the implied warranty of
  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  GNU General Public License Version 3 for more details.
 
  You should have received a copy of the GNU General Public 
  License along with this program; if not, write to the Free 
  Software Foundation, Inc., 59 Temple Place - Suite 330, 
  Boston, MA 02111-1307, USA.

--------------------------------------------------------------------}

-- | Messages provides common messages
module Messages ( husky_result
                , infoString
                , print_error_message
                , show_greeting
                ) where

-- imports
import System.IO()
import Prelude 

-- local imports
import PrettyPrint


-- | current version
version :: String
version = "0.4"

-- | info string
infoString :: String
infoString = "Welcome to husky (v" ++ version ++ ")\n" 
          ++ "(C) 2009 Markus Dittrich, licensed under the GPL-3\n"
          ++ "husky comes WITHOUT ANY WARRANTY\n"


-- | display output somewhat colorful
husky_result :: [String] -> IO ()
husky_result items = do
  putStr $ color_string Yellow "=> "
  putStrLn $ unwords items


-- | greeting                                                         
show_greeting :: IO ()                                                
show_greeting = putStrLn $ banner ++ "\n" ++ infoString ++ banner
  where
    banner = replicate 60 '*'

-- | helpful message after bad parse
print_error_message :: String -> IO ()
print_error_message er = putStrLn $ "Error: " ++ er 
                         ++ "\nPlease type \\[h]elp for help."