style, pointfree and trailing spaces0.9_release

darcs-hash:20080429125953-d6583-02a6653c15d3166ad264c45ec44082bdae30260e.gz

1 files changed, 15 insertions, 10 deletions

diff --git a/Config.hs b/Config.hs
index a1e6a2b..9dbd9e0 100644
--- a/Config.hs
+++ b/Config.hs
@@ -12,13 +12,14 @@
 --
 -----------------------------------------------------------------------------
 
-module Config ( -- * Configuration
-                -- $config
-                Config (..)
-              , XPosition (..), Align (..)
-              , defaultConfig
-              , runnableTypes
-              ) where
+module Config
+    ( -- * Configuration
+      -- $config
+      Config (..)
+    , XPosition (..), Align (..)
+    , defaultConfig
+    , runnableTypes
+    ) where
 
 import Commands
 import {-# SOURCE #-} Runnable
@@ -44,7 +45,12 @@ data Config =
            , template       :: String     -- ^ The output template
            } deriving (Read)
 
-data XPosition = Top | TopW Align Int | Bottom | BottomW Align Int | Static {xpos, ypos, width, height :: Int} deriving ( Read, Eq )
+data XPosition = Top
+               | TopW Align Int
+               | Bottom
+               | BottomW Align Int
+               | Static {xpos, ypos, width, height :: Int}
+                 deriving ( Read, Eq )
 
 data Align = L | R | C deriving ( Read, Eq )
 
@@ -56,8 +62,7 @@ defaultConfig =
            , fgColor  = "#BFBFBF"
            , position = Top
            , commands = [ Run $ Date "%a %b %_d %Y * %H:%M:%S" "theDate" 10
-                        , Run StdinReader
-                        ]
+                        , Run StdinReader]
            , sepChar  = "%"
            , alignSep = "}{"
            , template = "%StdinReader% }{ <fc=#00FF00>%uname%</fc> * <fc=#FF0000>%theDate%</fc>"