Fixes #22647: Modify the hierarchy of elm applications to make their …

…code shareable between them

webapp/sources/rudder/rudder-web/src/main/elm/hooks/elm.json → webapp/sources/rudder/rudder-web/src/main/elm/elm.json

@@ -7,23 +7,41 @@
     "dependencies": {
         "direct": {
             "NoRedInk/elm-json-decode-pipeline": "1.0.1",
+            "TSFoster/elm-tuple-extra": "2.0.0",
             "TSFoster/elm-uuid": "4.2.0",
+            "ThinkAlexandria/elm-pretty-print-json": "1.0.1",
+            "arsduo/elm-dom-drag-drop": "1.0.0",
+            "ccapndave/elm-flat-map": "1.2.0",
             "elm/browser": "1.0.2",
             "elm/core": "1.0.5",
+            "elm/file": "1.0.5",
             "elm/html": "1.0.0",
             "elm/http": "2.0.0",
             "elm/json": "1.1.3",
+            "elm/parser": "1.1.0",
             "elm/random": "1.0.0",
+            "elm/regex": "1.0.0",
             "elm/time": "1.0.0",
             "elm/url": "1.0.0",
+            "elm/virtual-dom": "1.0.3",
             "elm-community/dict-extra": "2.4.0",
+            "elm-community/html-extra": "3.4.0",
+            "elm-community/json-extra": "4.3.0",
             "elm-community/list-extra": "8.7.0",
+            "elm-community/maybe-extra": "5.3.0",
             "elm-community/string-extra": "4.0.1",
+            "isaacseymour/deprecated-time": "1.0.0",
             "justinmimbs/date": "4.0.1",
             "justinmimbs/time-extra": "1.1.1",
             "jzxhuang/http-extras": "2.1.0",
             "mcordova47/elm-natural-ordering": "1.0.5",
             "mercurymedia/elm-datetime-picker": "5.0.1",
+            "myrho/elm-round": "1.0.4",
+            "pablen/toasty": "1.2.0",
+            "pablohirafuji/elm-markdown": "2.0.5",
+            "rtfeldman/elm-iso8601-date-strings": "1.1.4",
+            "toastal/either": "3.6.3",
+            "visotype/elm-dom": "1.1.3",
             "webbhuset/elm-json-decode": "1.1.0"
         },
         "indirect": {
@@ -32,14 +50,11 @@
             "TSFoster/elm-sha1": "2.1.1",
             "danfishgold/base64-bytes": "1.1.0",
             "elm/bytes": "1.0.8",
-            "elm/file": "1.0.5",
-            "elm/parser": "1.1.0",
-            "elm/regex": "1.0.0",
             "elm/svg": "1.0.1",
-            "elm/virtual-dom": "1.0.3",
-            "elm-community/html-extra": "3.4.0",
+            "elm-community/basics-extra": "4.1.0",
             "kuon/elm-string-normalize": "1.0.5",
-            "rtfeldman/elm-hex": "1.0.0"
+            "rtfeldman/elm-hex": "1.0.0",
+            "the-sett/elm-pretty-printer": "2.2.3"
         }
     },
     "test-dependencies": {

webapp/sources/rudder/rudder-web/src/main/elm/accounts/sources/Accounts.elm → webapp/sources/rudder/rudder-web/src/main/elm/sources/Accounts.elm

@@ -3,26 +3,26 @@ module Accounts exposing (..)
 import Browser
 import Dict
 import Dict.Extra
-import DataTypes exposing (..)
 import Http exposing (..)
 import Http.Detailed as Detailed
-import Init exposing (..)
-import View exposing (view)
 import Result
-import ApiCalls exposing (..)
-import ViewUtils exposing (..)
 import List.Extra
 import Random
 import UUID
-import JsonEncoder exposing (encodeTokenAcl)
 import Json.Encode exposing (..)
-import JsonDecoder exposing (decodeErrorDetails)
-
 import SingleDatePicker exposing (Settings, TimePickerVisibility(..), defaultSettings, defaultTimePickerSettings)
 import Task
 import Time exposing (Month(..), Posix, Zone)
 import Time.Extra as Time exposing (Interval(..), add)
-import DatePickerUtils exposing (..)
+
+import Accounts.ApiCalls exposing (..)
+import Accounts.DataTypes exposing (..)
+import Accounts.DatePickerUtils exposing (..)
+import Accounts.Init exposing (..)
+import Accounts.JsonEncoder exposing (encodeTokenAcl)
+import Accounts.JsonDecoder exposing (decodeErrorDetails)
+import Accounts.View exposing (view)
+import Accounts.ViewUtils exposing (..)
 
 main = Browser.element
   { init          = init

webapp/sources/rudder/rudder-web/src/main/elm/accounts/sources/ApiCalls.elm → webapp/sources/rudder/rudder-web/src/main/elm/sources/Accounts/ApiCalls.elm

@@ -1,19 +1,19 @@
-module ApiCalls exposing (..)
+module Accounts.ApiCalls exposing (..)
 
-import DataTypes exposing (..)
 import Http exposing (..)
-import JsonDecoder exposing (..)
-import JsonEncoder exposing (..)
 import Url.Builder exposing (QueryParameter)
 import Http.Detailed as Detailed
 
+import Accounts.DataTypes exposing (..)
+import Accounts.JsonDecoder exposing (..)
+import Accounts.JsonEncoder exposing (..)
 
 --
 -- This files contains all API calls for the Rules UI
 -- Summary:
 -- GET    /apiaccounts: get the api accounts list
 
-getUrl: DataTypes.Model -> List String -> List QueryParameter -> String
+getUrl: Model -> List String -> List QueryParameter -> String
 getUrl m url p=
   Url.Builder.relative (m.contextPath :: "secure" :: url) p
 

webapp/sources/rudder/rudder-web/src/main/elm/accounts/sources/DataTypes.elm → webapp/sources/rudder/rudder-web/src/main/elm/sources/Accounts/DataTypes.elm

@@ -1,9 +1,8 @@
-module DataTypes exposing (..)
+module Accounts.DataTypes exposing (..)
 
 import Http exposing (Error)
 import Http.Detailed
 import Json.Decode as D exposing (..)
-
 import SingleDatePicker exposing (Settings, TimePickerVisibility(..), defaultSettings, defaultTimePickerSettings, DatePicker)
 import Time exposing (Posix, Zone)
 

webapp/sources/rudder/rudder-web/src/main/elm/accounts/sources/DatePickerUtils.elm → webapp/sources/rudder/rudder-web/src/main/elm/sources/Accounts/DatePickerUtils.elm

@@ -1,13 +1,15 @@
-module DatePickerUtils exposing (..)
-
-import DataTypes exposing (..)
+module Accounts.DatePickerUtils exposing (..)
 
 import SingleDatePicker exposing (Settings, TimePickerVisibility(..), defaultSettings, defaultTimePickerSettings)
 import Task
 import Time exposing (Month(..), Posix, Zone)
 import Time.Extra as Time exposing (Interval(..), Parts, partsToPosix)
 import List.Extra exposing (getAt)
 import Date exposing (fromIsoString)
+
+import Accounts.DataTypes exposing (..)
+
+
 isDateBeforeToday : Posix -> Posix -> Bool
 isDateBeforeToday today datetime =
   Time.posixToMillis today > Time.posixToMillis datetime