Resolved unused-local-binds warnings

jgm · Feb 17, 2017 · b116011 · b116011
1 parent c2f9a52
commit b116011
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/Yst/Render.hs b/Yst/Render.hs
@@ -85,10 +85,10 @@ renderNavNode targeturl (NavPage tit pageurl) =
 renderNavNode targeturl (NavMenu tit nodes) = li_ [] $
     do a_ [class_ "tree-toggle nav-header"] (toHtml tit)
        ul_ [class_ "nav tree"] (mapM_ (renderNavNode targeturl) nodes)
-    where active = targeturl `isInNavNodes` nodes
-          isInNavNodes u = any (isInNavNode u)
-          isInNavNode u (NavPage _ u') = u == u'
-          isInNavNode u (NavMenu _ ns) = u `isInNavNodes` ns
+    -- where active = targeturl `isInNavNodes` nodes
+    --       isInNavNodes u = any (isInNavNode u)
+    --       isInNavNode u (NavPage _ u') = u == u'
+    --       isInNavNode u (NavMenu _ ns) = u `isInNavNodes` ns
 
 formatFromExtension :: FilePath -> Format
 formatFromExtension f = case (map toLower $ takeExtension f) of