From 30780add67b36ef526b76e93eeb8b2809135c9ce Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Sun, 9 Nov 2014 13:53:39 +0200
Subject: [PATCH] Scaffolding update

---
 yesod-bin/hsfiles/mongo.hsfiles        | 86 +++++++++++++++-----------
 yesod-bin/hsfiles/mysql.hsfiles        | 86 +++++++++++++++-----------
 yesod-bin/hsfiles/postgres-fay.hsfiles | 86 +++++++++++++++-----------
 yesod-bin/hsfiles/postgres.hsfiles     | 86 +++++++++++++++-----------
 yesod-bin/hsfiles/simple.hsfiles       | 78 +++++++++++++----------
 yesod-bin/hsfiles/sqlite.hsfiles       | 86 +++++++++++++++-----------
 yesod-bin/yesod-bin.cabal              |  2 +-
 7 files changed, 291 insertions(+), 219 deletions(-)

diff --git a/yesod-bin/hsfiles/mongo.hsfiles b/yesod-bin/hsfiles/mongo.hsfiles
index 094f1f24..9981568f 100644
--- a/yesod-bin/hsfiles/mongo.hsfiles
+++ b/yesod-bin/hsfiles/mongo.hsfiles
@@ -279,7 +279,6 @@ getExtra = fmap (appExtra . settings) getYesod
 -- https://github.com/yesodweb/yesod/wiki/Sending-email
 
 {-# START_FILE Handler/Home.hs #-}
-{-# LANGUAGE TupleSections, OverloadedStrings #-}
 module Handler.Home where
 
 import Import
@@ -415,6 +414,7 @@ library
                 NoMonomorphismRestriction
                 DeriveDataTypeable
                 ViewPatterns
+                TupleSections
 
     build-depends: base                          >= 4          && < 5
                  , yesod                         >= 1.4.0      && < 1.5
@@ -461,10 +461,26 @@ executable         PROJECTNAME
 
 test-suite test
     type:              exitcode-stdio-1.0
-    main-is:           main.hs
+    main-is:           Spec.hs
     hs-source-dirs:    test
     ghc-options:       -Wall
 
+    extensions: TemplateHaskell
+                QuasiQuotes
+                OverloadedStrings
+                NoImplicitPrelude
+                CPP
+                MultiParamTypeClasses
+                TypeFamilies
+                GADTs
+                GeneralizedNewtypeDeriving
+                FlexibleContexts
+                EmptyDataDecls
+                NoMonomorphismRestriction
+                DeriveDataTypeable
+                ViewPatterns
+                TupleSections
+
     build-depends: base
                  , PROJECTNAME
                  , yesod-test >= 1.4 && < 1.5
@@ -9002,7 +9018,7 @@ $maybe msg <- mmsg
     <form method=post action=@{HomeR}#form enctype=#{formEnctype}>
       ^{formWidget}
       <button .btn .btn-primary type="submit">
-         Send it! <span class="glyphicon glyphicon-upload">
+         Send it! <span class="glyphicon glyphicon-upload"></span>
 
   <li> And last but not least, Testing. In <em>tests/main.hs</em> you will find a #
     test suite that performs tests on this page. #
@@ -9019,17 +9035,16 @@ h2##{aDomId} {
     color: #990
 }
 
-{-# START_FILE test/HomeTest.hs #-}
-{-# LANGUAGE OverloadedStrings #-}
-module HomeTest
-    ( homeSpecs
+{-# START_FILE test/Handler/HomeSpec.hs #-}
+module Handler.HomeSpec
+    ( spec
     ) where
 
 import TestImport
 import qualified Data.List as L
 
-homeSpecs :: Spec
-homeSpecs =
+spec :: Spec
+spec =
     ydescribe "These are some example tests" $ do
 
         yit "loads the index and checks it looks right" $ do
@@ -9041,11 +9056,11 @@ homeSpecs =
                 setMethod "POST"
                 setUrl HomeR
                 addNonce
-                fileByLabel "Choose a file" "test/main.hs" "text/plain" -- talk about self-reference
+                fileByLabel "Choose a file" "test/Spec.hs" "text/plain" -- talk about self-reference
                 byLabel "What's on the file?" "Some Content"
 
             statusIs 200
-            printBody
+            -- more debugging printBody
             htmlCount ".message" 1
             htmlAllContain ".message" "Some Content"
             htmlAllContain ".message" "text/plain"
@@ -9059,13 +9074,34 @@ homeSpecs =
             users <- runDB $ selectList ([] :: [Filter User]) []
             assertEqual "user table empty" 0 $ L.length users
 
+{-# START_FILE test/Spec.hs #-}
+module Main where
+
+import Import
+import Yesod.Default.Config
+import Yesod.Test
+import Test.Hspec (hspec)
+import Application (makeFoundation)
+
+import qualified Handler.HomeSpec
+
+main :: IO ()
+main = do
+    conf <- Yesod.Default.Config.loadConfig $ (configSettings Testing)
+                { csParseExtra = parseExtra
+                }
+    foundation <- makeFoundation conf
+    hspec $ do
+        yesodSpec foundation $ do
+            Handler.HomeSpec.spec
+
 {-# START_FILE test/TestImport.hs #-}
-{-# LANGUAGE OverloadedStrings #-}
 module TestImport
     ( module Yesod.Test
     , module Model
     , module Foundation
     , module Database.Persist
+    , module Prelude
     , runDB
     , Spec
     , Example
@@ -9077,6 +9113,7 @@ import Database.Persist.MongoDB hiding (master)
 import Control.Monad.Trans.Resource (ResourceT, runResourceT)
 import Control.Monad.Logger (NoLoggingT, runNoLoggingT)
 import Control.Monad.IO.Class (liftIO)
+import Prelude
 
 import Foundation
 import Model
@@ -9089,28 +9126,3 @@ runDB query = do
     pool <- fmap connPool getTestYesod
     liftIO $ runResourceT $ runNoLoggingT $ runMongoDBPoolDef query pool
 
-{-# START_FILE test/main.hs #-}
-{-# LANGUAGE OverloadedStrings #-}
-{-# LANGUAGE NoMonomorphismRestriction #-}
-{-# OPTIONS_GHC -fno-warn-orphans #-}
-
-module Main where
-
-import Import
-import Yesod.Default.Config
-import Yesod.Test
-import Test.Hspec (hspec)
-import Application (makeFoundation)
-
-import HomeTest
-
-main :: IO ()
-main = do
-    conf <- Yesod.Default.Config.loadConfig $ (configSettings Testing)
-                { csParseExtra = parseExtra
-                }
-    foundation <- makeFoundation conf
-    hspec $ do
-        yesodSpec foundation $ do
-            homeSpecs
-
diff --git a/yesod-bin/hsfiles/mysql.hsfiles b/yesod-bin/hsfiles/mysql.hsfiles
index bda7ce21..4873f413 100644
--- a/yesod-bin/hsfiles/mysql.hsfiles
+++ b/yesod-bin/hsfiles/mysql.hsfiles
@@ -292,7 +292,6 @@ getExtra = fmap (appExtra . settings) getYesod
 -- https://github.com/yesodweb/yesod/wiki/Sending-email
 
 {-# START_FILE Handler/Home.hs #-}
-{-# LANGUAGE TupleSections, OverloadedStrings #-}
 module Handler.Home where
 
 import Import
@@ -425,6 +424,7 @@ library
                 NoMonomorphismRestriction
                 DeriveDataTypeable
                 ViewPatterns
+                TupleSections
 
     build-depends: base                          >= 4          && < 5
                  , yesod                         >= 1.4.0      && < 1.5
@@ -471,10 +471,26 @@ executable         PROJECTNAME
 
 test-suite test
     type:              exitcode-stdio-1.0
-    main-is:           main.hs
+    main-is:           Spec.hs
     hs-source-dirs:    test
     ghc-options:       -Wall
 
+    extensions: TemplateHaskell
+                QuasiQuotes
+                OverloadedStrings
+                NoImplicitPrelude
+                CPP
+                MultiParamTypeClasses
+                TypeFamilies
+                GADTs
+                GeneralizedNewtypeDeriving
+                FlexibleContexts
+                EmptyDataDecls
+                NoMonomorphismRestriction
+                DeriveDataTypeable
+                ViewPatterns
+                TupleSections
+
     build-depends: base
                  , PROJECTNAME
                  , yesod-test >= 1.4 && < 1.5
@@ -9021,7 +9037,7 @@ $maybe msg <- mmsg
     <form method=post action=@{HomeR}#form enctype=#{formEnctype}>
       ^{formWidget}
       <button .btn .btn-primary type="submit">
-         Send it! <span class="glyphicon glyphicon-upload">
+         Send it! <span class="glyphicon glyphicon-upload"></span>
 
   <li> And last but not least, Testing. In <em>tests/main.hs</em> you will find a #
     test suite that performs tests on this page. #
@@ -9038,17 +9054,16 @@ h2##{aDomId} {
     color: #990
 }
 
-{-# START_FILE test/HomeTest.hs #-}
-{-# LANGUAGE OverloadedStrings #-}
-module HomeTest
-    ( homeSpecs
+{-# START_FILE test/Handler/HomeSpec.hs #-}
+module Handler.HomeSpec
+    ( spec
     ) where
 
 import TestImport
 import qualified Data.List as L
 
-homeSpecs :: Spec
-homeSpecs =
+spec :: Spec
+spec =
     ydescribe "These are some example tests" $ do
 
         yit "loads the index and checks it looks right" $ do
@@ -9060,11 +9075,11 @@ homeSpecs =
                 setMethod "POST"
                 setUrl HomeR
                 addNonce
-                fileByLabel "Choose a file" "test/main.hs" "text/plain" -- talk about self-reference
+                fileByLabel "Choose a file" "test/Spec.hs" "text/plain" -- talk about self-reference
                 byLabel "What's on the file?" "Some Content"
 
             statusIs 200
-            printBody
+            -- more debugging printBody
             htmlCount ".message" 1
             htmlAllContain ".message" "Some Content"
             htmlAllContain ".message" "text/plain"
@@ -9078,13 +9093,34 @@ homeSpecs =
             users <- runDB $ selectList ([] :: [Filter User]) []
             assertEqual "user table empty" 0 $ L.length users
 
+{-# START_FILE test/Spec.hs #-}
+module Main where
+
+import Import
+import Yesod.Default.Config
+import Yesod.Test
+import Test.Hspec (hspec)
+import Application (makeFoundation)
+
+import qualified Handler.HomeSpec
+
+main :: IO ()
+main = do
+    conf <- Yesod.Default.Config.loadConfig $ (configSettings Testing)
+                { csParseExtra = parseExtra
+                }
+    foundation <- makeFoundation conf
+    hspec $ do
+        yesodSpec foundation $ do
+            Handler.HomeSpec.spec
+
 {-# START_FILE test/TestImport.hs #-}
-{-# LANGUAGE OverloadedStrings #-}
 module TestImport
     ( module Yesod.Test
     , module Model
     , module Foundation
     , module Database.Persist
+    , module Prelude
     , runDB
     , Spec
     , Example
@@ -9094,6 +9130,7 @@ import Yesod.Test
 import Database.Persist hiding (get)
 import Database.Persist.Sql (SqlPersistM, runSqlPersistMPool)
 import Control.Monad.IO.Class (liftIO)
+import Prelude
 
 import Foundation
 import Model
@@ -9106,28 +9143,3 @@ runDB query = do
     pool <- fmap connPool getTestYesod
     liftIO $ runSqlPersistMPool query pool
 
-{-# START_FILE test/main.hs #-}
-{-# LANGUAGE OverloadedStrings #-}
-{-# LANGUAGE NoMonomorphismRestriction #-}
-{-# OPTIONS_GHC -fno-warn-orphans #-}
-
-module Main where
-
-import Import
-import Yesod.Default.Config
-import Yesod.Test
-import Test.Hspec (hspec)
-import Application (makeFoundation)
-
-import HomeTest
-
-main :: IO ()
-main = do
-    conf <- Yesod.Default.Config.loadConfig $ (configSettings Testing)
-                { csParseExtra = parseExtra
-                }
-    foundation <- makeFoundation conf
-    hspec $ do
-        yesodSpec foundation $ do
-            homeSpecs
-
diff --git a/yesod-bin/hsfiles/postgres-fay.hsfiles b/yesod-bin/hsfiles/postgres-fay.hsfiles
index 787ae1df..6cd61440 100644
--- a/yesod-bin/hsfiles/postgres-fay.hsfiles
+++ b/yesod-bin/hsfiles/postgres-fay.hsfiles
@@ -322,7 +322,6 @@ onCommand render command =
       Nothing               -> invalidArgs ["Invalid command"]
 
 {-# START_FILE Handler/Home.hs #-}
-{-# LANGUAGE TupleSections, OverloadedStrings #-}
 module Handler.Home where
 
 import Import
@@ -462,6 +461,7 @@ library
                 RankNTypes
                 DeriveDataTypeable
                 ViewPatterns
+                TupleSections
 
     build-depends: base                          >= 4          && < 5
                  , yesod                         >= 1.4.0      && < 1.5
@@ -509,10 +509,26 @@ executable         PROJECTNAME
 
 test-suite test
     type:              exitcode-stdio-1.0
-    main-is:           main.hs
+    main-is:           Spec.hs
     hs-source-dirs:    test
     ghc-options:       -Wall
 
+    extensions: TemplateHaskell
+                QuasiQuotes
+                OverloadedStrings
+                NoImplicitPrelude
+                CPP
+                MultiParamTypeClasses
+                TypeFamilies
+                GADTs
+                GeneralizedNewtypeDeriving
+                FlexibleContexts
+                EmptyDataDecls
+                NoMonomorphismRestriction
+                DeriveDataTypeable
+                ViewPatterns
+                TupleSections
+
     build-depends: base
                  , PROJECTNAME
                  , yesod-test >= 1.4 && < 1.5
@@ -9129,7 +9145,7 @@ $maybe msg <- mmsg
     <form method=post action=@{HomeR}#form enctype=#{formEnctype}>
       ^{formWidget}
       <button .btn .btn-primary type="submit">
-         Send it! <span class="glyphicon glyphicon-upload">
+         Send it! <span class="glyphicon glyphicon-upload"></span>
 
   <li> And last but not least, Testing. In <em>tests/main.hs</em> you will find a #
     test suite that performs tests on this page. #
@@ -9151,17 +9167,16 @@ h2##{aDomId} {
     color: #990
 }
 
-{-# START_FILE test/HomeTest.hs #-}
-{-# LANGUAGE OverloadedStrings #-}
-module HomeTest
-    ( homeSpecs
+{-# START_FILE test/Handler/HomeSpec.hs #-}
+module Handler.HomeSpec
+    ( spec
     ) where
 
 import TestImport
 import qualified Data.List as L
 
-homeSpecs :: Spec
-homeSpecs =
+spec :: Spec
+spec =
     ydescribe "These are some example tests" $ do
 
         yit "loads the index and checks it looks right" $ do
@@ -9173,11 +9188,11 @@ homeSpecs =
                 setMethod "POST"
                 setUrl HomeR
                 addNonce
-                fileByLabel "Choose a file" "test/main.hs" "text/plain" -- talk about self-reference
+                fileByLabel "Choose a file" "test/Spec.hs" "text/plain" -- talk about self-reference
                 byLabel "What's on the file?" "Some Content"
 
             statusIs 200
-            printBody
+            -- more debugging printBody
             htmlCount ".message" 1
             htmlAllContain ".message" "Some Content"
             htmlAllContain ".message" "text/plain"
@@ -9191,13 +9206,34 @@ homeSpecs =
             users <- runDB $ selectList ([] :: [Filter User]) []
             assertEqual "user table empty" 0 $ L.length users
 
+{-# START_FILE test/Spec.hs #-}
+module Main where
+
+import Import
+import Yesod.Default.Config
+import Yesod.Test
+import Test.Hspec (hspec)
+import Application (makeFoundation)
+
+import qualified Handler.HomeSpec
+
+main :: IO ()
+main = do
+    conf <- Yesod.Default.Config.loadConfig $ (configSettings Testing)
+                { csParseExtra = parseExtra
+                }
+    foundation <- makeFoundation conf
+    hspec $ do
+        yesodSpec foundation $ do
+            Handler.HomeSpec.spec
+
 {-# START_FILE test/TestImport.hs #-}
-{-# LANGUAGE OverloadedStrings #-}
 module TestImport
     ( module Yesod.Test
     , module Model
     , module Foundation
     , module Database.Persist
+    , module Prelude
     , runDB
     , Spec
     , Example
@@ -9207,6 +9243,7 @@ import Yesod.Test
 import Database.Persist hiding (get)
 import Database.Persist.Sql (SqlPersistM, runSqlPersistMPool)
 import Control.Monad.IO.Class (liftIO)
+import Prelude
 
 import Foundation
 import Model
@@ -9219,28 +9256,3 @@ runDB query = do
     pool <- fmap connPool getTestYesod
     liftIO $ runSqlPersistMPool query pool
 
-{-# START_FILE test/main.hs #-}
-{-# LANGUAGE OverloadedStrings #-}
-{-# LANGUAGE NoMonomorphismRestriction #-}
-{-# OPTIONS_GHC -fno-warn-orphans #-}
-
-module Main where
-
-import Import
-import Yesod.Default.Config
-import Yesod.Test
-import Test.Hspec (hspec)
-import Application (makeFoundation)
-
-import HomeTest
-
-main :: IO ()
-main = do
-    conf <- Yesod.Default.Config.loadConfig $ (configSettings Testing)
-                { csParseExtra = parseExtra
-                }
-    foundation <- makeFoundation conf
-    hspec $ do
-        yesodSpec foundation $ do
-            homeSpecs
-
diff --git a/yesod-bin/hsfiles/postgres.hsfiles b/yesod-bin/hsfiles/postgres.hsfiles
index 2b828f96..c8dcda72 100644
--- a/yesod-bin/hsfiles/postgres.hsfiles
+++ b/yesod-bin/hsfiles/postgres.hsfiles
@@ -292,7 +292,6 @@ getExtra = fmap (appExtra . settings) getYesod
 -- https://github.com/yesodweb/yesod/wiki/Sending-email
 
 {-# START_FILE Handler/Home.hs #-}
-{-# LANGUAGE TupleSections, OverloadedStrings #-}
 module Handler.Home where
 
 import Import
@@ -425,6 +424,7 @@ library
                 NoMonomorphismRestriction
                 DeriveDataTypeable
                 ViewPatterns
+                TupleSections
 
     build-depends: base                          >= 4          && < 5
                  , yesod                         >= 1.4.0      && < 1.5
@@ -471,10 +471,26 @@ executable         PROJECTNAME
 
 test-suite test
     type:              exitcode-stdio-1.0
-    main-is:           main.hs
+    main-is:           Spec.hs
     hs-source-dirs:    test
     ghc-options:       -Wall
 
+    extensions: TemplateHaskell
+                QuasiQuotes
+                OverloadedStrings
+                NoImplicitPrelude
+                CPP
+                MultiParamTypeClasses
+                TypeFamilies
+                GADTs
+                GeneralizedNewtypeDeriving
+                FlexibleContexts
+                EmptyDataDecls
+                NoMonomorphismRestriction
+                DeriveDataTypeable
+                ViewPatterns
+                TupleSections
+
     build-depends: base
                  , PROJECTNAME
                  , yesod-test >= 1.4 && < 1.5
@@ -9021,7 +9037,7 @@ $maybe msg <- mmsg
     <form method=post action=@{HomeR}#form enctype=#{formEnctype}>
       ^{formWidget}
       <button .btn .btn-primary type="submit">
-         Send it! <span class="glyphicon glyphicon-upload">
+         Send it! <span class="glyphicon glyphicon-upload"></span>
 
   <li> And last but not least, Testing. In <em>tests/main.hs</em> you will find a #
     test suite that performs tests on this page. #
@@ -9038,17 +9054,16 @@ h2##{aDomId} {
     color: #990
 }
 
-{-# START_FILE test/HomeTest.hs #-}
-{-# LANGUAGE OverloadedStrings #-}
-module HomeTest
-    ( homeSpecs
+{-# START_FILE test/Handler/HomeSpec.hs #-}
+module Handler.HomeSpec
+    ( spec
     ) where
 
 import TestImport
 import qualified Data.List as L
 
-homeSpecs :: Spec
-homeSpecs =
+spec :: Spec
+spec =
     ydescribe "These are some example tests" $ do
 
         yit "loads the index and checks it looks right" $ do
@@ -9060,11 +9075,11 @@ homeSpecs =
                 setMethod "POST"
                 setUrl HomeR
                 addNonce
-                fileByLabel "Choose a file" "test/main.hs" "text/plain" -- talk about self-reference
+                fileByLabel "Choose a file" "test/Spec.hs" "text/plain" -- talk about self-reference
                 byLabel "What's on the file?" "Some Content"
 
             statusIs 200
-            printBody
+            -- more debugging printBody
             htmlCount ".message" 1
             htmlAllContain ".message" "Some Content"
             htmlAllContain ".message" "text/plain"
@@ -9078,13 +9093,34 @@ homeSpecs =
             users <- runDB $ selectList ([] :: [Filter User]) []
             assertEqual "user table empty" 0 $ L.length users
 
+{-# START_FILE test/Spec.hs #-}
+module Main where
+
+import Import
+import Yesod.Default.Config
+import Yesod.Test
+import Test.Hspec (hspec)
+import Application (makeFoundation)
+
+import qualified Handler.HomeSpec
+
+main :: IO ()
+main = do
+    conf <- Yesod.Default.Config.loadConfig $ (configSettings Testing)
+                { csParseExtra = parseExtra
+                }
+    foundation <- makeFoundation conf
+    hspec $ do
+        yesodSpec foundation $ do
+            Handler.HomeSpec.spec
+
 {-# START_FILE test/TestImport.hs #-}
-{-# LANGUAGE OverloadedStrings #-}
 module TestImport
     ( module Yesod.Test
     , module Model
     , module Foundation
     , module Database.Persist
+    , module Prelude
     , runDB
     , Spec
     , Example
@@ -9094,6 +9130,7 @@ import Yesod.Test
 import Database.Persist hiding (get)
 import Database.Persist.Sql (SqlPersistM, runSqlPersistMPool)
 import Control.Monad.IO.Class (liftIO)
+import Prelude
 
 import Foundation
 import Model
@@ -9106,28 +9143,3 @@ runDB query = do
     pool <- fmap connPool getTestYesod
     liftIO $ runSqlPersistMPool query pool
 
-{-# START_FILE test/main.hs #-}
-{-# LANGUAGE OverloadedStrings #-}
-{-# LANGUAGE NoMonomorphismRestriction #-}
-{-# OPTIONS_GHC -fno-warn-orphans #-}
-
-module Main where
-
-import Import
-import Yesod.Default.Config
-import Yesod.Test
-import Test.Hspec (hspec)
-import Application (makeFoundation)
-
-import HomeTest
-
-main :: IO ()
-main = do
-    conf <- Yesod.Default.Config.loadConfig $ (configSettings Testing)
-                { csParseExtra = parseExtra
-                }
-    foundation <- makeFoundation conf
-    hspec $ do
-        yesodSpec foundation $ do
-            homeSpecs
-
diff --git a/yesod-bin/hsfiles/simple.hsfiles b/yesod-bin/hsfiles/simple.hsfiles
index 17fc1728..eaafecff 100644
--- a/yesod-bin/hsfiles/simple.hsfiles
+++ b/yesod-bin/hsfiles/simple.hsfiles
@@ -229,7 +229,6 @@ getExtra = fmap (appExtra . settings) getYesod
 -- https://github.com/yesodweb/yesod/wiki/Sending-email
 
 {-# START_FILE Handler/Home.hs #-}
-{-# LANGUAGE TupleSections, OverloadedStrings #-}
 module Handler.Home where
 
 import Import
@@ -344,6 +343,7 @@ library
                 NoMonomorphismRestriction
                 DeriveDataTypeable
                 ViewPatterns
+                TupleSections
 
     build-depends: base                          >= 4          && < 5
                  , yesod                         >= 1.4.0      && < 1.5
@@ -387,10 +387,26 @@ executable         PROJECTNAME
 
 test-suite test
     type:              exitcode-stdio-1.0
-    main-is:           main.hs
+    main-is:           Spec.hs
     hs-source-dirs:    test
     ghc-options:       -Wall
 
+    extensions: TemplateHaskell
+                QuasiQuotes
+                OverloadedStrings
+                NoImplicitPrelude
+                CPP
+                MultiParamTypeClasses
+                TypeFamilies
+                GADTs
+                GeneralizedNewtypeDeriving
+                FlexibleContexts
+                EmptyDataDecls
+                NoMonomorphismRestriction
+                DeriveDataTypeable
+                ViewPatterns
+                TupleSections
+
     build-depends: base
                  , PROJECTNAME
                  , yesod-test >= 1.4 && < 1.5
@@ -8878,7 +8894,7 @@ $maybe msg <- mmsg
     <form method=post action=@{HomeR}#form enctype=#{formEnctype}>
       ^{formWidget}
       <button .btn .btn-primary type="submit">
-         Send it! <span class="glyphicon glyphicon-upload">
+         Send it! <span class="glyphicon glyphicon-upload"></span>
 
   <li> And last but not least, Testing. In <em>tests/main.hs</em> you will find a #
     test suite that performs tests on this page. #
@@ -8895,16 +8911,15 @@ h2##{aDomId} {
     color: #990
 }
 
-{-# START_FILE test/HomeTest.hs #-}
-{-# LANGUAGE OverloadedStrings #-}
-module HomeTest
-    ( homeSpecs
+{-# START_FILE test/Handler/HomeSpec.hs #-}
+module Handler.HomeSpec
+    ( spec
     ) where
 
 import TestImport
 
-homeSpecs :: Spec
-homeSpecs =
+spec :: Spec
+spec =
     ydescribe "These are some example tests" $ do
 
         yit "loads the index and checks it looks right" $ do
@@ -8916,35 +8931,16 @@ homeSpecs =
                 setMethod "POST"
                 setUrl HomeR
                 addNonce
-                fileByLabel "Choose a file" "test/main.hs" "text/plain" -- talk about self-reference
+                fileByLabel "Choose a file" "test/Spec.hs" "text/plain" -- talk about self-reference
                 byLabel "What's on the file?" "Some Content"
 
             statusIs 200
-            printBody
+            -- more debugging printBody
             htmlCount ".message" 1
             htmlAllContain ".message" "Some Content"
             htmlAllContain ".message" "text/plain"
 
-{-# START_FILE test/TestImport.hs #-}
-{-# LANGUAGE OverloadedStrings #-}
-module TestImport
-    ( module Yesod.Test
-    , module Foundation
-    , Spec
-    , Example
-    ) where
-
-import Yesod.Test
-import Foundation
-
-type Spec = YesodSpec App
-type Example = YesodExample App
-
-{-# START_FILE test/main.hs #-}
-{-# LANGUAGE OverloadedStrings #-}
-{-# LANGUAGE NoMonomorphismRestriction #-}
-{-# OPTIONS_GHC -fno-warn-orphans #-}
-
+{-# START_FILE test/Spec.hs #-}
 module Main where
 
 import Import
@@ -8953,7 +8949,7 @@ import Yesod.Test
 import Test.Hspec (hspec)
 import Application (makeFoundation)
 
-import HomeTest
+import qualified Handler.HomeSpec
 
 main :: IO ()
 main = do
@@ -8963,5 +8959,21 @@ main = do
     foundation <- makeFoundation conf
     hspec $ do
         yesodSpec foundation $ do
-            homeSpecs
+            Handler.HomeSpec.spec
+
+{-# START_FILE test/TestImport.hs #-}
+module TestImport
+    ( module Yesod.Test
+    , module Foundation
+    , module Prelude
+    , Spec
+    , Example
+    ) where
+
+import Yesod.Test
+import Prelude
+import Foundation
+
+type Spec = YesodSpec App
+type Example = YesodExample App
 
diff --git a/yesod-bin/hsfiles/sqlite.hsfiles b/yesod-bin/hsfiles/sqlite.hsfiles
index 18e38f8d..6f489d2e 100644
--- a/yesod-bin/hsfiles/sqlite.hsfiles
+++ b/yesod-bin/hsfiles/sqlite.hsfiles
@@ -292,7 +292,6 @@ getExtra = fmap (appExtra . settings) getYesod
 -- https://github.com/yesodweb/yesod/wiki/Sending-email
 
 {-# START_FILE Handler/Home.hs #-}
-{-# LANGUAGE TupleSections, OverloadedStrings #-}
 module Handler.Home where
 
 import Import
@@ -425,6 +424,7 @@ library
                 NoMonomorphismRestriction
                 DeriveDataTypeable
                 ViewPatterns
+                TupleSections
 
     build-depends: base                          >= 4          && < 5
                  , yesod                         >= 1.4.0      && < 1.5
@@ -471,10 +471,26 @@ executable         PROJECTNAME
 
 test-suite test
     type:              exitcode-stdio-1.0
-    main-is:           main.hs
+    main-is:           Spec.hs
     hs-source-dirs:    test
     ghc-options:       -Wall
 
+    extensions: TemplateHaskell
+                QuasiQuotes
+                OverloadedStrings
+                NoImplicitPrelude
+                CPP
+                MultiParamTypeClasses
+                TypeFamilies
+                GADTs
+                GeneralizedNewtypeDeriving
+                FlexibleContexts
+                EmptyDataDecls
+                NoMonomorphismRestriction
+                DeriveDataTypeable
+                ViewPatterns
+                TupleSections
+
     build-depends: base
                  , PROJECTNAME
                  , yesod-test >= 1.4 && < 1.5
@@ -9008,7 +9024,7 @@ $maybe msg <- mmsg
     <form method=post action=@{HomeR}#form enctype=#{formEnctype}>
       ^{formWidget}
       <button .btn .btn-primary type="submit">
-         Send it! <span class="glyphicon glyphicon-upload">
+         Send it! <span class="glyphicon glyphicon-upload"></span>
 
   <li> And last but not least, Testing. In <em>tests/main.hs</em> you will find a #
     test suite that performs tests on this page. #
@@ -9025,17 +9041,16 @@ h2##{aDomId} {
     color: #990
 }
 
-{-# START_FILE test/HomeTest.hs #-}
-{-# LANGUAGE OverloadedStrings #-}
-module HomeTest
-    ( homeSpecs
+{-# START_FILE test/Handler/HomeSpec.hs #-}
+module Handler.HomeSpec
+    ( spec
     ) where
 
 import TestImport
 import qualified Data.List as L
 
-homeSpecs :: Spec
-homeSpecs =
+spec :: Spec
+spec =
     ydescribe "These are some example tests" $ do
 
         yit "loads the index and checks it looks right" $ do
@@ -9047,11 +9062,11 @@ homeSpecs =
                 setMethod "POST"
                 setUrl HomeR
                 addNonce
-                fileByLabel "Choose a file" "test/main.hs" "text/plain" -- talk about self-reference
+                fileByLabel "Choose a file" "test/Spec.hs" "text/plain" -- talk about self-reference
                 byLabel "What's on the file?" "Some Content"
 
             statusIs 200
-            printBody
+            -- more debugging printBody
             htmlCount ".message" 1
             htmlAllContain ".message" "Some Content"
             htmlAllContain ".message" "text/plain"
@@ -9065,13 +9080,34 @@ homeSpecs =
             users <- runDB $ selectList ([] :: [Filter User]) []
             assertEqual "user table empty" 0 $ L.length users
 
+{-# START_FILE test/Spec.hs #-}
+module Main where
+
+import Import
+import Yesod.Default.Config
+import Yesod.Test
+import Test.Hspec (hspec)
+import Application (makeFoundation)
+
+import qualified Handler.HomeSpec
+
+main :: IO ()
+main = do
+    conf <- Yesod.Default.Config.loadConfig $ (configSettings Testing)
+                { csParseExtra = parseExtra
+                }
+    foundation <- makeFoundation conf
+    hspec $ do
+        yesodSpec foundation $ do
+            Handler.HomeSpec.spec
+
 {-# START_FILE test/TestImport.hs #-}
-{-# LANGUAGE OverloadedStrings #-}
 module TestImport
     ( module Yesod.Test
     , module Model
     , module Foundation
     , module Database.Persist
+    , module Prelude
     , runDB
     , Spec
     , Example
@@ -9081,6 +9117,7 @@ import Yesod.Test
 import Database.Persist hiding (get)
 import Database.Persist.Sql (SqlPersistM, runSqlPersistMPool)
 import Control.Monad.IO.Class (liftIO)
+import Prelude
 
 import Foundation
 import Model
@@ -9093,28 +9130,3 @@ runDB query = do
     pool <- fmap connPool getTestYesod
     liftIO $ runSqlPersistMPool query pool
 
-{-# START_FILE test/main.hs #-}
-{-# LANGUAGE OverloadedStrings #-}
-{-# LANGUAGE NoMonomorphismRestriction #-}
-{-# OPTIONS_GHC -fno-warn-orphans #-}
-
-module Main where
-
-import Import
-import Yesod.Default.Config
-import Yesod.Test
-import Test.Hspec (hspec)
-import Application (makeFoundation)
-
-import HomeTest
-
-main :: IO ()
-main = do
-    conf <- Yesod.Default.Config.loadConfig $ (configSettings Testing)
-                { csParseExtra = parseExtra
-                }
-    foundation <- makeFoundation conf
-    hspec $ do
-        yesodSpec foundation $ do
-            homeSpecs
-
diff --git a/yesod-bin/yesod-bin.cabal b/yesod-bin/yesod-bin.cabal
index 00241264..80c4f1ea 100644
--- a/yesod-bin/yesod-bin.cabal
+++ b/yesod-bin/yesod-bin.cabal
@@ -1,5 +1,5 @@
 name:            yesod-bin
-version:         1.4.0.5
+version:         1.4.0.6
 license:         MIT
 license-file:    LICENSE
 author:          Michael Snoyman <michael@snoyman.com>