DynSpacerF

module DynSpacerF(dynSpacerF,dynPlacerF) where
import Fudget
import LayoutRequest
import SerCompF(idLeftF)
import CompSP(postMapSP)
import Path(here)
import Message
--import Command
import FRequest

dynSpacerF = dynLayoutMsgF LayoutReplaceSpacer
dynPlacerF = dynLayoutMsgF LayoutReplacePlacer

dynLayoutMsgF lmsg fud = F (post `postMapSP` fudsp)
  where
    F fudsp = idLeftF fud
    post = message Low (either sendLmsg High)
    sendLmsg x = Low (here,LCmd (lmsg x))