digestive-functors 0.5.0.0 → 0.5.0.1

raw patch · 2 files changed

+3/−3 lines, 2 files

Files

• digestive-functors.cabal +1/−1
• src/Text/Digestive/View.hs +2/−2

@@ -1,5 +1,5 @@ Name:     digestive-functors-Version:  0.5.0.0+Version:  0.5.0.1 Synopsis: A practical formlet library  Description:

@@ -102,8 +102,8 @@ -------------------------------------------------------------------------------- -- | Returns all immediate subviews of a view subViews :: View v -> [View v]-subViews view@(View _ _ form _ _ _) =-    [subView r view | r <- go (SomeForm form)]+subViews view@(View _ ctx form _ _ _) =+    [subView r view | f <- lookupForm ctx form, r <- go f]   where     go (SomeForm f) = case getRef f of         Nothing -> [r | c <- children f, r <- go c]