Add debugViewPaths

jaspervdj · Dec 23, 2012 · 2f255ee · 2f255ee
1 parent 8155062
commit 2f255ee
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/digestive-functors/src/Text/Digestive/View.hs b/digestive-functors/src/Text/Digestive/View.hs
@@ -31,6 +31,9 @@ module Text.Digestive.View
       -- ** Errors
     , errors
     , childErrors
+
+      -- * Debugging
+    , debugViewPaths
     ) where
 
 
@@ -213,3 +216,8 @@ errors ref view = map snd $ filter ((== viewPath ref view) . fst) $
 childErrors :: Text -> View v -> [v]
 childErrors ref view = map snd $
     filter ((viewPath ref view `isPrefixOf`) . fst) $ viewErrors view
+
+
+--------------------------------------------------------------------------------
+debugViewPaths :: View v -> [Path]
+debugViewPaths (View _ _ form _ _ _) = debugFormPaths form