haskell-tools-cli 0.4.1.1 → 0.4.1.2

raw patch · 2 files changed

+15/−17 lines, 2 filesPVP: minor bump suggested

API additions: PVP suggests at least a minor version bump

API changes (from Hackage documentation)

Files

• Language/Haskell/Tools/Refactor/CLI.hs +14/−16
• haskell-tools-cli.cabal +1/−1

@@ -4,33 +4,28 @@            , TemplateHaskell
            , TypeFamilies
            #-}
-module Language.Haskell.Tools.Refactor.CLI (refactorSession) where
+module Language.Haskell.Tools.Refactor.CLI (refactorSession, tryOut) where
 
-import System.Directory
-import System.IO
-import qualified Data.Map as Map
-import Data.Maybe
-import Data.List
-import Data.List.Split
-import Control.Monad.State
 import Control.Applicative ((<|>))
+import Control.Monad.State
 import Control.Reference
+import Data.List
+import Data.List.Split
+import Data.Maybe
+import System.Directory
+import System.IO
 
-import GHC
 import ErrUtils
-import Digraph
-import HscTypes as GHC
-import Module as GHC
+import GHC
 import GHC.Paths ( libdir )
+import HscTypes as GHC
 
 import Language.Haskell.Tools.PrettyPrint
 import Language.Haskell.Tools.Refactor
-import Language.Haskell.Tools.Refactor.Perform
 import Language.Haskell.Tools.Refactor.GetModules
+import Language.Haskell.Tools.Refactor.Perform
 import Language.Haskell.Tools.Refactor.Session
 
-import Debug.Trace
-
 type CLIRefactorSession = StateT CLISessionState Ghc
 
 data CLISessionState = 
@@ -42,6 +37,7 @@ 
 makeReferences ''CLISessionState
 
+tryOut :: IO ()
 tryOut = refactorSession stdin stdout 
            [ "-dry-run", "-one-shot", "-module-name=Language.Haskell.Tools.AST", "-refactoring=OrganizeImports"
            , "src/ast", "src/backend-ghc", "src/prettyprint", "src/rewrite", "src/refactor"]
@@ -165,7 +161,9 @@           ContentChanged (n,m) -> do
             hPutStrLn output $ "### Module changed: " ++ (n ^. sfkModuleName) ++ "\n### new content:\n" ++ prettyPrint m
           ModuleRemoved mod ->
-            hPutStrLn output $ "### Module removed: " ++ mod)
+            hPutStrLn output $ "### Module removed: " ++ mod
+          ModuleCreated n m _ ->
+            hPutStrLn output $ "### Module created: " ++ n ++ "\n### new content:\n" ++ prettyPrint m)
 
         getModSummary name boot
           = do allMods <- lift getModuleGraph

@@ -1,5 +1,5 @@ name:                haskell-tools-cli
-version:             0.4.1.1
+version:             0.4.1.2
 synopsis:            Command-line frontend for Haskell-tools Refact
 description:         Command-line frontend for Haskell-tools Refact. Not meant as a final product, only for demonstration purposes.
 homepage:            https://github.com/haskell-tools/haskell-tools