Commit f033f1ff authored by Andrey Mokhov's avatar Andrey Mokhov
Browse files

Remove TargetDir from Base.hs.

parent f60980a5
......@@ -8,7 +8,6 @@ module Base (
module Data.Monoid,
module Data.List,
Stage (..),
TargetDir (..),
Arg, Args,
ShowArg (..), ShowArgs (..),
arg, args,
......@@ -29,9 +28,6 @@ data Stage = Stage0 | Stage1 | Stage2 | Stage3 deriving (Eq, Enum)
instance Show Stage where
show = show . fromEnum
-- Need TargetDir and FilePath to be distinct types
newtype TargetDir = TargetDir { fromTargetDir :: FilePath } deriving (Show, Eq)
-- The returned string or list of strings is a part of an argument list
-- to be passed to a Builder
type Arg = Action String
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment