X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FOptionalConfiguration.hs;h=16fad069670a8c2d47fb96a5299352889d26dd6f;hb=4d67efc948ee9317a65c22268e31757a849c9193;hp=16a61bf802630250feb0dad9029d4e12cf1615e5;hpb=17ce59153f9b7aef917bb4395cf8fb992a6f738c;p=mailbox-count.git diff --git a/src/OptionalConfiguration.hs b/src/OptionalConfiguration.hs index 16a61bf..16fad06 100644 --- a/src/OptionalConfiguration.hs +++ b/src/OptionalConfiguration.hs @@ -19,9 +19,8 @@ import qualified Data.Configurator as DC ( load, lookup ) import Data.Data ( Data ) -import Data.Typeable ( Typeable ) -import Data.Monoid ( Monoid(..) ) -import Data.Semigroup ( Semigroup( (<>) ) ) +import Data.Monoid ( Monoid() ) +import Data.Semigroup ( Semigroup() ) import Paths_mailbox_count ( getSysconfDir ) import System.Directory ( getHomeDirectory ) import System.FilePath ( () ) @@ -43,7 +42,7 @@ data OptionalConfiguration = port :: Maybe Int, summary_query :: Maybe String, username :: Maybe String } - deriving (Show, Data, Typeable) + deriving (Show, Data) -- | Combine two Maybes into one, essentially mashing them