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

support template-haskell 2.16, GHC 8.10 (#28)

Browse Source
This commit is contained in:
Simon Michael 2019-12-14 07:57:07 -08:00
parent 47b499c3c5
commit 03484ad401
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)