rasa-ext-files 0.1.1 → 0.1.2

raw patch · 2 files changed

+11/−12 lines, 2 filesdep +rasa-ext-viewsdep −rasa-ext-bufsdep ~rasadep ~rasa-ext-status-bar

Dependencies added: rasa-ext-views

Dependencies removed: rasa-ext-bufs

Dependency ranges changed: rasa, rasa-ext-status-bar

Files

• rasa-ext-files.cabal +4/−4
• src/Rasa/Ext/Files.hs +7/−8

@@ -1,5 +1,5 @@ name: rasa-ext-files-version: 0.1.1+version: 0.1.2 cabal-version: >=1.10 build-type: Simple license: MIT@@ -22,9 +22,9 @@         Rasa.Ext.Files     build-depends:         base >=4.8 && <5,-        rasa >=0.1.4 && <0.2,-        rasa-ext-bufs >=0.1.1 && <0.2,-        rasa-ext-status-bar >=0.1.1 && <0.2,+        rasa >=0.1.7 && <0.2,+        rasa-ext-views >=0.1.1 && <0.2,+        rasa-ext-status-bar >=0.1.2 && <0.2,         rasa-ext-cmd >=0.1.1 && <0.2,         data-default >=0.7.1.1 && <0.8,         lens ==4.14.*,

@@ -11,15 +11,14 @@  import Data.Foldable import Data.Typeable-import Data.Default +import Data.Default import Data.Monoid -import Control.Monad import Control.Monad.IO.Class import qualified Yi.Rope as Y  import Rasa.Ext-import Rasa.Ext.Bufs+import Rasa.Ext.Views import Rasa.Ext.Cmd import Rasa.Ext.StatusBar @@ -34,15 +33,15 @@   _filename=Nothing } -files :: Scheduler ()-files = do+files :: Action ()+files = do +  beforeEveryRender_ showFilename   onInit $ do     loadFiles-    addCmd "save" $ void . focusDo . saveAs . Y.fromString-  beforeRender showFilename+    addCmd "save" $ focusDo_ . saveAs . Y.fromString  showFilename :: Action ()-showFilename = void . focusDo $ do+showFilename = focusDo_ $ do   mName <- use $ bufExt.filename   traverse_ (leftStatus . disp) mName       where disp name = "<" <> name <> ">"