X-Git-Url: http://gitweb.michael.orlitzky.com/?p=list-remote-forwards.git;a=blobdiff_plain;f=src%2FOptionalConfiguration.hs;fp=src%2FOptionalConfiguration.hs;h=3f68e926a88bfe564f1996c45e8558aa32bf8a21;hp=3dc26bdccc94dbc65ff3bb26527e9bb026c15d5d;hb=3a078656bf7de5cbf688362a356e56c03810035b;hpb=f9976196301fabb4c2aaba2a3ed72b49d365e5a8 diff --git a/src/OptionalConfiguration.hs b/src/OptionalConfiguration.hs index 3dc26bd..3f68e92 100644 --- a/src/OptionalConfiguration.hs +++ b/src/OptionalConfiguration.hs @@ -22,7 +22,6 @@ import qualified Data.Configurator as DC ( import Data.Maybe ( fromMaybe ) import Data.Monoid ( Monoid(..) ) import Data.Data ( Data ) -import Data.Typeable ( Typeable ) import Paths_list_remote_forwards ( getSysconfDir ) import System.Directory ( getHomeDirectory ) import System.FilePath ( () ) @@ -45,7 +44,7 @@ data OptionalConfiguration = password :: Maybe String, port :: Maybe Int, username :: Maybe String } - deriving (Show, Data, Typeable) + deriving (Show, Data) -- | Combine two Maybes into one, essentially mashing them