starting to work on test stanzas
Getty Ritter
6 years ago
79 | 79 |
, ") where"
|
80 | 80 |
]
|
81 | 81 |
|
| 82 |
defaultTest :: T.Text -> T.Text
|
| 83 |
defaultTest mod = T.unlines $
|
| 84 |
[ "module " <> mod <> "(main) where" ]
|
| 85 |
|
82 | 86 |
defaultGitignore :: T.Text
|
83 | 87 |
defaultGitignore = T.unlines
|
84 | 88 |
[ "dist"
|
27 | 27 |
, _execDeps :: [T.Text]
|
28 | 28 |
}
|
29 | 29 |
|
| 30 |
data TestDetails = TestDetails
|
| 31 |
{ _testName :: T.Text
|
| 32 |
, _testDir :: T.Text
|
| 33 |
, _testDeps :: [T.Text]
|
| 34 |
}
|
| 35 |
|
30 | 36 |
data Project = Project
|
31 | 37 |
{ _projectDetails :: ProjectDetails
|
32 | 38 |
, _libDetails :: Maybe LibraryDetails
|
|
37 | 43 |
Lens.makeLenses ''ProjectDetails
|
38 | 44 |
Lens.makeLenses ''LibraryDetails
|
39 | 45 |
Lens.makeLenses ''ExecutableDetails
|
| 46 |
Lens.makeLenses ''TestDetails
|
40 | 47 |
Lens.makeLenses ''Project
|