git.iko.soy/typeable/file-embed
on master help sign in
Merge pull request #29 from simonmichael/fix-28
878fdeeMichael Snoyman
Data/FileEmbed.hs+5−1
compare with master
unifiedsplit
@@ -143,7 +143,11 @@ pairToExp _root (path, bs) = do
143 qAddDependentFile $ _root ++ '/' : path
143 qAddDependentFile $ _root ++ '/' : path
144#endif
144#endif
145 exp' <- bsToExp bs
145 exp' <- bsToExp bs
146+ return $! TupE
147+#if MIN_VERSION_template_haskell(2,16,0)
148+ $ map Just
149+#endif
146− return $! TupE [LitE $ StringL path, exp']
150+ [LitE $ StringL path, exp']
147
151
148bsToExp :: B.ByteString -> Q Exp
152bsToExp :: B.ByteString -> Q Exp
149#if MIN_VERSION_template_haskell(2, 5, 0)
153#if MIN_VERSION_template_haskell(2, 5, 0)