fraport/fradrive-old
fraport/fradrive-old
Archived
3
1
Fork 0
Code Issues 65 Pull Requests 5 Actions Packages Projects Releases 197 Wiki Activity

Versionbump: Template Haskell in System.FilePath.Glob.TH

Browse Source
This commit is contained in:
Stephan Barth 2024-02-11 14:36:42 +01:00
parent b054d3cbdd
commit 0d40f85634
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/System/FilePath/Glob/TH.hs
View File

@ -21,13 +21,13 @@ import qualified Data.Map.Strict as Map
deriving instance Lift CompOptions deriving instance Lift CompOptions
patternFile' :: CompOptions -> FilePath -> TExpQ (Map Text Pattern) patternFile' :: CompOptions -> FilePath -> Code Q (Map Text Pattern)
patternFile' opts file = do patternFile' opts file = liftCode $ do
qAddDependentFile file qAddDependentFile file
patternStrings <- runIO $ filter (not . isComment) . Text.lines <$> Text.readFile file patternStrings <- runIO $ filter (not . isComment) . Text.lines <$> Text.readFile file
unsafeTExpCoerce . appE [e|Map.fromList|] . listE $ map (\pat'@(Text.unpack -> pat) -> [e|(pat', compileWith opts pat)|]) patternStrings unsafeTExpCoerce . appE [e|Map.fromList|] . listE $ map (\pat'@(Text.unpack -> pat) -> [e|(pat', compileWith opts pat)|]) patternStrings
patternFile :: CompOptions -> FilePath -> TExpQ [Pattern] patternFile :: CompOptions -> FilePath -> Code Q [Pattern]
patternFile opts file = [||Map.elems $$(patternFile' opts file)||] patternFile opts file = [||Map.elems $$(patternFile' opts file)||]
isComment :: Text -> Bool isComment :: Text -> Bool