diff options
author | John MacFarlane <jgm@berkeley.edu> | 2020-01-04 09:55:15 -0800 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2020-01-04 09:55:15 -0800 |
commit | 8ed749702ff62bc41a88770c7f93a283a20a2a42 (patch) | |
tree | 90d537cf4d8e47ff768d46df06059c7fdd34ab96 /src/Text/Pandoc/Lua/Module | |
parent | c5b6321b21b85ce3b6c988211d67f07de8c3efe2 (diff) | |
download | pandoc-8ed749702ff62bc41a88770c7f93a283a20a2a42.tar.gz |
Add type annotations to assist ghci.
Diffstat (limited to 'src/Text/Pandoc/Lua/Module')
-rw-r--r-- | src/Text/Pandoc/Lua/Module/MediaBag.hs | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/src/Text/Pandoc/Lua/Module/MediaBag.hs b/src/Text/Pandoc/Lua/Module/MediaBag.hs index 951571ddd..2e354ba02 100644 --- a/src/Text/Pandoc/Lua/Module/MediaBag.hs +++ b/src/Text/Pandoc/Lua/Module/MediaBag.hs @@ -1,4 +1,5 @@ {-# LANGUAGE NoImplicitPrelude #-} +{-# LANGUAGE OverloadedStrings #-} {- | Module : Text.Pandoc.Lua.Module.MediaBag Copyright : Copyright © 2017-2019 Albert Krewinkel @@ -108,9 +109,9 @@ mediaDirectoryFn = do addEntry :: Lua.Integer -> (FilePath, MimeType, Int) -> Lua () addEntry idx (fp, mimeType, contentLength) = do Lua.newtable - Lua.push "path" *> Lua.push fp *> Lua.rawset (-3) - Lua.push "type" *> Lua.push mimeType *> Lua.rawset (-3) - Lua.push "length" *> Lua.push contentLength *> Lua.rawset (-3) + Lua.push ("path" :: T.Text) *> Lua.push fp *> Lua.rawset (-3) + Lua.push ("type" :: T.Text) *> Lua.push mimeType *> Lua.rawset (-3) + Lua.push ("length" :: T.Text) *> Lua.push contentLength *> Lua.rawset (-3) Lua.rawseti (-2) idx fetch :: T.Text |