query-converter/XPath.hs: add function parseXPath

GrammaticalFramework · Mar 1, 2018 · 32ef57e · 32ef57e
1 parent 776197a
commit 32ef57e
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/query-converter/XPath.hs b/query-converter/XPath.hs
@@ -12,10 +12,12 @@ import ErrM
 import Data.Char (isDigit)
 
 execXPath :: String -> [Document] -> IO () 
-execXPath s docs = putStrLn $ case pXPath (myLexer s) of
+execXPath s docs = putStrLn $ case parseXPath s of
   Ok x  -> prXPValue $ queryXPath x docs
   Bad s -> s
 
+parseXPath = pXPath . myLexer
+
 queryXPath :: XPath -> [Document] -> XPValue
 queryXPath xp docs = getXPValues $ concatMap (matchXPath xp) [el | DXML _ _ el <- docs]