FilePath.hs

module Hi.FilePath
    (
      rewritePath
    ) where

import           Hi.Types
import           Hi.Template (untemplate)
import           Data.List
import           Data.List.Split      (splitOn)
import           System.FilePath      (joinPath)

-- | Convert given path to the destination path, with given options.
rewritePath :: InitFlags -> FilePath -> FilePath
rewritePath InitFlags {moduleName=m, packageName=p} =
    rename1 . rename2 . untemplate
  where
    rename1 = replace "package-name" p
    rename2 = replace "ModuleName" (toDir m)

-- | Convert module name to path
-- @
-- toDir "Foo.bar" # => "Foo/Bar"
-- @
toDir :: String -> String
toDir = joinPath . splitOn "."

replace :: Eq a => [a] -> [a] -> [a] -> [a]
replace a b = foldl1 (++) . intersperse b . splitOn a