minor

Author: minimapletinytools

potato_flow

@@ -77,6 +77,10 @@ popupSaveAsWindow SaveAsWindowConfig {..} = do
 data SaveBeforeExitConfig t = SaveBeforeExitConfig {
   _saveBeforeExitConfig_exitWithChanges :: Event t ()
 }
+
+-- TODO make this generic, via some PopupManager thingy or what not
+-- you want to use the same NeedSave for close and open when there are unsaved changes
+-- and after the save action, you want to redirect back to the open or quit operation
 data SaveBeforeExitOutput t = SaveBeforeExitOutput {
 
   -- TODO you should be able to get this to work...

src/Potato/Flow/Vty/SaveAsWindow.hs

@@ -37,7 +37,7 @@ componentSub :: (Num a) => (a,a) -> (a,a) -> (a,a)
 componentSub (a,b) (c,d) = (a-c,b-d)
 
 onlyIfSimultaneous :: (Reflex t) => Event t a -> Event t b -> Event t a
-onlyIfSimultaneous eva evb = fforMaybe (align eva evb) $ \case 
+onlyIfSimultaneous eva evb = fforMaybe (align eva evb) $ \case
   These a _ -> Just a
   _ -> Nothing
 
@@ -62,7 +62,7 @@ vScrollBar handleStyleBeh contentSizeDyn = mdo
   --innerDragEv will only fire on drag events that started on the scroll bar handle portion
   innerDragEv <- pane boxRegionDyn (constDyn True) $ do
     -- render the scroll bar handle
-    fill (constant '#') 
+    fill (constant '#')
     drag2 V.BLeft
 
   d2ev <- drag2 V.BLeft
@@ -107,7 +107,7 @@ vScrollBar handleStyleBeh contentSizeDyn = mdo
   let
     offsetScreenUnitDyn = fmap round . liftA2 (*) screen_over_content_dyn $ offsetFloatDyn
 
-  return $ traceDyn "offset" $ fmap floor offsetFloatDyn
+  return $ fmap floor offsetFloatDyn
 
 
 {-