Commit 772af07

piq9117Gitea

piq9117

authored and

Gitea

committed

refactor: baseGeneration (#22)

- baseGeneration function refactored to use `traverse_`

1 parent d40883a commit 772af07Copy full SHA for 772af07

File tree

+16

-14

lines changed

+16

-14

lines changed

Lines changed: 16 additions & 14 deletions

Original file line number	Diff line number	Diff line change
`@@ -31,20 +31,22 @@ generateProj mLoc = case mLoc of`
`31`	`31`	`baseGeneration mLoc`
`32`	`32`
`33`	`33`	`baseGeneration :: ( MonadIO m, LogMessage m ) => Maybe Text -> m ()`
`34`		`-baseGeneration mLoc = do`
`35`		`- writeSrcDir mLoc`
`36`		`- writeAssetsDir mLoc`
`37`		`- writeIndexHtml mLoc`
`38`		`- writeHotRelodingIndexJs mLoc`
`39`		`- writeSrcMainFile mLoc`
`40`		`- writeComponentDir mLoc`
`41`		`- writeTitleComponentFile mLoc`
`42`		`- writeSpagoDhallFile mLoc`
`43`		`- writePackagesDhallFile mLoc`
`44`		`- writeTestDir mLoc`
`45`		`- writeTestMainFile mLoc`
`46`		`- writeMakefile mLoc`
`47`		`- writePackageJsonFile mLoc`
	`34`	`+baseGeneration mPathInput = do`
	`35`	`+ traverse_ ( $ mPathInput )`
	`36`	`+ [ writeSrcDir`
	`37`	`+ , writeAssetsDir`
	`38`	`+ , writeIndexHtml`
	`39`	`+ , writeHotRelodingIndexJs`
	`40`	`+ , writeSrcMainFile`
	`41`	`+ , writeComponentDir`
	`42`	`+ , writeTitleComponentFile`
	`43`	`+ , writeSpagoDhallFile`
	`44`	`+ , writePackagesDhallFile`
	`45`	`+ , writeTestDir`
	`46`	`+ , writeTestMainFile`
	`47`	`+ , writeMakefile`
	`48`	`+ , writePackageJsonFile`
	`49`	`+ ]`
`48`	`50`
`49`	`51`	`------------------------------------------`
`50`	`52`	`--- DIRECTORY GENERATION`

Comments

(0)