From dad03b35243607c84ed6ac60321a5b608a10ae1c Mon Sep 17 00:00:00 2001
From: patrick brisbin <pbrisbin@gmail.com>
Date: Fri, 20 Jan 2012 14:34:41 -0500
Subject: [PATCH] adjust scaffold to silence Route warning, fixes #216

---
 yesod/Scaffolding/Scaffolder.hs  |  2 +-
 yesod/scaffold/Foundation.hs.cg  |  1 -
 yesod/scaffold/Import.hs.cg      |  2 ++
 yesod/scaffold/tiny/Import.hs.cg | 18 ++++++++++++++++++
 yesod/yesod.cabal                |  1 +
 5 files changed, 22 insertions(+), 2 deletions(-)
 create mode 100644 yesod/scaffold/tiny/Import.hs.cg

diff --git a/yesod/Scaffolding/Scaffolder.hs b/yesod/Scaffolding/Scaffolder.hs
index 4fc9d241..c494bb58 100644
--- a/yesod/Scaffolding/Scaffolder.hs
+++ b/yesod/Scaffolding/Scaffolder.hs
@@ -160,7 +160,7 @@ scaffold = do
     writeFile' ".ghci" $(codegen ".ghci")
     writeFile' "LICENSE" $(codegen "LICENSE")
     writeFile' ("Foundation.hs") $ ifTiny $(codegen "tiny/Foundation.hs") $(codegen "Foundation.hs")
-    writeFile' "Import.hs" $(codegen "Import.hs")
+    writeFile' ("Import.hs") $ ifTiny $(codegen "tiny/Import.hs") $(codegen "Import.hs")
     writeFile' "Application.hs" $ ifTiny $(codegen "tiny/Application.hs") $(codegen "Application.hs")
     writeFile' "Handler/Root.hs" $(codegen "Handler/Root.hs")
     unless isTiny $ writeFile' "Model.hs" $(codegen "Model.hs")
diff --git a/yesod/scaffold/Foundation.hs.cg b/yesod/scaffold/Foundation.hs.cg
index dd3e7320..cf12bb92 100644
--- a/yesod/scaffold/Foundation.hs.cg
+++ b/yesod/scaffold/Foundation.hs.cg
@@ -8,7 +8,6 @@ module Foundation
     , Form
     , maybeAuth
     , requireAuth
-    , module Yesod
     , module Settings
     , module Model
     ) where
diff --git a/yesod/scaffold/Import.hs.cg b/yesod/scaffold/Import.hs.cg
index cef85920..faff3826 100644
--- a/yesod/scaffold/Import.hs.cg
+++ b/yesod/scaffold/Import.hs.cg
@@ -1,5 +1,6 @@
 module Import
     ( module Prelude
+    , module Yesod
     , module Foundation
     , (<>)
     , Text
@@ -8,6 +9,7 @@ module Import
     ) where
 
 import Prelude hiding (writeFile, readFile)
+import Yesod   hiding (Route(..))
 import Foundation
 import Data.Monoid (Monoid (mappend, mempty, mconcat))
 import Control.Applicative ((<$>), (<*>), pure)
diff --git a/yesod/scaffold/tiny/Import.hs.cg b/yesod/scaffold/tiny/Import.hs.cg
new file mode 100644
index 00000000..cef85920
--- /dev/null
+++ b/yesod/scaffold/tiny/Import.hs.cg
@@ -0,0 +1,18 @@
+module Import
+    ( module Prelude
+    , module Foundation
+    , (<>)
+    , Text
+    , module Data.Monoid
+    , module Control.Applicative
+    ) where
+
+import Prelude hiding (writeFile, readFile)
+import Foundation
+import Data.Monoid (Monoid (mappend, mempty, mconcat))
+import Control.Applicative ((<$>), (<*>), pure)
+import Data.Text (Text)
+
+infixr 5 <>
+(<>) :: Monoid m => m -> m -> m
+(<>) = mappend
diff --git a/yesod/yesod.cabal b/yesod/yesod.cabal
index f0d9acfa..9c3cf333 100644
--- a/yesod/yesod.cabal
+++ b/yesod/yesod.cabal
@@ -26,6 +26,7 @@ extra-source-files:
   scaffold/Foundation.hs.cg
   scaffold/LICENSE.cg
   scaffold/mongoDBConnPool.cg
+  scaffold/tiny/Import.hs.cg
   scaffold/tiny/Foundation.hs.cg
   scaffold/tiny/project.cabal.cg
   scaffold/tiny/Application.hs.cg