Debug.hs

-----------------------------------------------------------------------------
-- |
-- Module      :  Windll
-- Copyright   :  (c) Tamar Christina 2009 - 2010
-- License     :  BSD3
-- 
-- Maintainer  :  tamar@zhox.com
-- Stability   :  experimental
-- Portability :  portable
--
-- This module contains versioning information about the debug tool.
--
-----------------------------------------------------------------------------

module WinDll.Version.Debug where

import Data.List ( intercalate )
import Data.Char ( toUpper )

-- | Version Number
verNum :: [Int]
verNum = [0,0,1]

-- | Version string
verStr :: String
verStr = (intercalate "." . map show) verNum

-- | Product version
version :: String
version = verStr ++ " ~Experimental~"

-- | Version message including product name
versionmsg :: String 
versionmsg = exename 
          ++ " Build version " ++ version
          ++ "\n(c) Tamar Christina <tamar@zhox.com>. 2009 - 2014."
          
-- | Product name
exename :: String
exename = "Hs2lib-debug"

-- | Product name converted to uppercase
upper_name :: String
upper_name = map toUpper exename