diff options
Diffstat (limited to 'src/Rahm/Desktop/Keys')
| -rw-r--r-- | src/Rahm/Desktop/Keys/Wml.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/Rahm/Desktop/Keys/Wml.hs b/src/Rahm/Desktop/Keys/Wml.hs index e64c6e0..2d4562a 100644 --- a/src/Rahm/Desktop/Keys/Wml.hs +++ b/src/Rahm/Desktop/Keys/Wml.hs @@ -41,6 +41,7 @@ module Rahm.Desktop.Keys.Wml workspaceForStringT, workspaceForString, locationSetForKeysT, + locationSetForStringT, locationSetForKeys, readNextWorkspaceName, workspaceName, @@ -459,6 +460,9 @@ workspaceForStringT = workspaceForKeysT . map (\c -> (def, def, [c])) workspaceForString :: String -> X (Maybe Workspace) workspaceForString = runMaybeT . workspaceForStringT +locationSetForStringT :: String -> MaybeT X [Location] +locationSetForStringT = locationSetForKeysT . map (\c -> (def, def, [c])) + -- Like the above, but unwrap the MaybeT locationSetForKeysT :: KeyString -> MaybeT X [Location] locationSetForKeysT s = runKeyFeedWithKeys s readNextLocationSet |