Accord with new pattern-match

This commit is contained in:
Vanessa McHale
2020-12-31 20:17:22 -06:00
parent ff738988d3
commit 2a1a18023a

@@ -61,7 +61,7 @@ xmonad conf = do
let launch' args = do let launch' args = do
catchIO buildLaunch catchIO buildLaunch
conf' @ XConfig { layoutHook = Layout l } conf'@XConfig { layoutHook = Layout l }
<- handleExtraArgs conf args conf{ layoutHook = Layout (layoutHook conf) } <- handleExtraArgs conf args conf{ layoutHook = Layout (layoutHook conf) }
withArgs [] $ launch (conf' { layoutHook = l }) withArgs [] $ launch (conf' { layoutHook = l })