From bdd27cbcaf5c5222062685561fdf8ca7a2e50876 Mon Sep 17 00:00:00 2001 From: Michael Snoyman Date: Sun, 2 Oct 2011 17:04:21 +0200 Subject: [PATCH] Remove some debug output --- yesod-form/Yesod/Form/Fields.hs | 1 - 1 file changed, 1 deletion(-) diff --git a/yesod-form/Yesod/Form/Fields.hs b/yesod-form/Yesod/Form/Fields.hs index 4d5bc805..2440cd12 100644 --- a/yesod-form/Yesod/Form/Fields.hs +++ b/yesod-form/Yesod/Form/Fields.hs @@ -486,7 +486,6 @@ fileAFormReq fs = AForm $ \(master, langs) menvs ints -> do fileAFormOpt :: (RenderMessage master msg, RenderMessage master FormMessage) => FieldSettings msg -> AForm sub master (Maybe FileInfo) fileAFormOpt fs = AForm $ \(master, langs) menvs ints -> do - liftIO $ print menvs let (name, ints') = case fsName fs of Just x -> (x, ints)