diff --git a/src/Handler/Utils/Form.hs b/src/Handler/Utils/Form.hs
index 0711da57e..86e56b95a 100644
--- a/src/Handler/Utils/Form.hs
+++ b/src/Handler/Utils/Form.hs
@@ -897,7 +897,7 @@ genericFileField mkOpts = Field{..}
 
     handleUpload :: FileField -> Maybe Text -> ConduitT File FileReference (YesodDB UniWorX) ()
     handleUpload FileField{fieldMaxFileSize} mIdent
-      =    C.filter (\File{..} -> maybe (const True) (<) fieldMaxFileSize $ maybe 0 (fromIntegral . olength) fileContent)
+      =    C.filter (\File{..} -> maybe (const True) (>) fieldMaxFileSize $ maybe 0 (fromIntegral . olength) fileContent)
         .| sinkFiles
         .| maybe (C.map id) mkSessionFile mIdent
       where