From f25d0d8d82dff0be2d68476148479004b2888bd7 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ra=C3=BAl=20Benencia?= Date: Sun, 25 Aug 2013 17:56:39 -0300 Subject: Finished porting to state monad --- Config.hs | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) (limited to 'Config.hs') diff --git a/Config.hs b/Config.hs index a7f4250..5c4e477 100644 --- a/Config.hs +++ b/Config.hs @@ -3,7 +3,7 @@ - Copyright 2013 Raúl Benencia - - Licensed under the GNU GPL version 3 or higher - - + - -} module Config(LazymailConfig(..), defaultConfig, customConfig) where @@ -13,17 +13,17 @@ import System.FilePath(FilePath) data LazymailConfig = LazymailConfig { baseColor :: (Color, Color) -- (foreground, background) - , selectionColor :: (Color, Color) - , statusBarColor :: (Color, Color) + , selectionColor :: (Color, Color) + , statusBarColor :: (Color, Color) , showStatusBar :: Bool - , initialPath :: FilePath -} + , initialPath :: FilePath +} defaultConfig = LazymailConfig { baseColor = (ColorWhite, ColorBlack) , selectionColor = (ColorBlack, ColorWhite) , statusBarColor = (ColorBlack, ColorWhite) - , showStatusBar = True + , showStatusBar = True , initialPath = "" } @@ -32,4 +32,4 @@ defaultConfig = LazymailConfig { -- preferences. In a possible future maybe I'll work in a not-so-crappy -- config system. -- -customConfig = defaultConfig { initialPath = "/home/rul/mail/kalgan" } \ No newline at end of file +customConfig = defaultConfig { initialPath = "/home/rul/mail/linti/" } \ No newline at end of file -- cgit v1.2.3