Prep for check-elm-pages

Author: supermario

extra/Lamdera/CLI.hs

@@ -1,6 +1,6 @@
 {-# LANGUAGE OverloadedStrings #-}
 
-module Lamdera.CLI (live, login, check, deploy, reset, annotate, eval) where
+module Lamdera.CLI (live, login, check, deploy, reset, checkElmPages, annotate, eval) where
 
 import Text.Read (readMaybe)
 import qualified Text.PrettyPrint.ANSI.Leijen as P
@@ -13,6 +13,7 @@ import qualified Lamdera.CLI.Login
 import qualified Lamdera.CLI.Check
 import qualified Lamdera.CLI.Deploy
 import qualified Lamdera.CLI.Reset
+import qualified Lamdera.CLI.CheckElmPages
 import qualified Lamdera.CLI.Annotate
 import qualified Lamdera.CLI.Interpreter
 
@@ -122,6 +123,20 @@ reset =
   Terminal.Command "reset" (Common summary) details example noArgs noFlags Lamdera.CLI.Reset.run
 
 
+checkElmPages :: Terminal.Command
+checkElmPages =
+  let
+    summary =
+      "Compile an elm-pages project and type-check all Data types for wire compatibility."
+
+    details =
+      "This is an elm-pages specific command."
+
+    example =
+      reflow
+        "It will type-check all Data types for wire compatibility"
+  in
+  Terminal.Command "check-elm-pages" (Common summary) details example noArgs noFlags Lamdera.CLI.CheckElmPages.run
 
 
 annotate :: Terminal.Command

terminal/src/Main.hs

@@ -44,6 +44,7 @@ main =
     , make
     , repl
     , Lamdera.CLI.reset
+    , Lamdera.CLI.checkElmPages
     , Lamdera.CLI.annotate
     , Lamdera.CLI.eval
     -- , reactor

test/Test.hs

@@ -17,6 +17,7 @@ import Make (Flags(..))
 import qualified Lamdera.Compile
 import qualified Lamdera.Evaluate
 import qualified Lamdera.CLI.Check
+import qualified Lamdera.CLI.CheckElmPages
 import qualified Ext.Query.Canonical
 
 import Develop
@@ -205,6 +206,9 @@ liveReloadLive = do
   --   "withDebug"
 
 
+-- target = do
+--   Dir.withCurrentDirectory "/Users/mario/dev/projects/elmcraft" $ Lamdera.CLI.CheckElmPages.run () ()
+
 
 
 all =