diff options
| author | hallgren <hallgren@chalmers.se> | 2015-08-28 13:59:43 +0000 |
|---|---|---|
| committer | hallgren <hallgren@chalmers.se> | 2015-08-28 13:59:43 +0000 |
| commit | 5bfaf10de597af504e6d2784309e533b09a6451c (patch) | |
| tree | c0aacba9c492304cb3b0f905aa05bbefa1599d2c /src/compiler/GF/Grammar/Grammar.hs | |
| parent | f2952768d578309a8f75c7da417e3602c4d5e9e9 (diff) | |
Comment out some dead code found with -fwarn-unused-binds
Also fixed some warnings and tightened some imports
Diffstat (limited to 'src/compiler/GF/Grammar/Grammar.hs')
| -rw-r--r-- | src/compiler/GF/Grammar/Grammar.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/compiler/GF/Grammar/Grammar.hs b/src/compiler/GF/Grammar/Grammar.hs index 34b8a1bdf..6f254e7d3 100644 --- a/src/compiler/GF/Grammar/Grammar.hs +++ b/src/compiler/GF/Grammar/Grammar.hs @@ -190,9 +190,9 @@ allExtendsPlus gr i = where exts m = extends m ++ [j | MTInstance (j,_) <- [mtype m]] --- | initial search path: the nonqualified dependencies -searchPathModule :: ModuleInfo -> [ModuleName] -searchPathModule m = [i | OSimple i <- depPathModule m] +-- -- | initial search path: the nonqualified dependencies +-- searchPathModule :: ModuleInfo -> [ModuleName] +-- searchPathModule m = [i | OSimple i <- depPathModule m] prependModule :: Grammar -> Module -> Grammar prependModule (MGrammar mm ms) im@(i,m) = MGrammar (Map.insert i m mm) (im:ms) |