liskin/windowWs.hs Secret

Created December 13, 2020 17:00

Star () You must be signed in to star a gist
Fork () You must be signed in to fork a gist

Learn more about clone URLs
Clone this repository at <script src="https://gist.github.com/liskin/234dcb2c47668a9fe747f3380020f914.js"></script>
Save liskin/234dcb2c47668a9fe747f3380020f914 to your computer and use it in GitHub Desktop.

Download ZIP

Raw

windowWs.hs

	windowWs :: Query (Maybe WorkspaceId)
	windowWs = ask >>= \w -> liftX (withWindowSet $ return . W.findTag w)

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment