Commit a77fbb1

piq9117Gitea

piq9117

authored and

Gitea

committed

Template Haskell (#2)

- created embedFileUtf8

1 parent cb3ce33 commit a77fbb1Copy full SHA for a77fbb1

File tree

+24

-6

lines changed

+24

-6

lines changed

Lines changed: 9 additions & 3 deletions

Original file line number	Diff line number	Diff line change
`@@ -21,9 +21,15 @@ generateProj`
`21`	`21`	`=> Maybe Text`
`22`	`22`	`-> m ()`
`23`	`23`	`generateProj mLoc = do`
`24`		`- writeSrc mLoc`
	`24`	`+ writeSrcDir mLoc`
	`25`	`+ writeHtmlDir mLoc`
`25`	`26`
`26`		`-writeSrc :: MonadIO m => Maybe Text -> m ()`
`27`		`-writeSrc mLoc = do`
	`27`	`+writeSrcDir :: MonadIO m => Maybe Text -> m ()`
	`28`	`+writeSrcDir mLoc = do`
`28`	`29`	`liftIO $ TP.mkdir ( Turtle.fromText $ mkPathName mLoc "src" )`
`29`	`30`	`mkMessage "Generating src..."`
	`31`	`+`
	`32`	`+writeHtmlDir :: MonadIO m => Maybe Text -> m ()`
	`33`	`+writeHtmlDir mLoc = do`
	`34`	`+ liftIO $ TP.mkdir ( Turtle.fromText $ mkPathName mLoc "html" )`
	`35`	`+ mkMessage "Generating html..."`

Lines changed: 13 additions & 1 deletion

Original file line number	Diff line number	Diff line change
`@@ -1 +1,13 @@`
`1`		`-module UmuReactBasic.TH where`
	`1`	`+{-# LANGUAGE TemplateHaskell #-}`
	`2`	`+module UmuReactBasic.TH`
	`3`	`+ ( embedFileUtf8`
	`4`	`+ ) where`
	`5`	`+`
	`6`	`+import Data.FileEmbed`
	`7`	`+import qualified Data.Text.Encoding as TE`
	`8`	`+import Import`
	`9`	`+import Language.Haskell.TH.Syntax (Exp, Q)`
	`10`	`+`
	`11`	`+embedFileUtf8 :: FilePath -> Q Exp`
	`12`	`+embedFileUtf8 filePath =`
	`13`	`+ [\| TE.decodeUtf8 $( makeRelativeToProject filePath >>= embedFile ) \|]`

Lines changed: 2 additions & 2 deletions

Original file line number	Diff line number	Diff line change
`@@ -19,11 +19,11 @@ extra-source-files: CHANGELOG.md`
`19`	`19`
`20`	`20`	`library`
`21`	`21`	`exposed-modules: UmuReactBasic`
`22`		`- , UmuReactBasic.Parser`
`23`		`- , UmuReactBasic.Capability.ManageCommand`
`24`	`22`	`other-modules: Import`
`25`	`23`	`, Paths_umu_react_basic`
`26`	`24`	`, UmuReactBasic.Util`
	`25`	`+ , UmuReactBasic.Parser`
	`26`	`+ , UmuReactBasic.Capability.ManageCommand`
`27`	`27`	`, UmuReactBasic.TH`
`28`	`28`	`build-depends: base >=4.12 && <4.14`
`29`	`29`	`, classy-prelude`

Comments

(0)