diff --git a/README.md b/README.md
index be4c89ff..2c5af78b 100644
--- a/README.md
+++ b/README.md
@@ -95,9 +95,12 @@ virthualenv --name=yesod
 #### individual cabal packages
 
 ~~~ { .bash }
-# install and test all packages
+# install and test all packages in a repo
 ./scripts/install
 
+# If things seem weird, you may need to do a clean.
+./scripts/install --clean
+
 # move to the individual package you are working on
 cd shakespeare-text
 
@@ -109,17 +112,12 @@ cabal test
 
 #### cabal-dev
 
-cabal-dev works very well if you are working on a single package, but it can be very cumbersome to work on multiple packages at once.
+cabal-dev works very well if you are working on a single package.
+For working on multiple packages at once (installing Yesod), you need to use the shared sandbox feature.
 
 ### Use your development version of Yesod in your application
 
 Note that we have recommended to you to install Yesod into a sandboxed virthualenv environment.
 This is great for development, but when you want to use these development versions in your application that means they are not available through your user/global cabal database for your application.
 You should just continue to use your yesod virthualenv shell for your application.
-
-You can also use `cabal-dev install` to retrieve these packages.
-cd to your application directory, and the reference the source list.
-
-~~~ { .bash }
-cabal-dev install /path/to/yesodweb/yesod/*(/)
-~~~
+You can also use the same`cabal-dev shared sandbox.
diff --git a/scripts b/scripts
index d4cb555c..6a95e0a8 160000
--- a/scripts
+++ b/scripts
@@ -1 +1 @@
-Subproject commit d4cb555ca5fd6bc67f7da484a63d1fcdb149eac9
+Subproject commit 6a95e0a8dbc1b3d26d58c1eaadf24d1bdaa48c8b
diff --git a/sources.txt b/sources.txt
index 60ba2fa0..b5266622 100644
--- a/sources.txt
+++ b/sources.txt
@@ -1,10 +1,11 @@
-yesod-core
-yesod-json
-yesod-static
-yesod-persistent
-yesod-newsfeed
-yesod-form
-yesod-auth
-yesod-sitemap
-yesod-default
-yesod
+./yesod-routes
+./yesod-core
+./yesod-json
+./yesod-static
+./yesod-persistent
+./yesod-newsfeed
+./yesod-form
+./yesod-auth
+./yesod-sitemap
+./yesod-default
+./yesod
diff --git a/yesod-auth-kerberos/LICENSE b/yesod-auth-kerberos/LICENSE
deleted file mode 100644
index 8643e5d8..00000000
--- a/yesod-auth-kerberos/LICENSE
+++ /dev/null
@@ -1,25 +0,0 @@
-The following license covers this documentation, and the source code, except
-where otherwise indicated.
-
-Copyright 2010, Michael Snoyman. All rights reserved.
-
-Redistribution and use in source and binary forms, with or without
-modification, are permitted provided that the following conditions are met:
-
-* Redistributions of source code must retain the above copyright notice, this
-  list of conditions and the following disclaimer.
-
-* Redistributions in binary form must reproduce the above copyright notice,
-  this list of conditions and the following disclaimer in the documentation
-  and/or other materials provided with the distribution.
-
-THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS "AS IS" AND ANY EXPRESS OR
-IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
-MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO
-EVENT SHALL THE COPYRIGHT HOLDERS BE LIABLE FOR ANY DIRECT, INDIRECT,
-INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
-NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA,
-OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
-LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE
-OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
-ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
diff --git a/yesod-auth-kerberos/Setup.lhs b/yesod-auth-kerberos/Setup.lhs
deleted file mode 100755
index 1bc517f6..00000000
--- a/yesod-auth-kerberos/Setup.lhs
+++ /dev/null
@@ -1,8 +0,0 @@
-#!/usr/bin/env runhaskell
-
-> module Main where
-> import Distribution.Simple
-> import System.Cmd (system)
-
-> main :: IO ()
-> main = defaultMain
diff --git a/yesod-auth-kerberos/Yesod/Auth/Kerberos.hs b/yesod-auth-kerberos/Yesod/Auth/Kerberos.hs
deleted file mode 100644
index f28d5406..00000000
--- a/yesod-auth-kerberos/Yesod/Auth/Kerberos.hs
+++ /dev/null
@@ -1,123 +0,0 @@
-{-# LANGUAGE QuasiQuotes #-}
-{-# LANGUAGE CPP #-}
-{-# LANGUAGE ScopedTypeVariables #-}
-{-# LANGUAGE OverloadedStrings #-}
--- | In-built kerberos authentication for Yesod.
---
--- Please note that all configuration should have been done
--- manually on the machine prior to running the code.
---
--- On linux machines the configuration might be in /etc/krb5.conf.
--- It's worth checking if the Kerberos service provider (e.g. your university)
--- already provide a complete configuration file.
---
--- Be certain that you can manually login from a shell by typing
---
--- > kinit username
---
--- If you fill in your password and the program returns no error code,
--- then your kerberos configuration is setup properly.
--- Only then can this module be of any use.
-module Yesod.Auth.Kerberos
-    ( authKerberos,
-      genericAuthKerberos,
-      KerberosConfig(..),
-      defaultKerberosConfig
-    ) where
-
-#include "qq.h"
-
-import Yesod.Auth
-import Yesod.Auth.Message
-import Web.Authenticate.Kerberos
-import Data.Text (Text)
-import qualified Data.Text as T
-import Text.Hamlet
-import Yesod.Handler
-import Yesod.Widget
-import Control.Monad.IO.Class (liftIO)
-import Yesod.Form
-import Control.Applicative ((<$>), (<*>))
-
-data KerberosConfig = KerberosConfig {
-    -- | When a user gives username x, f(x) will be passed to Kerberos
-    usernameModifier :: Text -> Text
-    -- | When a user gives username x, f(x) will be passed to Yesod
-  , identifierModifier :: Text -> Text
-  }
-
--- | A configuration where the username the user provides is the one passed
--- to both kerberos and yesod
-defaultKerberosConfig :: KerberosConfig
-defaultKerberosConfig = KerberosConfig id id
-
--- | A configurable version of 'authKerberos'
-genericAuthKerberos :: YesodAuth m => KerberosConfig -> AuthPlugin m
-genericAuthKerberos config = AuthPlugin "kerberos" dispatch $ \tm -> addHamlet
-    [QQ(hamlet)|
-    <div id="header">
-        <h1>Login
-
-    <div id="login">
-        <form method="post" action="@{tm login}">
-            <table>
-                <tr>
-                    <th>Username:
-                    <td>
-                        <input id="x" name="username" autofocus="" required>
-                <tr>
-                    <th>Password:
-                    <td>
-                        <input type="password" name="password" required>
-                <tr>
-                    <td>&nbsp;
-                    <td>
-                        <input type="submit" value="Login">
-
-            <script>
-                if (!("autofocus" in document.createElement("input"))) {
-                    document.getElementById("x").focus();
-                }
-|]
-  where
-    dispatch "POST" ["login"] = postLoginR config >>= sendResponse
-    dispatch _ _              = notFound
-
-login :: AuthRoute
-login = PluginR "kerberos" ["login"]
-
--- | Kerberos with 'defaultKerberosConfig'
-authKerberos :: YesodAuth m => AuthPlugin m
-authKerberos = genericAuthKerberos defaultKerberosConfig
-
--- | Handle the login form
-postLoginR :: (YesodAuth y) => KerberosConfig -> GHandler Auth y ()
-postLoginR config = do
-    (mu,mp) <- runInputPost $ (,)
-        <$> iopt textField "username"
-        <*> iopt textField "password"
-
-    let errorMessage (message :: Text) = do
-        setMessage [QQ(shamlet)|Error: #{message}|]
-        toMaster <- getRouteToMaster
-        redirect $ toMaster LoginR
-
-    case (mu,mp) of
-        (Nothing, _      ) -> do
-            mr <- getMessageRender
-            errorMessage $ mr PleaseProvideUsername
-        (_      , Nothing) -> do
-            mr <- getMessageRender
-            errorMessage $ mr PleaseProvidePassword
-        (Just u , Just p ) -> do
-          result <- liftIO $ loginKerberos (usernameModifier config u) p
-          case result of
-            Ok -> do
-                let creds = Creds
-                      { credsIdent  = identifierModifier config u
-                      , credsPlugin = "Kerberos"
-                      , credsExtra  = []
-                      }
-                setCreds True creds
-            kerberosError -> errorMessage (T.pack $ show kerberosError)
-
diff --git a/yesod-auth-kerberos/include/qq.h b/yesod-auth-kerberos/include/qq.h
deleted file mode 100644
index 6b742913..00000000
--- a/yesod-auth-kerberos/include/qq.h
+++ /dev/null
@@ -1,10 +0,0 @@
-
--- CPP macro which choses which quasyquotes syntax to use depending
--- on GHC version.
---
--- QQ stands for quasyquote.
-#if GHC7
-# define QQ(x) x
-#else
-# define QQ(x) $x
-#endif
diff --git a/yesod-auth-kerberos/yesod-auth-kerberos.cabal b/yesod-auth-kerberos/yesod-auth-kerberos.cabal
deleted file mode 100644
index 267cafc6..00000000
--- a/yesod-auth-kerberos/yesod-auth-kerberos.cabal
+++ /dev/null
@@ -1,39 +0,0 @@
-name:            yesod-auth-kerberos
-version:         0.8.0
-license:         BSD3
-license-file:    LICENSE
-author:          Arash Rouhani
-maintainer:      Arash Rouhani
-synopsis:        Kerberos Authentication for Yesod.
-category:        Web, Yesod
-stability:       Stable
-cabal-version:   >= 1.6.0
-build-type:      Simple
-homepage:        http://www.yesodweb.com/
-extra-source-files: include/qq.h
-description:     Kerberos Authentication for Yesod.
-
-flag ghc7
-
-library
-    if flag(ghc7)
-        build-depends:   base                >= 4.3      && < 5
-        cpp-options:     -DGHC7
-    else
-        build-depends:   base                >= 4        && < 4.3
-    build-depends:   authenticate-kerberos   >= 1.0       && < 1.1
-                   , bytestring              >= 0.9.1.4   && < 0.10
-                   , yesod-core              >= 0.10      && < 0.11
-                   , yesod-auth              >= 0.8       && < 0.9
-                   , text                    >= 0.7       && < 0.12
-                   , hamlet                  >= 0.10      && < 0.11
-                   , yesod-form              >= 0.4       && < 0.5
-                   , transformers            >= 0.2.2     && < 0.3
-
-    exposed-modules: Yesod.Auth.Kerberos
-    ghc-options:     -Wall
-    include-dirs: include
-
-source-repository head
-  type:     git
-  location: https://github.com/yesodweb/yesod
diff --git a/yesod-auth-oauth/Yesod/Auth/OAuth.hs b/yesod-auth-oauth/Yesod/Auth/OAuth.hs
index 7efd9dfe..615cdb15 100644
--- a/yesod-auth-oauth/Yesod/Auth/OAuth.hs
+++ b/yesod-auth-oauth/Yesod/Auth/OAuth.hs
@@ -5,6 +5,7 @@ module Yesod.Auth.OAuth
     , oauthUrl
     , authTwitter
     , twitterUrl
+    , module Web.Authenticate.OAuth
     ) where
 
 #include "qq.h"
@@ -16,71 +17,86 @@ import Yesod.Widget
 import Text.Hamlet (shamlet)
 import Web.Authenticate.OAuth
 import Data.Maybe
-import Data.String
-import Data.ByteString.Char8 (pack)
 import Control.Arrow ((***))
-import Data.Text (Text, unpack)
+import Data.Text (Text)
+import qualified Data.Text as T
 import Data.Text.Encoding (encodeUtf8, decodeUtf8With)
 import Data.Text.Encoding.Error (lenientDecode)
 import Data.ByteString (ByteString)
 import Control.Applicative ((<$>), (<*>))
+import Data.Conduit
 
 oauthUrl :: Text -> AuthRoute
 oauthUrl name = PluginR name ["forward"]
 
-authOAuth :: YesodAuth m =>
-             Text -- ^ Service Name
-          -> String -- ^ OAuth Parameter Name to use for identify
-          -> String -- ^ Request URL
-          -> String -- ^ Access Token URL
-          -> String -- ^ Authorize URL
-          -> String -- ^ Consumer Key
-          -> String -- ^ Consumer Secret
+authOAuth :: YesodAuth m
+          => OAuth                        -- ^ 'OAuth' data-type for signing.
+          -> (Credential -> IO (Creds m)) -- ^ How to extract ident. 
           -> AuthPlugin m
-authOAuth name ident reqUrl accUrl authUrl key sec = AuthPlugin name dispatch login
+authOAuth oauth mkCreds = AuthPlugin name dispatch login
   where
+    name = T.pack $ oauthServerName oauth
     url = PluginR name []
-    oauth = OAuth { oauthServerName = unpack name, oauthRequestUri = reqUrl
-                  , oauthAccessTokenUri = accUrl, oauthAuthorizeUri = authUrl
-                  , oauthSignatureMethod = HMACSHA1
-                  , oauthConsumerKey = fromString key, oauthConsumerSecret = fromString sec
-                  , oauthCallback = Nothing
-                  , oauthRealm = Nothing
-                  }
+    lookupTokenSecret = bsToText . fromMaybe "" . lookup "oauth_token_secret" . unCredential
+    oauthSessionName = "__oauth_token_secret"
     dispatch "GET" ["forward"] = do
         render <- getUrlRender
         tm <- getRouteToMaster
         let oauth' = oauth { oauthCallback = Just $ encodeUtf8 $ render $ tm url }
         master <- getYesod
         tok <- lift $ getTemporaryCredential oauth' (authHttpManager master)
+        setSession oauthSessionName $ lookupTokenSecret tok
         redirect $ authorizeUrl oauth' tok
     dispatch "GET" [] = do
-        (verifier, oaTok) <- runInputGet $ (,)
-            <$> ireq textField "oauth_verifier"
-            <*> ireq textField "oauth_token"
-        let reqTok = Credential [ ("oauth_verifier", encodeUtf8 verifier), ("oauth_token", encodeUtf8 oaTok)
+      reqTok <-
+        if oauthVersion oauth == OAuth10
+          then do
+            oaTok  <- runInputGet $ ireq textField "oauth_token"
+            tokSec <- fromJust <$> lookupSession oauthSessionName
+            deleteSession oauthSessionName
+            return $ Credential [ ("oauth_token", encodeUtf8 oaTok)
+                                , ("oauth_token_secret", encodeUtf8 tokSec)
                                 ]
-        master <- getYesod
-        accTok <- lift $ getAccessToken oauth reqTok (authHttpManager master)
-        let crId = decodeUtf8With lenientDecode $ fromJust $ lookup (pack ident) $ unCredential accTok
-            creds = Creds name crId $ map (bsToText *** bsToText ) $ unCredential accTok
-        setCreds True creds
+          else do
+            (verifier, oaTok) <-
+                runInputGet $ (,) <$> ireq textField "oauth_verifier"
+                                  <*> ireq textField "oauth_token"
+            tokSec <- fromJust <$> lookupSession oauthSessionName
+            deleteSession oauthSessionName
+            return $ Credential [ ("oauth_verifier", encodeUtf8 verifier)
+                                , ("oauth_token", encodeUtf8 oaTok)
+                                , ("oauth_token_secret", encodeUtf8 tokSec)
+                                ]
+      master <- getYesod
+      accTok <- lift $ getAccessToken oauth reqTok (authHttpManager master)
+      creds  <- resourceLiftBase $ mkCreds accTok
+      setCreds True creds
     dispatch _ _ = notFound
     login tm = do
         render <- lift getUrlRender
         let oaUrl = render $ tm $ oauthUrl name
         addHtml
-          [QQ(shamlet)| <a href=#{oaUrl}>Login with #{name} |]
+          [QQ(shamlet)| <a href=#{oaUrl}>Login via #{name} |]
 
-authTwitter :: YesodAuth m =>
-               String -- ^ Consumer Key
-            -> String -- ^ Consumer Secret
+authTwitter :: YesodAuth m
+            => ByteString -- ^ Consumer Key
+            -> ByteString -- ^ Consumer Secret
             -> AuthPlugin m
-authTwitter = authOAuth "twitter"
-                        "screen_name"
-                        "http://twitter.com/oauth/request_token"
-                        "http://twitter.com/oauth/access_token"
-                        "http://twitter.com/oauth/authorize"
+authTwitter key secret = authOAuth
+                (newOAuth { oauthServerName      = "twitter"
+                          , oauthRequestUri      = "https://api.twitter.com/oauth/request_token"
+                          , oauthAccessTokenUri  = "https://api.twitter.com/oauth/access_token"
+                          , oauthAuthorizeUri    =  "https://api.twitter.com/oauth/authorize"
+                          , oauthSignatureMethod = HMACSHA1
+                          , oauthConsumerKey     = key
+                          , oauthConsumerSecret  = secret
+                          , oauthVersion         = OAuth10a
+                          })
+                extractCreds
+  where
+    extractCreds (Credential dic) = do
+        let crId = decodeUtf8With lenientDecode $ fromJust $ lookup "screen_name" dic
+        return $ Creds "twitter" crId $ map (bsToText *** bsToText ) dic
 
 twitterUrl :: AuthRoute
 twitterUrl = oauthUrl "twitter"
diff --git a/yesod-auth-oauth/yesod-auth-oauth.cabal b/yesod-auth-oauth/yesod-auth-oauth.cabal
index 171f7dcd..aa50df9f 100644
--- a/yesod-auth-oauth/yesod-auth-oauth.cabal
+++ b/yesod-auth-oauth/yesod-auth-oauth.cabal
@@ -1,5 +1,5 @@
 name:            yesod-auth-oauth
-version:         0.8.0
+version:         0.8.1
 license:         BSD3
 license-file:    LICENSE
 author:          Hiromi Ishii
@@ -21,12 +21,13 @@ library
         cpp-options:     -DGHC7
     else
         build-depends:   base                >= 4        && < 4.3
-    build-depends:   authenticate-oauth      >= 1.0       && < 1.1
+    build-depends:   authenticate-oauth      >= 1.1       && < 1.2
                    , bytestring              >= 0.9.1.4   && < 0.10
                    , yesod-core              >= 0.10      && < 0.11
                    , yesod-auth              >= 0.8       && < 0.9
                    , text                    >= 0.7       && < 0.12
                    , hamlet                  >= 0.10      && < 0.11
+                   , conduit                 >= 0.2       && < 0.3
                    , yesod-form              >= 0.4       && < 0.5
 
     exposed-modules: Yesod.Auth.OAuth
diff --git a/yesod-auth/Yesod/Auth/GoogleEmail.hs b/yesod-auth/Yesod/Auth/GoogleEmail.hs
index 5c0eb587..233866ca 100644
--- a/yesod-auth/Yesod/Auth/GoogleEmail.hs
+++ b/yesod-auth/Yesod/Auth/GoogleEmail.hs
@@ -18,7 +18,6 @@ module Yesod.Auth.GoogleEmail
 import Yesod.Auth
 import qualified Web.Authenticate.OpenId as OpenId
 
-import Yesod.Form
 import Yesod.Handler
 import Yesod.Widget
 import Yesod.Request
@@ -31,45 +30,36 @@ import Control.Exception.Lifted (try, SomeException)
 forwardUrl :: AuthRoute
 forwardUrl = PluginR "googleemail" ["forward"]
 
+googleIdent :: Text
+googleIdent = "https://www.google.com/accounts/o8/id"
+
 authGoogleEmail :: YesodAuth m => AuthPlugin m
 authGoogleEmail =
     AuthPlugin "googleemail" dispatch login
   where
     complete = PluginR "googleemail" ["complete"]
-    name = "openid_identifier"
-    login tm = do
-        [whamlet|
-<form method=get action=@{tm forwardUrl}>
-    <input type=hidden name=openid_identifier value=https://www.google.com/accounts/o8/id>
-    <input type=submit value=_{Msg.LoginGoogle}>
-|]
+    login tm =
+        [whamlet|<a href=@{tm forwardUrl}>_{Msg.LoginGoogle}|]
     dispatch "GET" ["forward"] = do
-        roid <- runInputGet $ iopt textField name
-        case roid of
-            Just oid -> do
-                render <- getUrlRender
-                toMaster <- getRouteToMaster
-                let complete' = render $ toMaster complete
-                master <- getYesod
-                eres <- lift $ try $ OpenId.getForwardUrl oid complete' Nothing
-                    [ ("openid.ax.type.email", "http://schema.openid.net/contact/email")
-                    , ("openid.ns.ax", "http://openid.net/srv/ax/1.0")
-                    , ("openid.ns.ax.required", "email")
-                    , ("openid.ax.mode", "fetch_request")
-                    , ("openid.ax.required", "email")
-                    , ("openid.ui.icon", "true")
-                    ] (authHttpManager master)
-                either
-                  (\err -> do
-                        setMessage $ toHtml $ show (err :: SomeException)
-                        redirect $ toMaster LoginR
-                        )
-                  redirect
-                  eres
-            Nothing -> do
-                toMaster <- getRouteToMaster
-                setMessageI Msg.NoOpenID
+        render <- getUrlRender
+        toMaster <- getRouteToMaster
+        let complete' = render $ toMaster complete
+        master <- getYesod
+        eres <- lift $ try $ OpenId.getForwardUrl googleIdent complete' Nothing
+            [ ("openid.ax.type.email", "http://schema.openid.net/contact/email")
+            , ("openid.ns.ax", "http://openid.net/srv/ax/1.0")
+            , ("openid.ns.ax.required", "email")
+            , ("openid.ax.mode", "fetch_request")
+            , ("openid.ax.required", "email")
+            , ("openid.ui.icon", "true")
+            ] (authHttpManager master)
+        either
+          (\err -> do
+                setMessage $ toHtml $ show (err :: SomeException)
                 redirect $ toMaster LoginR
+                )
+          redirect
+          eres
     dispatch "GET" ["complete", ""] = dispatch "GET" ["complete"] -- compatibility issues
     dispatch "GET" ["complete"] = do
         rr <- getRequest
diff --git a/yesod-auth/Yesod/Auth/Message.hs b/yesod-auth/Yesod/Auth/Message.hs
index e3af1dfa..383ef98f 100644
--- a/yesod-auth/Yesod/Auth/Message.hs
+++ b/yesod-auth/Yesod/Auth/Message.hs
@@ -6,6 +6,8 @@ module Yesod.Auth.Message
       -- * All languages
     , englishMessage
     , portugueseMessage
+    , swedishMessage
+    , germanMessage
     ) where
 
 import Data.Monoid (mappend)
@@ -113,3 +115,71 @@ portugueseMessage NowLoggedIn = "Você acaba de entrar no site com sucesso!"
 portugueseMessage LoginTitle = "Entrar no site"
 portugueseMessage PleaseProvideUsername = "Por favor digite seu nome de usuário"
 portugueseMessage PleaseProvidePassword = "Por favor digite sua senha"
+
+swedishMessage :: AuthMessage -> Text
+swedishMessage NoOpenID = "Fann ej OpenID identifierare"
+swedishMessage LoginOpenID = "Logga in via OpenID"
+swedishMessage LoginGoogle = "Logga in via Google"
+swedishMessage LoginYahoo = "Logga in via Yahoo"
+swedishMessage Email = "Epost"
+swedishMessage Password = "Lösenord"
+swedishMessage Register = "Registrera"
+swedishMessage RegisterLong = "Registrera ett nytt konto"
+swedishMessage EnterEmail = "Skriv in din epost nedan så kommer ett konfirmationsmail skickas till adressen."
+swedishMessage ConfirmationEmailSentTitle = "Konfirmationsmail skickat"
+swedishMessage (ConfirmationEmailSent email) =
+    "Ett konfirmationsmeddelande har skickats till" `mappend`
+    email `mappend`
+    "."
+swedishMessage AddressVerified = "Adress verifierad, vänligen välj nytt lösenord"
+swedishMessage InvalidKeyTitle = "Ogiltig verifikationsnyckel"
+swedishMessage InvalidKey = "Tyvärr, du angav en ogiltig verifimationsnyckel."
+swedishMessage InvalidEmailPass = "Ogiltig epost/lösenord kombination"
+swedishMessage BadSetPass = "Du måste vara inloggad för att ange ett lösenord"
+swedishMessage SetPassTitle = "Ange lösenord"
+swedishMessage SetPass = "Ange nytt lösenord"
+swedishMessage NewPass = "Nytt lösenord"
+swedishMessage ConfirmPass = "Godkänn"
+swedishMessage PassMismatch = "Lösenorden matcha ej, vänligen försök igen"
+swedishMessage PassUpdated = "Lösenord updaterades"
+swedishMessage Facebook = "Logga in med Facebook"
+swedishMessage LoginViaEmail = "Logga in via epost"
+swedishMessage InvalidLogin = "Ogiltigt login"
+swedishMessage NowLoggedIn = "Du är nu inloggad"
+swedishMessage LoginTitle = "Logga in"
+swedishMessage PleaseProvideUsername = "Vänligen fyll i användarnamn"
+swedishMessage PleaseProvidePassword = "Vänligen fyll i lösenord"
+
+germanMessage :: AuthMessage -> Text
+germanMessage NoOpenID = "Kein OpenID-Identifier gefunden"
+germanMessage LoginOpenID = "Login via OpenID"
+germanMessage LoginGoogle = "Login via Google"
+germanMessage LoginYahoo = "Login via Yahoo"
+germanMessage Email = "Email"
+germanMessage Password = "Passwort"
+germanMessage Register = "Registrieren"
+germanMessage RegisterLong = "Neuen Account registrieren"
+germanMessage EnterEmail = "Bitte die e-Mail Adresse angeben, eine Bestätigungsmail wird verschickt."
+germanMessage ConfirmationEmailSentTitle = "Bestätigung verschickt."
+germanMessage (ConfirmationEmailSent email) =
+    "Eine Bestätigung wurde an " `mappend`
+    email `mappend`
+    "versandt."
+germanMessage AddressVerified = "Adresse bestätigt, bitte neues Passwort angeben"
+germanMessage InvalidKeyTitle = "Ungültiger Bestätigungsschlüssel"
+germanMessage InvalidKey = "Das war leider ein ungültiger Bestätigungsschlüssel"
+germanMessage InvalidEmailPass = "Ungültiger Nutzername oder Passwort"
+germanMessage BadSetPass = "Um das Passwort zu ändern muss man eingeloggt sein"
+germanMessage SetPassTitle = "Passwort angeben"
+germanMessage SetPass = "Neues Passwort angeben"
+germanMessage NewPass = "Neues Passwort"
+germanMessage ConfirmPass = "Bestätigen"
+germanMessage PassMismatch = "Die Passwörter stimmten nicht überein"
+germanMessage PassUpdated = "Passwort überschrieben"
+germanMessage Facebook = "Login über Facebook"
+germanMessage LoginViaEmail = "Login via e-Mail"
+germanMessage InvalidLogin = "Ungültiger Login"
+germanMessage NowLoggedIn = "Login erfolgreich"
+germanMessage LoginTitle = "Login"
+germanMessage PleaseProvideUsername = "Bitte Nutzername angeben"
+germanMessage PleaseProvidePassword = "Bitte Passwort angeben"
diff --git a/yesod-auth/kerberos.hs b/yesod-auth/kerberos.hs
deleted file mode 100644
index b2ae42b7..00000000
--- a/yesod-auth/kerberos.hs
+++ /dev/null
@@ -1,41 +0,0 @@
-{-# LANGUAGE OverloadedStrings #-}
-{-# LANGUAGE TypeFamilies #-}
-{-# LANGUAGE QuasiQuotes #-}
-{-# LANGUAGE TemplateHaskell #-}
-{-# LANGUAGE MultiParamTypeClasses #-}
-import Yesod
-import Yesod.Auth
-import Yesod.Form
-import Yesod.Auth.Kerberos
-
-data Kerberos = Kerberos
-
-mkYesod "Kerberos" [parseRoutes|
-/ RootR GET
-/after AfterLoginR GET
-/auth AuthR Auth getAuth
-|]
-
-getRootR :: Handler ()
-getRootR = redirect RedirectTemporary $ AuthR LoginR
-
-getAfterLoginR :: Handler RepHtml
-getAfterLoginR = defaultLayout $ return ()
-
-instance Yesod Kerberos where
-    approot _ = "http://localhost:3000"
-
-instance YesodAuth Kerberos where
-    type AuthId Kerberos = String
-    loginDest _ = AfterLoginR
-    logoutDest _ = AuthR LoginR
-    getAuthId _ = do
-        liftIO $ putStrLn "getAuthId"
-        return $ Just "foo"
-    authPlugins = [authKerberos]
-
-instance RenderMessage Kerberos FormMessage where
-    renderMessage _ _ = defaultFormMessage
-
-main :: IO ()
-main = warpDebug 3000 Kerberos
diff --git a/yesod-auth/yesod-auth.cabal b/yesod-auth/yesod-auth.cabal
index dfcd7d70..1524adff 100644
--- a/yesod-auth/yesod-auth.cabal
+++ b/yesod-auth/yesod-auth.cabal
@@ -1,5 +1,5 @@
 name:            yesod-auth
-version:         0.8.1
+version:         0.8.1.1
 license:         BSD3
 license-file:    LICENSE
 author:          Michael Snoyman, Patrick Brisbin
diff --git a/yesod-core/Yesod/Content.hs b/yesod-core/Yesod/Content.hs
index 41afaee0..5bf1c1a7 100644
--- a/yesod-core/Yesod/Content.hs
+++ b/yesod-core/Yesod/Content.hs
@@ -19,6 +19,7 @@ module Yesod.Content
     , typeJpeg
     , typePng
     , typeGif
+    , typeSvg
     , typeJavascript
     , typeCss
     , typeFlv
@@ -196,6 +197,9 @@ typePng = "image/png"
 typeGif :: ContentType
 typeGif = "image/gif"
 
+typeSvg :: ContentType
+typeSvg = "image/svg+xml"
+
 typeJavascript :: ContentType
 typeJavascript = "text/javascript; charset=utf-8"
 
diff --git a/yesod-core/Yesod/Core.hs b/yesod-core/Yesod/Core.hs
index 015bc4d7..4362cee1 100644
--- a/yesod-core/Yesod/Core.hs
+++ b/yesod-core/Yesod/Core.hs
@@ -33,6 +33,10 @@ module Yesod.Core
     , clientSessionBackend
     , saveClientSession
     , loadClientSession
+    -- * JS loaders
+    , loadJsYepnope
+    , ScriptLoadPosition (..)
+    , BottomOfHeadAsync
       -- * Misc
     , yesodVersion
     , yesodRender
diff --git a/yesod-core/Yesod/Internal/Core.hs b/yesod-core/Yesod/Internal/Core.hs
index 352c8dc7..20a781cb 100644
--- a/yesod-core/Yesod/Internal/Core.hs
+++ b/yesod-core/Yesod/Internal/Core.hs
@@ -31,6 +31,10 @@ module Yesod.Internal.Core
     , clientSessionBackend
     , saveClientSession
     , loadClientSession
+      -- * jsLoader
+    , ScriptLoadPosition (..)
+    , BottomOfHeadAsync
+    , loadJsYepnope
       -- * Misc
     , yesodVersion
     , yesodRender
@@ -321,11 +325,23 @@ class RenderRoute a => Yesod a where
     gzipSettings :: a -> GzipSettings
     gzipSettings _ = def
 
-    -- | Location of yepnope.js, if any. If one is provided, then all
+    -- | Deprecated. Use 'jsloader'. To use yepnope: jsLoader = BottomOfHeadAsync (loadJsYepnope eyn)
+    -- Location of yepnope.js, if any. If one is provided, then all
     -- Javascript files will be loaded asynchronously.
     yepnopeJs :: a -> Maybe (Either Text (Route a))
     yepnopeJs _ = Nothing
 
+    -- | Where to Load sripts from. We recommend changing this to 'BottomOfBody'
+    -- Alternatively use the built in async yepnope loader:
+    --
+    -- > BottomOfHeadAsync $ loadJsYepnope $ Right $ StaticR js_modernizr_js
+    --
+    -- Or write your own async js loader: see 'loadJsYepnope'
+    jsLoader :: a -> ScriptLoadPosition a
+    jsLoader y = case yepnopeJs y of
+                   Nothing  -> BottomOfHeadBlocking
+                   Just eyn -> BottomOfHeadAsync (loadJsYepnope eyn)
+
     -- | Create a session backend. Returning `Nothing' disables sessions.
     makeSessionBackend :: a -> IO (Maybe (SessionBackend a))
     makeSessionBackend a = do
@@ -578,7 +594,17 @@ widgetToPageContent w = do
 
     -- modernizr should be at the end of the <head> http://www.modernizr.com/docs/#installing
     -- the asynchronous loader means your page doesn't have to wait for all the js to load
-    let (mcomplete, ynscripts) = ynHelper render scripts jscript jsLoc
+    let (mcomplete, asyncScripts) = asyncHelper render scripts jscript jsLoc
+        regularScriptLoad = [HAMLET|
+$forall s <- scripts
+    ^{mkScriptTag s}
+$maybe j <- jscript
+    $maybe s <- jsLoc
+        <script src="#{s}">
+    $nothing
+        <script>^{jelper j}
+|]
+
         headAll = [HAMLET|
 \^{head'}
 $forall s <- stylesheets
@@ -594,31 +620,22 @@ $forall s <- css
             <style media=#{media}>#{content}
         $nothing
             <style>#{content}
-$maybe eyn <- yepnopeJs master
-    $maybe yn <- left eyn
-        <script src=#{yn}>
-    $maybe yn <- right eyn
-        <script src=@{yn}>
-    $maybe complete <- mcomplete
-        <script>yepnope({load:#{ynscripts},complete:function(){^{complete}}})
-    $nothing
-        <script>yepnope({load:#{ynscripts}})
-$nothing
-    $forall s <- scripts
-        ^{mkScriptTag s}
-    $maybe j <- jscript
-        $maybe s <- jsLoc
-            <script src="#{s}">
-        $nothing
-            <script>^{jelper j}
+$case jsLoader master
+  $of BottomOfBody
+  $of BottomOfHeadAsync asyncJsLoader
+      ^{asyncJsLoader asyncScripts mcomplete}
+  $of BottomOfHeadBlocking
+      ^{regularScriptLoad}
+|]
+    let bodyScript = [HAMLET|
+^{body}
+^{regularScriptLoad}
 |]
-    return $ PageContent title headAll body
-  where
-    left (Left x) = Just x
-    left _ = Nothing
-    right (Right x) = Just x
-    right _ = Nothing
 
+    return $ PageContent title headAll (case jsLoader master of
+      BottomOfBody -> bodyScript
+      _ -> body)
+  where
     renderLoc' render' (Local url) = render' url []
     renderLoc' _ (Remote s) = s
 
@@ -632,13 +649,48 @@ $nothing
             : attrs
             )
 
-ynHelper :: (url -> [x] -> Text)
+data ScriptLoadPosition master
+    = BottomOfBody
+    | BottomOfHeadBlocking
+    | BottomOfHeadAsync (BottomOfHeadAsync master)
+
+type BottomOfHeadAsync master
+       = [Text] -- ^ urls to load asynchronously
+      -> Maybe (HtmlUrl (Route master)) -- ^ widget of js to run on async completion
+      -> (HtmlUrl (Route master)) -- ^ widget to insert at the bottom of <head>
+
+left :: Either a b -> Maybe a
+left (Left x) = Just x
+left _ = Nothing
+
+right :: Either a b -> Maybe b
+right (Right x) = Just x
+right _ = Nothing
+
+jsonArray :: [Text] -> Html
+jsonArray = unsafeLazyByteString . encode . Array . Vector.fromList . map String
+
+-- | For use with setting 'jsLoader' to 'BottomOfHeadAsync'
+loadJsYepnope :: Yesod master => Either Text (Route master) -> [Text] -> Maybe (HtmlUrl (Route master)) -> (HtmlUrl (Route master))
+loadJsYepnope eyn scripts mcomplete =
+  [HAMLET|
+    $maybe yn <- left eyn
+        <script src=#{yn}>
+    $maybe yn <- right eyn
+        <script src=@{yn}>
+    $maybe complete <- mcomplete
+        <script>yepnope({load:#{jsonArray scripts},complete:function(){^{complete}}});
+    $nothing
+        <script>yepnope({load:#{jsonArray scripts}});
+|]
+
+asyncHelper :: (url -> [x] -> Text)
          -> [Script (url)]
          -> Maybe (JavascriptUrl (url))
          -> Maybe Text
-         -> (Maybe (HtmlUrl (url)), Html)
-ynHelper render scripts jscript jsLoc =
-    (mcomplete, unsafeLazyByteString $ encode $ Array $ Vector.fromList $ map String scripts'')
+         -> (Maybe (HtmlUrl url), [Text])
+asyncHelper render scripts jscript jsLoc =
+    (mcomplete, scripts'')
   where
     scripts' = map goScript scripts
     scripts'' =
diff --git a/yesod-core/test/YesodCoreTest.hs b/yesod-core/test/YesodCoreTest.hs
index 9a1d23c7..012205e4 100644
--- a/yesod-core/test/YesodCoreTest.hs
+++ b/yesod-core/test/YesodCoreTest.hs
@@ -10,6 +10,7 @@ import YesodCoreTest.InternalRequest
 import YesodCoreTest.ErrorHandling
 import YesodCoreTest.Cache
 import qualified YesodCoreTest.Redirect as Redirect
+import qualified YesodCoreTest.JsLoader as JsLoader
 
 import Test.Hspec
 
@@ -25,4 +26,5 @@ specs =
     , errorHandlingTest
     , cacheTest
     , Redirect.specs
+    , JsLoader.specs
     ]
diff --git a/yesod-core/test/YesodCoreTest/JsLoader.hs b/yesod-core/test/YesodCoreTest/JsLoader.hs
new file mode 100644
index 00000000..ea264563
--- /dev/null
+++ b/yesod-core/test/YesodCoreTest/JsLoader.hs
@@ -0,0 +1,40 @@
+{-# LANGUAGE QuasiQuotes, TypeFamilies, TemplateHaskell, MultiParamTypeClasses #-}
+{-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE FlexibleInstances #-}
+module YesodCoreTest.JsLoader (specs) where
+
+import YesodCoreTest.JsLoaderSites.HeadAsync (HA(..))
+import YesodCoreTest.JsLoaderSites.Bottom (B(..))
+
+import Test.Hspec
+import Test.Hspec.HUnit ()
+
+import Yesod.Core hiding (Request)
+import Network.Wai.Test
+
+data H = H
+mkYesod "H" [parseRoutes|
+/ HeadR GET
+|]
+instance Yesod H
+
+getHeadR :: Handler RepHtml
+getHeadR = defaultLayout $ addScriptRemote "load.js"
+
+specs :: [Spec]
+specs = describe "Test.Links" [
+    it "link from head" $ runner H $ do
+      res <- request defaultRequest
+      assertBody "<!DOCTYPE html>\n<html><head><title></title><script src=\"load.js\"></script></head><body></body></html>" res
+
+  , it "link from head async" $ runner HA $ do
+      res <- request defaultRequest
+      assertBody "<!DOCTYPE html>\n<html><head><title></title><script src=\"yepnope.js\"></script><script>yepnope({load:[\"load.js\"]});</script></head><body></body></html>" res
+
+  , it "link from bottom" $ runner B $ do
+      res <- request defaultRequest
+      assertBody "<!DOCTYPE html>\n<html><head><title></title></head><body><script src=\"load.js\"></script></body></html>" res
+  ]
+
+runner :: (YesodDispatch master master, Yesod master) => master -> Session () -> IO ()
+runner app f = toWaiApp app >>= runSession f
diff --git a/yesod-core/test/YesodCoreTest/JsLoaderSites/Bottom.hs b/yesod-core/test/YesodCoreTest/JsLoaderSites/Bottom.hs
new file mode 100644
index 00000000..81ef8eb1
--- /dev/null
+++ b/yesod-core/test/YesodCoreTest/JsLoaderSites/Bottom.hs
@@ -0,0 +1,17 @@
+{-# LANGUAGE QuasiQuotes, TypeFamilies, TemplateHaskell, MultiParamTypeClasses #-}
+{-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE FlexibleInstances #-}
+module YesodCoreTest.JsLoaderSites.Bottom (B(..)) where
+
+import Yesod.Core
+
+data B = B
+mkYesod "B" [parseRoutes|
+/ BottomR GET
+|]
+instance Yesod B where
+  jsLoader _ = BottomOfBody
+
+getBottomR :: Handler RepHtml
+getBottomR = defaultLayout $ addScriptRemote "load.js"
+
diff --git a/yesod-core/test/YesodCoreTest/JsLoaderSites/HeadAsync.hs b/yesod-core/test/YesodCoreTest/JsLoaderSites/HeadAsync.hs
new file mode 100644
index 00000000..438fa83f
--- /dev/null
+++ b/yesod-core/test/YesodCoreTest/JsLoaderSites/HeadAsync.hs
@@ -0,0 +1,16 @@
+{-# LANGUAGE QuasiQuotes, TypeFamilies, TemplateHaskell, MultiParamTypeClasses #-}
+{-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE FlexibleInstances #-}
+module YesodCoreTest.JsLoaderSites.HeadAsync (HA(..)) where
+
+import Yesod.Core
+
+data HA = HA
+mkYesod "HA" [parseRoutes|
+/ HeadAsyncR GET
+|]
+instance Yesod HA where
+  jsLoader _ = BottomOfHeadAsync $ loadJsYepnope $ Left "yepnope.js"
+
+getHeadAsyncR :: Handler RepHtml
+getHeadAsyncR = defaultLayout $ addScriptRemote "load.js"
diff --git a/yesod-core/yesod-core.cabal b/yesod-core/yesod-core.cabal
index 315e3041..4a4c7ac7 100644
--- a/yesod-core/yesod-core.cabal
+++ b/yesod-core/yesod-core.cabal
@@ -1,5 +1,5 @@
 name:            yesod-core
-version:         0.10.1
+version:         0.10.2.2
 license:         BSD3
 license-file:    LICENSE
 author:          Michael Snoyman <michael@snoyman.com>
@@ -49,13 +49,13 @@ library
     build-depends:   time                  >= 1.1.4
                    , yesod-routes          >= 0.0.1    && < 0.1
                    , wai                   >= 1.1      && < 1.2
-                   , wai-extra             >= 1.1      && < 1.2
+                   , wai-extra             >= 1.1      && < 1.3
                    , bytestring            >= 0.9.1.4  && < 0.10
                    , text                  >= 0.7      && < 0.12
                    , template-haskell
                    , path-pieces           >= 0.1      && < 0.2
                    , hamlet                >= 0.10.7   && < 0.11
-                   , shakespeare           >= 0.10     && < 0.11
+                   , shakespeare           >= 0.10     && < 0.12
                    , shakespeare-js        >= 0.11     && < 0.12
                    , shakespeare-css       >= 0.10.5   && < 0.11
                    , shakespeare-i18n      >= 0.0      && < 0.1
diff --git a/yesod-default/Yesod/Default/Util.hs b/yesod-default/Yesod/Default/Util.hs
index fd3c4614..1b7bbe87 100644
--- a/yesod-default/Yesod/Default/Util.hs
+++ b/yesod-default/Yesod/Default/Util.hs
@@ -7,6 +7,7 @@ module Yesod.Default.Util
     , globFile
     , widgetFileNoReload
     , widgetFileReload
+    , widgetFileJsCss
     ) where
 
 import Control.Monad.IO.Class (liftIO)
@@ -72,8 +73,21 @@ widgetFileReload x = do
     let l = whenExists x "lucius"  luciusFileReload
     [|$h >> addCassius $c >> addJulius $j >> addLucius $l|]
 
+widgetFileJsCss :: (String, FilePath -> Q Exp) -- ^ Css file extenstion and loading function. example: ("cassius", cassiusFileReload)
+                -> (String, FilePath -> Q Exp) -- ^ Css file extenstion and loading function. example: ("julius", juliusFileReload)
+                -> FilePath -> Q Exp
+widgetFileJsCss (jsExt, jsLoad) (csExt, csLoad) x = do
+    let h = whenExists x "hamlet"  whamletFile
+    let c = whenExists x csExt csLoad
+    let j = whenExists x jsExt jsLoad
+    [|$h >> addCassius $c >> addJulius $j|]
+
 whenExists :: String -> String -> (FilePath -> Q Exp) -> Q Exp
-whenExists x glob f = do
+whenExists = warnUnlessExists False
+
+warnUnlessExists :: Bool -> String -> String -> (FilePath -> Q Exp) -> Q Exp
+warnUnlessExists shouldWarn x glob f = do
     let fn = globFile glob x
     e <- qRunIO $ doesFileExist fn
+    unless (shouldWarn && e) $ qRunIO $ putStrLn $ "widget file not found: " ++ fn
     if e then f fn else [|mempty|]
diff --git a/yesod-default/yesod-default.cabal b/yesod-default/yesod-default.cabal
index cc36a60e..cbaf6aa7 100644
--- a/yesod-default/yesod-default.cabal
+++ b/yesod-default/yesod-default.cabal
@@ -21,7 +21,7 @@ library
                    , yesod-core            >= 0.10.1&& < 0.11
                    , warp                  >= 1.1   && < 1.2
                    , wai                   >= 1.1   && < 1.2
-                   , wai-extra             >= 1.1   && < 1.2
+                   , wai-extra             >= 1.1   && < 1.3
                    , bytestring            >= 0.9.1.4
                    , transformers          >= 0.2.2 && < 0.3
                    , text                  >= 0.9
diff --git a/yesod-form/Yesod/Form/Fields.hs b/yesod-form/Yesod/Form/Fields.hs
index e9416de0..167b9b9d 100644
--- a/yesod-form/Yesod/Form/Fields.hs
+++ b/yesod-form/Yesod/Form/Fields.hs
@@ -173,7 +173,7 @@ htmlField = Field
     }
   where showVal = either id (pack . renderHtml)
 
--- | A newtype wrapper around a 'String' that converts newlines to HTML
+-- | A newtype wrapper around a 'Text' that converts newlines to HTML
 -- br-tags.
 newtype Textarea = Textarea { unTextarea :: Text }
     deriving (Show, Read, Eq, PersistField)
diff --git a/yesod-form/Yesod/Form/Functions.hs b/yesod-form/Yesod/Form/Functions.hs
index 59cc912d..04e7d80e 100644
--- a/yesod-form/Yesod/Form/Functions.hs
+++ b/yesod-form/Yesod/Form/Functions.hs
@@ -297,17 +297,17 @@ $forall view <- views
 --
 -- Sample Hamlet:
 --
--- >        <form method=post action=@{ActionR} enctype=#{formEnctype}>
--- >          <fieldset>
--- >            <legend>_{MsgLegend}
--- >            $case result
--- >              $of FormFailure reasons
--- >                $forall reason <- reasons
--- >                  <div .alert-message .error>#{reason}
--- >              $of _
--- >            ^{formWidget}
--- >            <div .actions>
--- >              <input .btn .primary type=submit value=_{MsgSubmit}>
+-- >  <form .form-horizontal method=post action=@{ActionR} enctype=#{formEnctype}>
+-- >    <fieldset>
+-- >      <legend>_{MsgLegend}
+-- >      $case result
+-- >        $of FormFailure reasons
+-- >          $forall reason <- reasons
+-- >            <div .alert .alert-error>#{reason}
+-- >        $of _
+-- >      ^{formWidget}
+-- >      <div .form-actions>
+-- >        <input .btn .primary type=submit value=_{MsgSubmit}>
 renderBootstrap :: FormRender sub master a
 renderBootstrap aform fragment = do
     (res, views') <- aFormToForm aform
@@ -317,9 +317,9 @@ renderBootstrap aform fragment = do
     let widget = [whamlet|
 \#{fragment}
 $forall view <- views
-    <div .clearfix :fvRequired view:.required :not $ fvRequired view:.optional :has $ fvErrors view:.error>
-        <label for=#{fvId view}>#{fvLabel view}
-        <div.input>
+    <div .control-group .clearfix :fvRequired view:.required :not $ fvRequired view:.optional :has $ fvErrors view:.error>
+        <label .control-label for=#{fvId view}>#{fvLabel view}
+        <div .controls .input>
             ^{fvInput view}
             $maybe tt <- fvTooltip view
                 <span .help-block>#{tt}
diff --git a/yesod-form/Yesod/Form/I18n/German.hs b/yesod-form/Yesod/Form/I18n/German.hs
index aac5229e..d6f4de94 100644
--- a/yesod-form/Yesod/Form/I18n/German.hs
+++ b/yesod-form/Yesod/Form/I18n/German.hs
@@ -16,7 +16,7 @@ germanFormMessage (MsgInvalidEmail t) = "Ungültige e-Mail Adresse: " `mappend`
 germanFormMessage (MsgInvalidHour t) = "Ungültige Stunde: " `mappend` t
 germanFormMessage (MsgInvalidMinute t) = "Ungültige Minute: " `mappend` t
 germanFormMessage (MsgInvalidSecond t) = "Ungültige Sekunde: " `mappend` t
-germanFormMessage MsgCsrfWarning = "Bitte bestätigen Sie ihre Eingabe, als Schutz gegen Cross-Site Forgery Angriffen"
+germanFormMessage MsgCsrfWarning = "Bitte bestätigen Sie ihre Eingabe, als Schutz gegen Cross-Site Forgery Angriffe"
 germanFormMessage MsgValueRequired = "Wert wird benötigt"
 germanFormMessage (MsgInputNotFound t) = "Eingabe nicht gefunden: " `mappend` t
 germanFormMessage MsgSelectNone = "<Nichts>"
diff --git a/yesod-form/Yesod/Form/Nic.hs b/yesod-form/Yesod/Form/Nic.hs
index 17361481..e2984647 100644
--- a/yesod-form/Yesod/Form/Nic.hs
+++ b/yesod-form/Yesod/Form/Nic.hs
@@ -11,7 +11,7 @@ module Yesod.Form.Nic
     ) where
 
 import Yesod.Handler
-import Yesod.Core (Route, yepnopeJs, Yesod)
+import Yesod.Core (Route, ScriptLoadPosition(..), jsLoader, Yesod)
 import Yesod.Form
 import Yesod.Widget
 import Text.HTML.SanitizeXSS (sanitizeBalance)
@@ -43,8 +43,8 @@ nicHtmlField = Field
         addScript' urlNicEdit
         master <- lift getYesod
         addJulius $
-          case yepnopeJs master of
-            Nothing ->
+          case jsLoader master of
+            BottomOfHeadBlocking ->
 #if __GLASGOW_HASKELL__ >= 700
                 [julius|
 #else
@@ -52,7 +52,7 @@ nicHtmlField = Field
 #endif
 bkLib.onDomLoaded(function(){new nicEditor({fullPanel:true}).panelInstance("#{theId}")});
 |]
-            Just _ ->
+            _ ->
 #if __GLASGOW_HASKELL__ >= 700
                 [julius|
 #else
diff --git a/yesod-form/yesod-form.cabal b/yesod-form/yesod-form.cabal
index 8b12cdf7..024cdec5 100644
--- a/yesod-form/yesod-form.cabal
+++ b/yesod-form/yesod-form.cabal
@@ -1,5 +1,5 @@
 name:            yesod-form
-version:         0.4.1
+version:         0.4.2.1
 license:         BSD3
 license-file:    LICENSE
 author:          Michael Snoyman <michael@snoyman.com>
@@ -14,7 +14,7 @@ description:     Form handling support for Yesod Web Framework
 
 library
     build-depends:   base                  >= 4        && < 5
-                   , yesod-core            >= 0.10.1   && < 0.11
+                   , yesod-core            >= 0.10.2   && < 0.11
                    , yesod-persistent      >= 0.3.1    && < 0.4
                    , time                  >= 1.1.4
                    , hamlet                >= 0.10     && < 0.11
diff --git a/yesod-json/yesod-json.cabal b/yesod-json/yesod-json.cabal
index 2d15b5bb..d46430ce 100644
--- a/yesod-json/yesod-json.cabal
+++ b/yesod-json/yesod-json.cabal
@@ -26,7 +26,7 @@ library
                    , conduit               >= 0.2      && < 0.3
                    , transformers          >= 0.2.2    && < 0.3
                    , wai                   >= 1.1      && < 1.2
-                   , wai-extra             >= 1.1      && < 1.2
+                   , wai-extra             >= 1.1      && < 1.3
                    , bytestring            >= 0.9      && < 0.10
                    , safe                  >= 0.2      && < 0.4
     exposed-modules: Yesod.Json
diff --git a/yesod-routes/Yesod/Routes/TH/RenderRoute.hs b/yesod-routes/Yesod/Routes/TH/RenderRoute.hs
index 097cd8d7..bc331ed4 100644
--- a/yesod-routes/Yesod/Routes/TH/RenderRoute.hs
+++ b/yesod-routes/Yesod/Routes/TH/RenderRoute.hs
@@ -2,6 +2,7 @@
 module Yesod.Routes.TH.RenderRoute
     ( -- ** RenderRoute
       mkRenderRouteInstance
+    , mkRenderRouteInstance'
     , mkRouteCons
     , mkRenderRouteClauses
     ) where
@@ -89,12 +90,19 @@ mkRenderRouteClauses =
 
 -- | Generate the 'RenderRoute' instance.
 --
--- This includes both the 'Route' associated type and the 'renderRoute' method.
--- This function uses both 'mkRouteCons' and 'mkRenderRouteClasses'.
+-- This includes both the 'Route' associated type and the
+-- 'renderRoute' method.  This function uses both 'mkRouteCons' and
+-- 'mkRenderRouteClasses'.
 mkRenderRouteInstance :: Type -> [Resource Type] -> Q Dec
-mkRenderRouteInstance typ ress = do
+mkRenderRouteInstance = mkRenderRouteInstance' []
+
+-- | A more general version of 'mkRenderRouteInstance' which takes an
+-- additional context.
+
+mkRenderRouteInstance' :: Cxt -> Type -> [Resource Type] -> Q Dec
+mkRenderRouteInstance' cxt typ ress = do
     cls <- mkRenderRouteClauses ress
-    return $ InstanceD [] (ConT ''RenderRoute `AppT` typ)
+    return $ InstanceD cxt (ConT ''RenderRoute `AppT` typ)
         [ DataInstD [] ''Route [typ] (mkRouteCons ress) clazzes
         , FunD (mkName "renderRoute") cls
         ]
diff --git a/yesod/Build.hs b/yesod/Build.hs
index 3527bf8d..3b5f4b13 100644
--- a/yesod/Build.hs
+++ b/yesod/Build.hs
@@ -138,8 +138,12 @@ determineHamletDeps x = do
            <|> (A.string "$(widgetFile " >> return Hamlet)
            <|> (A.string "$(Settings.hamletFile " >> return Hamlet)
            <|> (A.string "$(Settings.widgetFile " >> return Hamlet)
-           <|> (A.string "$(persistFile " >> return Verbatim)
            <|> (A.string "$(parseRoutesFile " >> return Verbatim)
+           <|> (A.string "$(persistFile " >> return Verbatim)
+           <|> (
+                   A.string "$(persistFileWith " >>
+                   A.many1 (A.satisfy (/= '"')) >>
+                   return Verbatim)
            <|> (do
                     _ <- A.string "\nmkMessage \""
                     A.skipWhile (/= '"')
diff --git a/yesod/Devel.hs b/yesod/Devel.hs
index 007cbbbf..bad10170 100644
--- a/yesod/Devel.hs
+++ b/yesod/Devel.hs
@@ -12,31 +12,27 @@ import qualified Distribution.Simple.Utils as D
 import qualified Distribution.Verbosity as D
 import qualified Distribution.PackageDescription.Parse as D
 import qualified Distribution.PackageDescription as D
+import qualified Distribution.ModuleName as D
 
 import           Control.Concurrent (forkIO, threadDelay)
 import qualified Control.Exception as Ex
-import           Control.Monad (forever)
+import           Control.Monad (forever, when)
 
+import           Data.Char (isUpper, isNumber)
 import qualified Data.List as L
 import qualified Data.Map as Map
-import           Data.Maybe (listToMaybe)
+import qualified Data.Set as Set
 
-import           System.Directory (createDirectoryIfMissing, removeFile,
-                                           getDirectoryContents)
-import           System.Exit (exitFailure, exitSuccess)
+import           System.Directory
+import           System.Exit (exitFailure, exitSuccess, ExitCode (..))
+import           System.FilePath (splitDirectories, dropExtension, takeExtension)
 import           System.Posix.Types (EpochTime)
 import           System.PosixCompat.Files (modificationTime, getFileStatus)
-import           System.Process (runCommand, terminateProcess,
+import           System.Process (createProcess, proc, terminateProcess, readProcess,
                                            waitForProcess, rawSystem)
 
 import Build (recompDeps, getDeps,findHaskellFiles)
 
-#if __GLASGOW_HASKELL__ >= 700
-#define ST st
-#else
-#define ST $st
-#endif
-
 lockFile :: FilePath
 lockFile = "dist/devel-terminate"
 
@@ -48,8 +44,11 @@ writeLock = do
 removeLock :: IO ()
 removeLock = try_ (removeFile lockFile)
 
-devel :: Bool -> IO ()
-devel isCabalDev = do
+devel :: Bool -> [String] -> IO ()
+devel isCabalDev passThroughArgs = do
+
+    checkDevelFile
+
     writeLock
 
     putStrLn "Yesod devel server. Press ENTER to quit"
@@ -59,71 +58,68 @@ devel isCabalDev = do
 
       checkCabalFile gpd
 
-      _ <- if isCabalDev
-        then rawSystem "cabal-dev"
-            [ "configure"
-            , "--cabal-install-arg=-fdevel" -- legacy
-            , "--cabal-install-arg=-flibrary-only"
-            , "--disable-library-profiling"
-            ]
-        else rawSystem "cabal"
-            [ "configure"
-            , "-fdevel" -- legacy
-            , "-flibrary-only"
-            , "--disable-library-profiling"
-            ]
+      _<- rawSystem cmd args
 
-      mainLoop isCabalDev
+      mainLoop
 
     _ <- getLine
     writeLock
     exitSuccess
+  where
+    cmd | isCabalDev == True = "cabal-dev"
+        | otherwise  = "cabal"
 
+    diffArgs | isCabalDev == True = [
+              "--cabal-install-arg=-fdevel" -- legacy
+            , "--cabal-install-arg=-flibrary-only"
+            ]
+             | otherwise  = [
+              "-fdevel" -- legacy
+            , "-flibrary-only"
+            ]
+    args = "configure":diffArgs ++ ["--disable-library-profiling" ]
 
+    mainLoop :: IO ()
+    mainLoop = do
+       ghcVer <- ghcVersion
+       forever $ do
+           putStrLn "Rebuilding application..."
 
-mainLoop :: Bool -> IO ()
-mainLoop isCabalDev = forever $ do
-   putStrLn "Rebuilding application..."
+           recompDeps
 
-   recompDeps
+           list <- getFileList
+           exit <- rawSystem cmd ["build"]
 
-   list <- getFileList
-   _ <- if isCabalDev
-     then rawSystem "cabal-dev" ["build"]
-     else rawSystem "cabal"     ["build"]
-
-   removeLock
-   pkg <- pkgConfigs isCabalDev
-   let start = concat ["runghc ", pkg, " devel.hs"]
-   putStrLn $ "Starting development server: " ++ start
-   ph <- runCommand start
-   watchTid <- forkIO . try_ $ do
-     watchForChanges list
-     putStrLn "Stopping development server..."
-     writeLock
-     threadDelay 1000000
-     putStrLn "Terminating development server..."
-     terminateProcess ph
-   ec <- waitForProcess ph
-   putStrLn $ "Exit code: " ++ show ec
-   Ex.throwTo watchTid (userError "process finished")
-   watchForChanges list
+           case exit of
+             ExitFailure _ -> putStrLn "Build failure, pausing..."
+             _ -> do
+                   removeLock
+                   let pkg = pkgConfigs isCabalDev ghcVer
+                   let dev_args = pkg ++ ["devel.hs"] ++ passThroughArgs
+                   putStrLn $ "Starting development server: runghc " ++ L.intercalate " " dev_args
+                   (_,_,_,ph) <- createProcess $ proc "runghc" dev_args
+                   watchTid <- forkIO . try_ $ do
+                         watchForChanges list
+                         putStrLn "Stopping development server..."
+                         writeLock
+                         threadDelay 1000000
+                         putStrLn "Terminating development server..."
+                         terminateProcess ph
+                   ec <- waitForProcess ph
+                   putStrLn $ "Exit code: " ++ show ec
+                   Ex.throwTo watchTid (userError "process finished")
+           watchForChanges list
 
 try_ :: forall a. IO a -> IO ()
 try_ x = (Ex.try x :: IO (Either Ex.SomeException a)) >> return ()
 
-pkgConfigs :: Bool -> IO String
-pkgConfigs isDev
-  | isDev = do
-      devContents <- getDirectoryContents "cabal-dev"
-      let confs = filter isConfig devContents
-      return . unwords $ inplacePkg :
-             map ("-package-confcabal-dev/"++) confs
-  | otherwise = return inplacePkg
+pkgConfigs :: Bool -> String -> [String]
+pkgConfigs isCabalDev ghcVer
+  | isCabalDev = ["-package-confcabal-dev/packages-" ++ ghcVer ++ ".conf", inplacePkg]
+  | otherwise  = [inplacePkg]
   where
     inplacePkg = "-package-confdist/package.conf.inplace"
-    isConfig dir = "packages-" `L.isPrefixOf` dir &&
-                   ".conf"     `L.isSuffixOf` dir
+
 
 type FileList = Map.Map FilePath EpochTime
 
@@ -143,29 +139,69 @@ watchForChanges list = do
       then return ()
       else threadDelay 1000000 >> watchForChanges list
 
+checkDevelFile :: IO ()
+checkDevelFile = do
+  e <- doesFileExist "devel.hs"
+  when (not e) $ failWith "file devel.hs not found"
+
 checkCabalFile :: D.GenericPackageDescription -> IO ()
 checkCabalFile gpd = case D.condLibrary gpd of
-    Nothing -> do
-      putStrLn "Error: incorrect cabal file, no library"
-      exitFailure
+    Nothing -> failWith "incorrect cabal file, no library"
     Just ct ->
       case lookupDevelLib ct of
-        Nothing   -> do
-          putStrLn "Error: no development flag found in your configuration file. Expected a 'library-only' flag or the older 'devel' flag"
-          exitFailure
-        Just dLib ->
+        Nothing   ->
+          failWith "no development flag found in your configuration file. Expected a 'library-only' flag or the older 'devel' flag"
+        Just dLib -> do
          case (D.hsSourceDirs . D.libBuildInfo) dLib of
            []     -> return ()
            ["."]  -> return ()
            _      ->
              putStrLn $ "WARNING: yesod devel may not work correctly with " ++
                         "custom hs-source-dirs"
+         fl <- getFileList
+         let unlisted = checkFileList fl dLib
+         when (not . null $ unlisted) $ do
+              putStrLn "WARNING: the following source files are not listed in exposed-modules or other-modules:"
+              mapM_ putStrLn unlisted
+         when (D.fromString "Application" `notElem` D.exposedModules dLib) $ do
+              putStrLn "WARNING: no exposed module Application"
+
+failWith :: String -> IO a
+failWith msg = do
+    putStrLn $ "ERROR: " ++ msg
+    exitFailure
+
+checkFileList :: FileList -> D.Library -> [FilePath]
+checkFileList fl lib = filter isUnlisted . filter isSrcFile $ sourceFiles
+  where
+    al = allModules lib
+    -- a file is only a possible 'module file' if all path pieces start with a capital letter
+    sourceFiles = filter isSrcFile . map fst . Map.toList $ fl
+    isSrcFile file = let dirs = filter (/=".") $ splitDirectories file
+                     in  all (isUpper . head) dirs && (takeExtension file `elem` [".hs", ".lhs"])
+    isUnlisted file = not (toModuleName file `Set.member` al)
+    toModuleName = L.intercalate "." . filter (/=".") . splitDirectories . dropExtension
+
+allModules :: D.Library -> Set.Set String
+allModules lib = Set.fromList $ map toString $ D.exposedModules lib ++ (D.otherModules . D.libBuildInfo) lib
+    where
+      toString = L.intercalate "." . D.components
+
+ghcVersion :: IO String
+ghcVersion = fmap getNumber $ readProcess "runghc" ["--numeric-version", "0"] []
+    where
+      getNumber = filter (\x -> isNumber x || x == '.')
+
 
 lookupDevelLib :: D.CondTree D.ConfVar c a -> Maybe a
-lookupDevelLib ct = listToMaybe . map (\(_,x,_) -> D.condTreeData x) .
-                    filter isDevelLib . D.condTreeComponents  $ ct
+lookupDevelLib ct | found     = Just (D.condTreeData ct)
+                  | otherwise = Nothing
   where
+    found = not . null . map (\(_,x,_) -> D.condTreeData x) .
+            filter isDevelLib . D.condTreeComponents  $ ct
     isDevelLib ((D.Var (D.Flag (D.FlagName f))), _, _) = f `elem` ["library-only", "devel"]
     isDevelLib _                                       = False
 
 
+
+
diff --git a/yesod/main.hs b/yesod/main.hs
index dcf20cfa..72a7c9b1 100755
--- a/yesod/main.hs
+++ b/yesod/main.hs
@@ -35,7 +35,7 @@ main = do
         "build":rest -> touch >> build rest >>= exitWith
         ["touch"] -> touch
 #endif
-        ["devel"] -> devel isDev
+        "devel":rest -> devel isDev rest
         ["version"] -> putStrLn yesodVersion
         "configure":rest -> rawSystem cmd ("configure":rest) >>= exitWith
         _ -> do
diff --git a/yesod/scaffold/.ghci.cg b/yesod/scaffold/.ghci.cg
index 76ae5677..eaa2c942 100644
--- a/yesod/scaffold/.ghci.cg
+++ b/yesod/scaffold/.ghci.cg
@@ -1 +1,2 @@
 :set -i.:config:dist/build/autogen
+:set -XCPP -XTemplateHaskell -XQuasiQuotes -XTypeFamilies -XFlexibleContexts -XGADTs -XOverloadedStrings -XMultiParamTypeClasses -XGeneralizedNewtypeDeriving -XEmptyDataDecls
diff --git a/yesod/scaffold/Application.hs.cg b/yesod/scaffold/Application.hs.cg
index 07d0e342..b2580d2c 100644
--- a/yesod/scaffold/Application.hs.cg
+++ b/yesod/scaffold/Application.hs.cg
@@ -6,7 +6,6 @@ module Application
 
 import Import
 import Settings
-import Settings.StaticFiles (staticSite)
 import Yesod.Auth
 import Yesod.Default.Config
 import Yesod.Default.Main
diff --git a/yesod/scaffold/Foundation.hs.cg b/yesod/scaffold/Foundation.hs.cg
index fc420fbf..222bf728 100644
--- a/yesod/scaffold/Foundation.hs.cg
+++ b/yesod/scaffold/Foundation.hs.cg
@@ -15,7 +15,6 @@ module Foundation
 import Prelude
 import Yesod
 import Yesod.Static
-import Settings.StaticFiles
 import Yesod.Auth
 import Yesod.Auth.BrowserId
 import Yesod.Auth.GoogleEmail
@@ -124,8 +123,8 @@ instance Yesod ~sitearg~ where
     -- users receiving stale content.
     addStaticContent = addStaticContentExternal minifym base64md5 Settings.staticDir (StaticR . flip StaticRoute [])
 
-    -- Enable Javascript async loading
-    yepnopeJs _ = Just $ Right $ StaticR js_modernizr_js
+    -- Place Javascript at bottom of the body tag so the rest of the page loads first
+    jsLoader _ = BottomOfBody
 
 -- How to run database actions.
 instance YesodPersist ~sitearg~ where
diff --git a/yesod/scaffold/Import.hs.cg b/yesod/scaffold/Import.hs.cg
index faff3826..bc64119d 100644
--- a/yesod/scaffold/Import.hs.cg
+++ b/yesod/scaffold/Import.hs.cg
@@ -2,19 +2,25 @@ module Import
     ( module Prelude
     , module Yesod
     , module Foundation
-    , (<>)
-    , Text
+    , module Settings.StaticFiles
     , module Data.Monoid
     , module Control.Applicative
+    , Text
+#if __GLASGOW_HASKELL__ < 704
+    , (<>)
+#endif
     ) where
 
-import Prelude hiding (writeFile, readFile)
+import Prelude hiding (writeFile, readFile, head, tail, init, last)
 import Yesod   hiding (Route(..))
 import Foundation
 import Data.Monoid (Monoid (mappend, mempty, mconcat))
 import Control.Applicative ((<$>), (<*>), pure)
 import Data.Text (Text)
+import Settings.StaticFiles
 
+#if __GLASGOW_HASKELL__ < 704
 infixr 5 <>
 (<>) :: Monoid m => m -> m -> m
 (<>) = mappend
+#endif
diff --git a/yesod/scaffold/project.cabal.cg b/yesod/scaffold/project.cabal.cg
index 35e9a3cc..79c75c47 100644
--- a/yesod/scaffold/project.cabal.cg
+++ b/yesod/scaffold/project.cabal.cg
@@ -42,12 +42,12 @@ library
                 OverloadedStrings
                 NoImplicitPrelude
                 CPP
-                OverloadedStrings
                 MultiParamTypeClasses
                 TypeFamilies
                 GADTs
                 GeneralizedNewtypeDeriving
                 FlexibleContexts
+                EmptyDataDecls
 
 executable         ~project~
     if flag(library-only)
@@ -72,6 +72,7 @@ executable         ~project~
                 GADTs
                 GeneralizedNewtypeDeriving
                 FlexibleContexts
+                EmptyDataDecls
 
     build-depends: base                          >= 4          && < 5
                  , yesod                         >= 0.10       && < 0.11
diff --git a/yesod/scaffold/static/js/modernizr.js.cg b/yesod/scaffold/static/js/modernizr.js.cg
index 76dc0298..737d8fe8 100644
--- a/yesod/scaffold/static/js/modernizr.js.cg
+++ b/yesod/scaffold/static/js/modernizr.js.cg
@@ -1,4 +1,4 @@
-/* Modernizr 2.0.6 (Custom Build) | MIT & BSD
- * Build: http://www.modernizr.com/download/#-fontface-backgroundsize-borderimage-borderradius-boxshadow-flexbox-hsla-multiplebgs-opacity-rgba-textshadow-cssanimations-csscolumns-generatedcontent-cssgradients-cssreflections-csstransforms-csstransforms3d-csstransitions-applicationcache-canvas-canvastext-draganddrop-hashchange-history-audio-video-indexeddb-input-inputtypes-localstorage-postmessage-sessionstorage-websockets-websqldatabase-webworkers-geolocation-inlinesvg-smil-svg-svgclippaths-touch-webgl-iepp-cssclasses-teststyles-testprop-testallprops-hasevent-prefixes-domprefixes-load
- */
+/* Modernizr 2.0.6 (Custom Build) | MIT & BSD
+ * Build: http://www.modernizr.com/download/#-fontface-backgroundsize-borderimage-borderradius-boxshadow-flexbox-hsla-multiplebgs-opacity-rgba-textshadow-cssanimations-csscolumns-generatedcontent-cssgradients-cssreflections-csstransforms-csstransforms3d-csstransitions-applicationcache-canvas-canvastext-draganddrop-hashchange-history-audio-video-indexeddb-input-inputtypes-localstorage-postmessage-sessionstorage-websockets-websqldatabase-webworkers-geolocation-inlinesvg-smil-svg-svgclippaths-touch-webgl-iepp-cssclasses-teststyles-testprop-testallprops-hasevent-prefixes-domprefixes-load
+ */
 ;window.Modernizr=function(a,b,c){function H(){e.input=function(a){for(var b=0,c=a.length;b<c;b++)t[a[b]]=a[b]in l;return t}("autocomplete autofocus list placeholder max min multiple pattern required step".split(" ")),e.inputtypes=function(a){for(var d=0,e,f,h,i=a.length;d<i;d++)l.setAttribute("type",f=a[d]),e=l.type!=="text",e&&(l.value=m,l.style.cssText="position:absolute;visibility:hidden;",/^range$/.test(f)&&l.style.WebkitAppearance!==c?(g.appendChild(l),h=b.defaultView,e=h.getComputedStyle&&h.getComputedStyle(l,null).WebkitAppearance!=="textfield"&&l.offsetHeight!==0,g.removeChild(l)):/^(search|tel)$/.test(f)||(/^(url|email)$/.test(f)?e=l.checkValidity&&l.checkValidity()===!1:/^color$/.test(f)?(g.appendChild(l),g.offsetWidth,e=l.value!=m,g.removeChild(l)):e=l.value!=m)),s[a[d]]=!!e;return s}("search tel url email datetime date month week time datetime-local number range color".split(" "))}function F(a,b){var c=a.charAt(0).toUpperCase()+a.substr(1),d=(a+" "+p.join(c+" ")+c).split(" ");return E(d,b)}function E(a,b){for(var d in a)if(k[a[d]]!==c)return b=="pfx"?a[d]:!0;return!1}function D(a,b){return!!~(""+a).indexOf(b)}function C(a,b){return typeof a===b}function B(a,b){return A(o.join(a+";")+(b||""))}function A(a){k.cssText=a}var d="2.0.6",e={},f=!0,g=b.documentElement,h=b.head||b.getElementsByTagName("head")[0],i="modernizr",j=b.createElement(i),k=j.style,l=b.createElement("input"),m=":)",n=Object.prototype.toString,o=" -webkit- -moz- -o- -ms- -khtml- ".split(" "),p="Webkit Moz O ms Khtml".split(" "),q={svg:"http://www.w3.org/2000/svg"},r={},s={},t={},u=[],v=function(a,c,d,e){var f,h,j,k=b.createElement("div");if(parseInt(d,10))while(d--)j=b.createElement("div"),j.id=e?e[d]:i+(d+1),k.appendChild(j);f=["&shy;","<style>",a,"</style>"].join(""),k.id=i,k.innerHTML+=f,g.appendChild(k),h=c(k,a),k.parentNode.removeChild(k);return!!h},w=function(){function d(d,e){e=e||b.createElement(a[d]||"div"),d="on"+d;var f=d in e;f||(e.setAttribute||(e=b.createElement("div")),e.setAttribute&&e.removeAttribute&&(e.setAttribute(d,""),f=C(e[d],"function"),C(e[d],c)||(e[d]=c),e.removeAttribute(d))),e=null;return f}var a={select:"input",change:"input",submit:"form",reset:"form",error:"img",load:"img",abort:"img"};return d}(),x,y={}.hasOwnProperty,z;!C(y,c)&&!C(y.call,c)?z=function(a,b){return y.call(a,b)}:z=function(a,b){return b in a&&C(a.constructor.prototype[b],c)};var G=function(c,d){var f=c.join(""),g=d.length;v(f,function(c,d){var f=b.styleSheets[b.styleSheets.length-1],h=f.cssRules&&f.cssRules[0]?f.cssRules[0].cssText:f.cssText||"",i=c.childNodes,j={};while(g--)j[i[g].id]=i[g];e.touch="ontouchstart"in a||j.touch.offsetTop===9,e.csstransforms3d=j.csstransforms3d.offsetLeft===9,e.generatedcontent=j.generatedcontent.offsetHeight>=1,e.fontface=/src/i.test(h)&&h.indexOf(d.split(" ")[0])===0},g,d)}(['@font-face {font-family:"font";src:url("https://")}',["@media (",o.join("touch-enabled),("),i,")","{#touch{top:9px;position:absolute}}"].join(""),["@media (",o.join("transform-3d),("),i,")","{#csstransforms3d{left:9px;position:absolute}}"].join(""),['#generatedcontent:after{content:"',m,'";visibility:hidden}'].join("")],["fontface","touch","csstransforms3d","generatedcontent"]);r.flexbox=function(){function c(a,b,c,d){a.style.cssText=o.join(b+":"+c+";")+(d||"")}function a(a,b,c,d){b+=":",a.style.cssText=(b+o.join(c+";"+b)).slice(0,-b.length)+(d||"")}var d=b.createElement("div"),e=b.createElement("div");a(d,"display","box","width:42px;padding:0;"),c(e,"box-flex","1","width:10px;"),d.appendChild(e),g.appendChild(d);var f=e.offsetWidth===42;d.removeChild(e),g.removeChild(d);return f},r.canvas=function(){var a=b.createElement("canvas");return!!a.getContext&&!!a.getContext("2d")},r.canvastext=function(){return!!e.canvas&&!!C(b.createElement("canvas").getContext("2d").fillText,"function")},r.webgl=function(){return!!a.WebGLRenderingContext},r.touch=function(){return e.touch},r.geolocation=function(){return!!navigator.geolocation},r.postmessage=function(){return!!a.postMessage},r.websqldatabase=function(){var b=!!a.openDatabase;return b},r.indexedDB=function(){for(var b=-1,c=p.length;++b<c;)if(a[p[b].toLowerCase()+"IndexedDB"])return!0;return!!a.indexedDB},r.hashchange=function(){return w("hashchange",a)&&(b.documentMode===c||b.documentMode>7)},r.history=function(){return!!a.history&&!!history.pushState},r.draganddrop=function(){return w("dragstart")&&w("drop")},r.websockets=function(){for(var b=-1,c=p.length;++b<c;)if(a[p[b]+"WebSocket"])return!0;return"WebSocket"in a},r.rgba=function(){A("background-color:rgba(150,255,150,.5)");return D(k.backgroundColor,"rgba")},r.hsla=function(){A("background-color:hsla(120,40%,100%,.5)");return D(k.backgroundColor,"rgba")||D(k.backgroundColor,"hsla")},r.multiplebgs=function(){A("background:url(https://),url(https://),red url(https://)");return/(url\s*\(.*?){3}/.test(k.background)},r.backgroundsize=function(){return F("backgroundSize")},r.borderimage=function(){return F("borderImage")},r.borderradius=function(){return F("borderRadius")},r.boxshadow=function(){return F("boxShadow")},r.textshadow=function(){return b.createElement("div").style.textShadow===""},r.opacity=function(){B("opacity:.55");return/^0.55$/.test(k.opacity)},r.cssanimations=function(){return F("animationName")},r.csscolumns=function(){return F("columnCount")},r.cssgradients=function(){var a="background-image:",b="gradient(linear,left top,right bottom,from(#9f9),to(white));",c="linear-gradient(left top,#9f9, white);";A((a+o.join(b+a)+o.join(c+a)).slice(0,-a.length));return D(k.backgroundImage,"gradient")},r.cssreflections=function(){return F("boxReflect")},r.csstransforms=function(){return!!E(["transformProperty","WebkitTransform","MozTransform","OTransform","msTransform"])},r.csstransforms3d=function(){var a=!!E(["perspectiveProperty","WebkitPerspective","MozPerspective","OPerspective","msPerspective"]);a&&"webkitPerspective"in g.style&&(a=e.csstransforms3d);return a},r.csstransitions=function(){return F("transitionProperty")},r.fontface=function(){return e.fontface},r.generatedcontent=function(){return e.generatedcontent},r.video=function(){var a=b.createElement("video"),c=!1;try{if(c=!!a.canPlayType){c=new Boolean(c),c.ogg=a.canPlayType('video/ogg; codecs="theora"');var d='video/mp4; codecs="avc1.42E01E';c.h264=a.canPlayType(d+'"')||a.canPlayType(d+', mp4a.40.2"'),c.webm=a.canPlayType('video/webm; codecs="vp8, vorbis"')}}catch(e){}return c},r.audio=function(){var a=b.createElement("audio"),c=!1;try{if(c=!!a.canPlayType)c=new Boolean(c),c.ogg=a.canPlayType('audio/ogg; codecs="vorbis"'),c.mp3=a.canPlayType("audio/mpeg;"),c.wav=a.canPlayType('audio/wav; codecs="1"'),c.m4a=a.canPlayType("audio/x-m4a;")||a.canPlayType("audio/aac;")}catch(d){}return c},r.localstorage=function(){try{return!!localStorage.getItem}catch(a){return!1}},r.sessionstorage=function(){try{return!!sessionStorage.getItem}catch(a){return!1}},r.webworkers=function(){return!!a.Worker},r.applicationcache=function(){return!!a.applicationCache},r.svg=function(){return!!b.createElementNS&&!!b.createElementNS(q.svg,"svg").createSVGRect},r.inlinesvg=function(){var a=b.createElement("div");a.innerHTML="<svg/>";return(a.firstChild&&a.firstChild.namespaceURI)==q.svg},r.smil=function(){return!!b.createElementNS&&/SVG/.test(n.call(b.createElementNS(q.svg,"animate")))},r.svgclippaths=function(){return!!b.createElementNS&&/SVG/.test(n.call(b.createElementNS(q.svg,"clipPath")))};for(var I in r)z(r,I)&&(x=I.toLowerCase(),e[x]=r[I](),u.push((e[x]?"":"no-")+x));e.input||H(),A(""),j=l=null,a.attachEvent&&function(){var a=b.createElement("div");a.innerHTML="<elem></elem>";return a.childNodes.length!==1}()&&function(a,b){function s(a){var b=-1;while(++b<g)a.createElement(f[b])}a.iepp=a.iepp||{};var d=a.iepp,e=d.html5elements||"abbr|article|aside|audio|canvas|datalist|details|figcaption|figure|footer|header|hgroup|mark|meter|nav|output|progress|section|summary|time|video",f=e.split("|"),g=f.length,h=new RegExp("(^|\\s)("+e+")","gi"),i=new RegExp("<(/*)("+e+")","gi"),j=/^\s*[\{\}]\s*$/,k=new RegExp("(^|[^\\n]*?\\s)("+e+")([^\\n]*)({[\\n\\w\\W]*?})","gi"),l=b.createDocumentFragment(),m=b.documentElement,n=m.firstChild,o=b.createElement("body"),p=b.createElement("style"),q=/print|all/,r;d.getCSS=function(a,b){if(a+""===c)return"";var e=-1,f=a.length,g,h=[];while(++e<f){g=a[e];if(g.disabled)continue;b=g.media||b,q.test(b)&&h.push(d.getCSS(g.imports,b),g.cssText),b="all"}return h.join("")},d.parseCSS=function(a){var b=[],c;while((c=k.exec(a))!=null)b.push(((j.exec(c[1])?"\n":c[1])+c[2]+c[3]).replace(h,"$1.iepp_$2")+c[4]);return b.join("\n")},d.writeHTML=function(){var a=-1;r=r||b.body;while(++a<g){var c=b.getElementsByTagName(f[a]),d=c.length,e=-1;while(++e<d)c[e].className.indexOf("iepp_")<0&&(c[e].className+=" iepp_"+f[a])}l.appendChild(r),m.appendChild(o),o.className=r.className,o.id=r.id,o.innerHTML=r.innerHTML.replace(i,"<$1font")},d._beforePrint=function(){p.styleSheet.cssText=d.parseCSS(d.getCSS(b.styleSheets,"all")),d.writeHTML()},d.restoreHTML=function(){o.innerHTML="",m.removeChild(o),m.appendChild(r)},d._afterPrint=function(){d.restoreHTML(),p.styleSheet.cssText=""},s(b),s(l);d.disablePP||(n.insertBefore(p,n.firstChild),p.media="print",p.className="iepp-printshim",a.attachEvent("onbeforeprint",d._beforePrint),a.attachEvent("onafterprint",d._afterPrint))}(a,b),e._version=d,e._prefixes=o,e._domPrefixes=p,e.hasEvent=w,e.testProp=function(a){return E([a])},e.testAllProps=F,e.testStyles=v,g.className=g.className.replace(/\bno-js\b/,"")+(f?" js "+u.join(" "):"");return e}(this,this.document),function(a,b,c){function k(a){return!a||a=="loaded"||a=="complete"}function j(){var a=1,b=-1;while(p.length- ++b)if(p[b].s&&!(a=p[b].r))break;a&&g()}function i(a){var c=b.createElement("script"),d;c.src=a.s,c.onreadystatechange=c.onload=function(){!d&&k(c.readyState)&&(d=1,j(),c.onload=c.onreadystatechange=null)},m(function(){d||(d=1,j())},H.errorTimeout),a.e?c.onload():n.parentNode.insertBefore(c,n)}function h(a){var c=b.createElement("link"),d;c.href=a.s,c.rel="stylesheet",c.type="text/css";if(!a.e&&(w||r)){var e=function(a){m(function(){if(!d)try{a.sheet.cssRules.length?(d=1,j()):e(a)}catch(b){b.code==1e3||b.message=="security"||b.message=="denied"?(d=1,m(function(){j()},0)):e(a)}},0)};e(c)}else c.onload=function(){d||(d=1,m(function(){j()},0))},a.e&&c.onload();m(function(){d||(d=1,j())},H.errorTimeout),!a.e&&n.parentNode.insertBefore(c,n)}function g(){var a=p.shift();q=1,a?a.t?m(function(){a.t=="c"?h(a):i(a)},0):(a(),j()):q=0}function f(a,c,d,e,f,h){function i(){!o&&k(l.readyState)&&(r.r=o=1,!q&&j(),l.onload=l.onreadystatechange=null,m(function(){u.removeChild(l)},0))}var l=b.createElement(a),o=0,r={t:d,s:c,e:h};l.src=l.data=c,!s&&(l.style.display="none"),l.width=l.height="0",a!="object"&&(l.type=d),l.onload=l.onreadystatechange=i,a=="img"?l.onerror=i:a=="script"&&(l.onerror=function(){r.e=r.r=1,g()}),p.splice(e,0,r),u.insertBefore(l,s?null:n),m(function(){o||(u.removeChild(l),r.r=r.e=o=1,j())},H.errorTimeout)}function e(a,b,c){var d=b=="c"?z:y;q=0,b=b||"j",C(a)?f(d,a,b,this.i++,l,c):(p.splice(this.i++,0,a),p.length==1&&g());return this}function d(){var a=H;a.loader={load:e,i:0};return a}var l=b.documentElement,m=a.setTimeout,n=b.getElementsByTagName("script")[0],o={}.toString,p=[],q=0,r="MozAppearance"in l.style,s=r&&!!b.createRange().compareNode,t=r&&!s,u=s?l:n.parentNode,v=a.opera&&o.call(a.opera)=="[object Opera]",w="webkitAppearance"in l.style,x=w&&"async"in b.createElement("script"),y=r?"object":v||x?"img":"script",z=w?"img":y,A=Array.isArray||function(a){return o.call(a)=="[object Array]"},B=function(a){return Object(a)===a},C=function(a){return typeof a=="string"},D=function(a){return o.call(a)=="[object Function]"},E=[],F={},G,H;H=function(a){function f(a){var b=a.split("!"),c=E.length,d=b.pop(),e=b.length,f={url:d,origUrl:d,prefixes:b},g,h;for(h=0;h<e;h++)g=F[b[h]],g&&(f=g(f));for(h=0;h<c;h++)f=E[h](f);return f}function e(a,b,e,g,h){var i=f(a),j=i.autoCallback;if(!i.bypass){b&&(b=D(b)?b:b[a]||b[g]||b[a.split("/").pop().split("?")[0]]);if(i.instead)return i.instead(a,b,e,g,h);e.load(i.url,i.forceCSS||!i.forceJS&&/css$/.test(i.url)?"c":c,i.noexec),(D(b)||D(j))&&e.load(function(){d(),b&&b(i.origUrl,h,g),j&&j(i.origUrl,h,g)})}}function b(a,b){function c(a){if(C(a))e(a,h,b,0,d);else if(B(a))for(i in a)a.hasOwnProperty(i)&&e(a[i],h,b,i,d)}var d=!!a.test,f=d?a.yep:a.nope,g=a.load||a.both,h=a.callback,i;c(f),c(g),a.complete&&b.load(a.complete)}var g,h,i=this.yepnope.loader;if(C(a))e(a,0,i,0);else if(A(a))for(g=0;g<a.length;g++)h=a[g],C(h)?e(h,0,i,0):A(h)?H(h):B(h)&&b(h,i);else B(a)&&b(a,i)},H.addPrefix=function(a,b){F[a]=b},H.addFilter=function(a){E.push(a)},H.errorTimeout=1e4,b.readyState==null&&b.addEventListener&&(b.readyState="loading",b.addEventListener("DOMContentLoaded",G=function(){b.removeEventListener("DOMContentLoaded",G,0),b.readyState="complete"},0)),a.yepnope=d()}(this,this.document),Modernizr.load=function(){yepnope.apply(window,[].slice.call(arguments,0))};
\ No newline at end of file
diff --git a/yesod/scaffold/templates/default-layout-wrapper.hamlet.cg b/yesod/scaffold/templates/default-layout-wrapper.hamlet.cg
index 320b3034..3d548d55 100644
--- a/yesod/scaffold/templates/default-layout-wrapper.hamlet.cg
+++ b/yesod/scaffold/templates/default-layout-wrapper.hamlet.cg
@@ -31,10 +31,14 @@
 
         $maybe analytics <- extraAnalytics $ appExtra $ settings master
             <script>
+              if(!window.location.href.match(/localhost/)){
                 window._gaq = [['_setAccount','#{analytics}'],['_trackPageview'],['_trackPageLoadTime']];
-                YepNope.load({
-                \  load: ('https:' == location.protocol ? '//ssl' : '//www') + '.google-analytics.com/ga.js'
-                });
+                (function() {
+                \  var ga = document.createElement('script'); ga.type = 'text/javascript'; ga.async = true;
+                \  ga.src = ('https:' == document.location.protocol ? 'https://ssl' : 'http://www') + '.google-analytics.com/ga.js';
+                \  var s = document.getElementsByTagName('script')[0]; s.parentNode.insertBefore(ga, s);
+                })();
+              }
         \<!-- Prompt IE 6 users to install Chrome Frame. Remove this if you want to support IE 6.  chromium.org/developers/how-tos/chrome-frame-getting-started -->
         \<!--[if lt IE 7 ]>
             <script src="//ajax.googleapis.com/ajax/libs/chrome-frame/1.0.3/CFInstall.min.js">
diff --git a/yesod/scaffold/tiny/Foundation.hs.cg b/yesod/scaffold/tiny/Foundation.hs.cg
index 2b3dd091..a044bbd9 100644
--- a/yesod/scaffold/tiny/Foundation.hs.cg
+++ b/yesod/scaffold/tiny/Foundation.hs.cg
@@ -98,5 +98,5 @@ instance Yesod ~sitearg~ where
     -- users receiving stale content.
     addStaticContent = addStaticContentExternal (const $ Left ()) base64md5 Settings.staticDir (StaticR . flip StaticRoute [])
 
-    -- Enable Javascript async loading
-    yepnopeJs _ = Just $ Right $ StaticR js_modernizr_js
+    -- Place Javascript at bottom of the body tag so the rest of the page loads first
+    jsLoader _ = BottomOfBody
diff --git a/yesod/yesod.cabal b/yesod/yesod.cabal
index 057b5051..1fd725ba 100644
--- a/yesod/yesod.cabal
+++ b/yesod/yesod.cabal
@@ -1,5 +1,5 @@
 name:            yesod
-version:         0.10.1
+version:         0.10.1.4
 license:         BSD3
 license-file:    LICENSE
 author:          Michael Snoyman <michael@snoyman.com>
@@ -81,7 +81,7 @@ library
                    , monad-control             >= 0.3      && < 0.4
                    , transformers              >= 0.2.2    && < 0.3
                    , wai                       >= 1.1      && < 1.2
-                   , wai-extra                 >= 1.1      && < 1.2
+                   , wai-extra                 >= 1.1      && < 1.3
                    , wai-logger                >= 0.1.2
                    , hamlet                    >= 0.10     && < 0.11
                    , shakespeare-js            >= 0.11     && < 0.12
@@ -101,7 +101,7 @@ executable             yesod
         cpp-options:     -DWINDOWS
     build-depends:     parsec             >= 2.1          && < 4
                      , text               >= 0.11         && < 0.12
-                     , shakespeare-text   >= 0.10         && < 0.11
+                     , shakespeare-text   >= 0.10         && < 0.12
                      , bytestring         >= 0.9.1.4  && < 0.10
                      , time               >= 1.1.4
                      , template-haskell