Formatting changes
This commit is contained in:
		| @@ -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 = | ||||||
|                            , topicHome :: Maybe Text |   TopicRule { topicName :: Text | ||||||
|                            , topicAction :: Maybe Text } |             , topicHome :: Maybe Text | ||||||
|                            deriving (Show, Generic) |             , topicAction :: Maybe Text | ||||||
|  |             } | ||||||
|  |                deriving (Show, Generic) | ||||||
|  |  | ||||||
| data ExtraConfig = ExtraConfig { applications :: Applications, topics :: [ TopicRule ] } deriving (Show, Generic) | data ExtraConfig = | ||||||
|  |   ExtraConfig { applications :: Applications | ||||||
|  |               , topics :: [ TopicRule ] } | ||||||
|  |                  deriving (Show, Generic) | ||||||
|   | |||||||
		Reference in New Issue
	
	Block a user