Use applicationName When Generating Action And Mail

digitallyinduced · Jun 11, 2021 · 620db80 · 620db80
1 parent 973fa49
commit 620db80
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/IHP/IDE/CodeGen/Controller.hs b/IHP/IDE/CodeGen/Controller.hs
@@ -86,7 +86,7 @@ instance Controller CodeGenController where
 
     action CreateViewAction = do
         let viewName = paramOrDefault "" "name"
-        let applicationName = "Web"
+        let applicationName = paramOrDefault "Web" "applicationName"
         let controllerName = paramOrDefault "" "controllerName"
         (Right plan) <- ViewGenerator.buildPlan viewName applicationName controllerName
         executePlan plan
@@ -108,7 +108,7 @@ instance Controller CodeGenController where
 
     action CreateMailAction = do
         let mailName = paramOrDefault "" "name"
-        let applicationName = "Web"
+        let applicationName = paramOrDefault "Web" "applicationName"
         let controllerName = paramOrDefault "" "controllerName"
         (Right plan) <- MailGenerator.buildPlan mailName applicationName controllerName
         executePlan plan