hi 0.0.3 → 0.0.4

raw patch · 5 files changed

+11/−12 lines, 5 filesPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

API changes (from Hackage documentation)

Files

• hi.cabal +1/−1
• src/Distribution/Hi.hs +8/−8
• src/Distribution/Hi/FilePath.hs +0/−1
• src/Distribution/Hi/Version.hs +1/−1
• src/Main.hs +1/−1

@@ -1,5 +1,5 @@ name:                hi-version:             0.0.3+version:             0.0.4 synopsis:            Generate scaffold for cabal project license:             BSD3 license-file:        LICENSE

@@ -2,7 +2,7 @@ module Distribution.Hi where  import           Distribution.Hi.Compiler (compile)-import           Distribution.Hi.FilePath (toDestionationPath, toDir)+import           Distribution.Hi.FilePath (toDestionationPath) import           Distribution.Hi.Context  (context) import           Distribution.Hi.Types import           Distribution.Hi.Template (withTemplatesFromRepo)@@ -10,18 +10,18 @@ import           Control.Monad import           System.Directory     (createDirectoryIfMissing,                                        getCurrentDirectory)-import           System.FilePath      (joinPath)+import           System.FilePath      (joinPath, dropFileName)  -- | Main function cli :: InitFlags -> IO ()-cli initFlags@(InitFlags {moduleName, repository}) = do+cli initFlags@(InitFlags {repository}) = do     currentDirecotory <- getCurrentDirectory -    withTemplatesFromRepo (repository) $ \templates -> do+    withTemplatesFromRepo repository $ \templates -> do        let sourceAndDestinations = map (id &&& toDestionationPath initFlags) templates -      createDirectoryIfMissing True $ joinPath [currentDirecotory, "src",  toDir moduleName]-      createDirectoryIfMissing True $ joinPath [currentDirecotory, "test", toDir moduleName]--      forM_ sourceAndDestinations $ \(s,d) -> compile s (joinPath [currentDirecotory, d]) $ context initFlags+      forM_ sourceAndDestinations $ \(src,dst) -> do+        let dst' = joinPath [currentDirecotory, dst]+        createDirectoryIfMissing True $ dropFileName dst'+        compile src dst' $ context initFlags

@@ -1,7 +1,6 @@ module Distribution.Hi.FilePath     (       toDestionationPath-    , toDir     ) where  import           Distribution.Hi.Types

@@ -4,4 +4,4 @@     ) where  version :: String-version = "0.0.3"+version = "0.0.4"

@@ -9,6 +9,6 @@ main = do     mode <- getMode     case mode of-      ShowVersion                -> print version+      ShowVersion                -> putStrLn version       RunWithNoConfigurationFile -> Hi.cli =<< getInitFlags       Run                        -> Hi.cli =<< getInitFlags