Remove some debug output

2011-10-02 17:04:21 +02:00 · 2011-10-02 17:04:21 +02:00 · bdd27cbcaf
commit bdd27cbcaf
parent f608be94da
1 changed files with 0 additions and 1 deletions
--- 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)