typeable/file-embed
1
0
Fork 0
mirror of https://github.com/typeable/file-embed.git synced 2024-08-16 03:00:34 +03:00
Code Issues Packages Projects Releases Wiki Activity

Merge pull request #29 from simonmichael/fix-28

Browse Source 
support template-haskell 2.16, GHC 8.10 (#28)
This commit is contained in:
Michael Snoyman 2019-12-16 09:40:21 +02:00 committed by GitHub
commit 878fdee1cf
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Data/FileEmbed.hs
View File

@ -143,7 +143,11 @@ pairToExp _root (path, bs) = do
qAddDependentFile $ _root ++ '/' : path
#endif
exp' <- bsToExp bs
return $! TupE [LitE $ StringL path, exp']
return $! TupE
#if MIN_VERSION_template_haskell(2,16,0)
$ map Just
#endif
[LitE $ StringL path, exp']
bsToExp :: B.ByteString -> Q Exp
#if MIN_VERSION_template_haskell(2, 5, 0)