Config.hs:112:68:
    Couldn't match expected type `Layout a'
	   against inferred type `TConf -> Layout Window'
    In the expression: tabbed shrinkText
    In the expression: (tabbed shrinkText, 1)
    In the second argument of `combo', namely
	`[(full, 1), (tabbed shrinkText, 1)]'