From 56dce7c4feada1d4ca93a312e48813fb1918b93b Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ra=C3=BAl=20Benencia?= Date: Sun, 25 Aug 2013 00:59:04 -0300 Subject: advancing in the monads transformers implementation --- Config.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'Config.hs') diff --git a/Config.hs b/Config.hs index d57983e..a7f4250 100644 --- a/Config.hs +++ b/Config.hs @@ -16,7 +16,7 @@ data LazymailConfig = LazymailConfig { , selectionColor :: (Color, Color) , statusBarColor :: (Color, Color) , showStatusBar :: Bool - , initialPath :: Maybe FilePath + , initialPath :: FilePath } defaultConfig = LazymailConfig { @@ -24,7 +24,7 @@ defaultConfig = LazymailConfig { , selectionColor = (ColorBlack, ColorWhite) , statusBarColor = (ColorBlack, ColorWhite) , showStatusBar = True - , initialPath = Nothing + , 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 = Just "/home/rul/mail/kalgan" } \ No newline at end of file +customConfig = defaultConfig { initialPath = "/home/rul/mail/kalgan" } \ No newline at end of file -- cgit v1.2.3