Fixed local flags.

1 files changed, 8 insertions, 0 deletions

diff --git a/src/GF/Canon/Look.hs b/src/GF/Canon/Look.hs
index 2126edd60..1f55e4cdb 100644
--- a/src/GF/Canon/Look.hs
+++ b/src/GF/Canon/Look.hs
@@ -7,8 +7,10 @@ import CMacros
 ----import Values
 import MMacros
 import qualified Modules as M
+import qualified CanonToGrammar as CG
 
 import Operations
+import Option
 
 import Monad
 import List
@@ -63,6 +65,12 @@ lookupGlobal gr f = do
     AnyInd _ n -> lookupGlobal gr $ redirectIdent n f
     _ -> prtBad "cannot find global" f
 
+lookupOptionsCan :: CanonGrammar -> Err Options
+lookupOptionsCan gr = do
+  let fs = M.allFlags gr
+  os <- mapM CG.redFlag fs
+  return $ options os
+
 lookupParamValues :: CanonGrammar -> CIdent -> Err [Term]
 lookupParamValues gr pt@(CIQ m _) = do
   info <- lookupResInfo gr pt