Formatting changes

This commit is contained in:
Mats Rauhala 2019-03-21 23:29:39 +02:00
parent d5c86cddee
commit 2ad7555b2d

View File

@ -4,11 +4,22 @@ module XMonad.Config.MasseR.ExtraConfig where
import GHC.Generics (Generic) import GHC.Generics (Generic)
import Data.Text (Text) import Data.Text (Text)
data Applications = Applications { browser :: FilePath, launcher :: FilePath, prompt :: FilePath, screenshot :: FilePath, urxvt :: FilePath } deriving (Show, Generic) data Applications =
Applications { browser :: FilePath
, launcher :: FilePath
, prompt :: FilePath
, screenshot :: FilePath
, urxvt :: FilePath
} deriving (Show, Generic)
data TopicRule = TopicRule { topicName :: Text data TopicRule =
TopicRule { topicName :: Text
, topicHome :: Maybe Text , topicHome :: Maybe Text
, topicAction :: Maybe Text } , topicAction :: Maybe Text
}
deriving (Show, Generic) deriving (Show, Generic)
data ExtraConfig = ExtraConfig { applications :: Applications, topics :: [ TopicRule ] } deriving (Show, Generic) data ExtraConfig =
ExtraConfig { applications :: Applications
, topics :: [ TopicRule ] }
deriving (Show, Generic)