From 0a41d22784ec484c61e3b1a76cc83809f39e0ab6 Mon Sep 17 00:00:00 2001
From: Andrea Rossato <andrea.rossato@ing.unitn.it>
Date: Sun, 4 Nov 2007 12:17:31 +0100
Subject: Added an argument to Top and Bottom type contructors

darcs-hash:20071104111731-d6583-25b1c766ca60777fb6fa374947a7b81c8d3726d5.gz
---
 Config.hs | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/Config.hs b/Config.hs
index a1da93d..7044a22 100644
--- a/Config.hs
+++ b/Config.hs
@@ -15,7 +15,7 @@
 module Config ( -- * Configuration
                 -- $config
                 Config (..)
-              , XPosition (..)
+              , XPosition (..), Width (..)
               , defaultConfig
               , runnableTypes
               ) where
@@ -44,7 +44,8 @@ data Config =
            , template       :: String     -- ^ The output template 
            } deriving (Read)
 
-data XPosition = Top | Bottom | Static {xpos, ypos, width, height :: Int} deriving ( Read, Eq )
+data XPosition = Top Width | Bottom Width | Static {xpos, ypos, width, height :: Int} deriving ( Read, Eq )
+data Width = A | L Int | R Int | C Int deriving ( Read, Eq )
 
 -- | The default configuration values
 defaultConfig :: Config
@@ -52,7 +53,7 @@ defaultConfig =
     Config { font     = "-misc-fixed-*-*-*-*-10-*-*-*-*-*-*-*"
            , bgColor  = "#000000"
            , fgColor  = "#BFBFBF"
-           , position = Top
+           , position = Top A
            , commands = []
            , sepChar  = "%"
            , alignSep = "}{"
-- 
cgit v1.2.3