makeWindow :: (FL.Ref DoubleWindow -> FL.Event -> IO (Either UnknownEvent ())) -> IO (FL.Ref DoubleWindow)
makeWindow handler = do
  w <- doubleWindowCustom
         (toSize (538,413))
         (Just (toPosition (113,180)))
         (Just "FLTKHS Reflex Host Port")
         Nothing
         (defaultCustomWidgetFuncs
          {
            handleCustom = Just handler
          })
         defaultCustomWindowFuncs
  setColor w whiteColor
  setLabelfont w helveticaBold
  setVisible w
  return w
makeWindow :: (FL.Ref DoubleWindow -> FL.Event -> IO (Either UnknownEvent ())) -> IO (FL.Ref DoubleWindow)
makeWindow handler = do
  w <- doubleWindowCustom
         (toSize (538,413))
         (Just (toPosition (113,180)))
         (Just "FLTKHS Reflex Host Port")
         Nothing
         (defaultCustomWidgetFuncs
          {
            handleCustom = Just handler
          })
         defaultCustomWindowFuncs
  setColor w whiteColor
  setLabelfont w helveticaBold
  setVisible w
  return w
makeWindow handler = do
  w <- doubleWindowCustom
         (toSize (538,413))
         (Just (toPosition (113,180)))
         (Just "FLTKHS Reflex Host Port")
         Nothing
         (defaultCustomWidgetFuncs
          {
            handleCustom = Just handler
          })
         defaultCustomWindowFuncs
  setColor w whiteColor
  setLabelfont w helveticaBold
  setVisible w
  return w