Commit e6061d6a authored by Mike Ledger's avatar Mike Ledger

i exprtet 1 based indices on command line

parent 1b0f1ad2
......@@ -156,7 +156,7 @@ interpret :: (Monoid a, Ord k) => MapExpr -> V.Vector (Map.Map k a) -> Map.Map k
interpret me0 v = go me0
where
go me = case me of
DocNum i -> v V.! i
DocNum i -> v V.! (i - 1)
Union a b -> Map.union (go a) (go b)
Difference a b -> Map.difference (go a) (go b)
Intersection a b -> Map.difference (go a) (go b)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment