Scalpel

Ого! Спасибо.

selectolax, как вариант, если скорости не хватает

Либа scotty
Понадобилось всё же хранить текущий стейт для того, чтоб был нормальный get-запрос.
Вот при таком коде ничего не принтится, стейт не меняется, а респонд кидается ok

(чуть-чуть больше кода)

state создает новую переменную, так что Вы каждый раз пишите в новую и сразу забываете ее

а почему не принтит вообще?

Там readMVar var :: IO Smth, print :: Smth -> IO (), соотв. fmap print $ readMVar var :: IO (IO ()), выполняется только внешнее действие, а принт просто игнорится, надо print =<< readMVar var. Странно что ворнинга нет

^

По мне тянуть целый mmorph ради одной функции как-то такое

mmorph как линзы, можно не думать, тянуть или не тянуть, уже притянут

(ну, в моих прокдашонах)

Ага, понял.
А как там сделать, чтоб не создавалось новый MVar? Через readMVar прокидывать?

Что-то типа

do
  var <- newMVar foo
  scotty xxxx do
    get ... do
      json =<< liftIO (readMVar var)

По идее должно работать

Лёгким движением руки превратил

cfg :: XConfig (Choose Tall (Choose (Mirror Tall) Full))
cfg = def { modMask = mod4Mask 
          , terminal = "alacritty"
          , workspaces = myWorkspaces
          , handleEventHook = FS.fullscreenEventHook
          , normalBorderColor  = "black"
          , focusedBorderColor  = "orange"
          , layoutHook = layout
          } `additionalKeys`
          [ ((mod4Mask .|. shiftMask, xK_z), spawn "xscreensaver-command -lock")
          , ((controlMask, xK_Print), spawn "spectacle -a")
          , ((0, xK_Print), spawn "spectacle -f")
          ]

В

withMyKeys :: XConfig a -> XConfig a
withMyKeys = flip additionalKeys 
        [ key xK_Z     >>= with mod4Mask 
                       >>= with shiftMask 
                       |=> screensaver
        , key xK_Print >>= with controlMask 
                       |=> screenshotWin
        , key xK_Print |=> screenshot ]

cfg :: XConfig (Choose Tall (Choose (Mirror Tall) Full))
cfg = def { modMask = mod4Mask 
          , terminal = "alacritty"
          , workspaces = myWorkspaces
          , handleEventHook = FS.fullscreenEventHook
          , normalBorderColor  = "black"
          , focusedBorderColor  = "orange"
          , layoutHook = layout
          } & withMyKeys

         
Чувствую себя теперь богом рефакторинга

xmonad?

Да