From ad057abb1bc181d7f985c0f7201d3db3bcbd01b7 Mon Sep 17 00:00:00 2001 From: Greg Weber Date: Fri, 3 Aug 2012 07:01:47 -0700 Subject: [PATCH] avoid MongoDB warning --- yesod/Scaffolding/Scaffolder.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/yesod/Scaffolding/Scaffolder.hs b/yesod/Scaffolding/Scaffolder.hs index f484155d..88289c7b 100644 --- a/yesod/Scaffolding/Scaffolder.hs +++ b/yesod/Scaffolding/Scaffolder.hs @@ -60,7 +60,7 @@ scaffold = do "s" -> (Sqlite, "GenericSql", "SqlPersist", "Sqlite", "sqlSettings") "p" -> (Postgresql, "GenericSql", "SqlPersist", "Postgresql", "sqlSettings") "mysql" -> (Mysql, "GenericSql", "SqlPersist", "MySQL", "sqlSettings") - "mongo" -> (MongoDB, "MongoDB", "Action", "MongoDB", "MkPersistSettings { mpsBackend = ConT ''Action }") + "mongo" -> (MongoDB, "MongoDB hiding (master)", "Action", "MongoDB", "MkPersistSettings { mpsBackend = ConT ''Action }") _ -> error $ "Invalid backend: " ++ backendC (modelImports) = case backend of MongoDB -> "import Database.Persist." ++ importGenericDB ++ "\nimport Language.Haskell.TH.Syntax"