diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2018-01-15 10:46:40 -0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2018-01-15 10:46:40 -0800 |
| commit | 4b7bc40e8ba5a0981bd6429f48fa6acdb21d5d69 (patch) | |
| tree | 10e7dabcb2408d8f2a58c1880182205486448ae7 /src/Text/Pandoc/Lua/Module | |
| parent | f114153481b81320e73e55cc5524680cd8f5ebfc (diff) | |
| download | pandoc-4b7bc40e8ba5a0981bd6429f48fa6acdb21d5d69.tar.gz | |
Renaming: Json -> JSON in modules and functions.
Diffstat (limited to 'src/Text/Pandoc/Lua/Module')
| -rw-r--r-- | src/Text/Pandoc/Lua/Module/Utils.hs | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/Text/Pandoc/Lua/Module/Utils.hs b/src/Text/Pandoc/Lua/Module/Utils.hs index ab29cc0c7..f8eb96dc7 100644 --- a/src/Text/Pandoc/Lua/Module/Utils.hs +++ b/src/Text/Pandoc/Lua/Module/Utils.hs @@ -40,7 +40,7 @@ import Text.Pandoc.Lua.Util (addFunction, popValue) import qualified Data.Digest.Pure.SHA as SHA import qualified Data.ByteString.Lazy as BSL import qualified Foreign.Lua as Lua -import qualified Text.Pandoc.Filter.Json as JsonFilter +import qualified Text.Pandoc.Filter.JSON as JSONFilter import qualified Text.Pandoc.Shared as Shared -- | Push the "pandoc.utils" module to the lua stack. @@ -49,7 +49,7 @@ pushModule mbDatadir = do Lua.newtable addFunction "hierarchicalize" hierarchicalize addFunction "normalize_date" normalizeDate - addFunction "run_json_filter" (runJsonFilter mbDatadir) + addFunction "run_json_filter" (runJSONFilter mbDatadir) addFunction "sha1" sha1 addFunction "stringify" stringify addFunction "to_roman_numeral" toRomanNumeral @@ -67,12 +67,12 @@ normalizeDate :: String -> Lua (Lua.Optional String) normalizeDate = return . Lua.Optional . Shared.normalizeDate -- | Run a JSON filter on the given document. -runJsonFilter :: Maybe FilePath +runJSONFilter :: Maybe FilePath -> Pandoc -> FilePath -> Lua.Optional [String] -> Lua NumResults -runJsonFilter mbDatadir doc filterFile optArgs = do +runJSONFilter mbDatadir doc filterFile optArgs = do args <- case Lua.fromOptional optArgs of Just x -> return x Nothing -> do @@ -80,7 +80,7 @@ runJsonFilter mbDatadir doc filterFile optArgs = do (:[]) <$> popValue filterRes <- Lua.liftIO . runIO $ do setUserDataDir mbDatadir - JsonFilter.apply def args filterFile doc + JSONFilter.apply def args filterFile doc case filterRes of Left err -> Lua.raiseError (show err) Right d -> (1 :: NumResults) <$ Lua.push d |