From 1959ec7aae7a47b21e9825d217bb6523162bd57a Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Mon, 4 Aug 2014 12:29:35 +0300
Subject: [PATCH] jqueryAutocmpleteField' #793

---
 yesod-form/Yesod/Form/Jquery.hs | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/yesod-form/Yesod/Form/Jquery.hs b/yesod-form/Yesod/Form/Jquery.hs
index 2c4ae250..362eb8a0 100644
--- a/yesod-form/Yesod/Form/Jquery.hs
+++ b/yesod-form/Yesod/Form/Jquery.hs
@@ -7,6 +7,7 @@ module Yesod.Form.Jquery
     ( YesodJquery (..)
     , jqueryDayField
     , jqueryAutocompleteField
+    , jqueryAutocompleteField'
     , googleHostedJqueryUiCss
     , JqueryDaySettings (..)
     , Default (..)
@@ -98,7 +99,13 @@ $(function(){
 
 jqueryAutocompleteField :: (RenderMessage site FormMessage, YesodJquery site)
                         => Route site -> Field (HandlerT site IO) Text
-jqueryAutocompleteField src = Field
+jqueryAutocompleteField = jqueryAutocompleteField' 2
+
+jqueryAutocompleteField' :: (RenderMessage site FormMessage, YesodJquery site)
+                         => Int -- ^ autocomplete minimum length
+                         -> Route site
+                         -> Field (HandlerT site IO) Text
+jqueryAutocompleteField' minLen src = Field
     { fieldParse = parseHelper $ Right
     , fieldView = \theId name attrs val isReq -> do
         toWidget [shamlet|
@@ -109,7 +116,7 @@ $newline never
         addScript' urlJqueryUiJs
         addStylesheet' urlJqueryUiCss
         toWidget [julius|
-$(function(){$("##{rawJS theId}").autocomplete({source:"@{src}",minLength:2})});
+$(function(){$("##{rawJS theId}").autocomplete({source:"@{src}",minLength:#{toJSON minLen}})});
 |]
     , fieldEnctype = UrlEncoded
     }