Permalink
Browse files

No need to look for a ref when a Singleton is used directly

  • Loading branch information...
1 parent e60640b commit 70094969168033a9bc33575ac98deca37555b75d @ozataman ozataman committed Apr 20, 2012
Showing with 2 additions and 0 deletions.
  1. +2 −0 digestive-functors/src/Text/Digestive/Form/Internal.hs
View
2 digestive-functors/src/Text/Digestive/Form/Internal.hs
@@ -141,6 +141,8 @@ eval' :: Monad m => Path -> Method -> Env m -> Form v m a
eval' context method env form = case form of
+ Pure Nothing (Singleton x) -> return (pure x, [])
+
Pure Nothing _ ->
error "No ref specified for field"

0 comments on commit 7009496

Please sign in to comment.