Fix issue with monadic

Conflicts: digestive-functors/digestive-functors.cabal
ozataman · Jun 11, 2012 · 0af1d12 · 0af1d12
1 parent 27f84a6
commit 0af1d12
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/digestive-functors/src/Text/Digestive/Form/Internal.hs b/digestive-functors/src/Text/Digestive/Form/Internal.hs
@@ -189,7 +189,7 @@ eval' context method env form = case form of
         x''       <- bindResult (return x') (f >=> return . ann path)
         return (x'', inp)
 
-    Monadic x -> eval' path method env $ runIdentity x
+    Monadic x -> eval' context method env $ runIdentity x
 
   where
     path = context ++ maybeToList (getRef form)