starting to work on test stanzas
Getty Ritter
7 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
|