Code tidy

geeksforsocialchange · Oct 7, 2024 · adcadf1 · adcadf1
1 parent 519dfc5
commit adcadf1
Show file tree

Hide file tree

Showing 12 changed files with 976 additions and 5,209 deletions.
diff --git a/app/Route/About.elm b/app/Route/About.elm
@@ -178,7 +178,7 @@ data =
 
 
 head : RouteBuilder.App Data ActionData RouteParams -> List Head.Tag
-head app =
+head _ =
     Theme.PageTemplate.pageMetaTags
         { title = AboutTitle
         , description = AboutMetaDescription
@@ -190,7 +190,7 @@ view :
     RouteBuilder.App Data ActionData RouteParams
     -> Shared.Model
     -> View.View (PagesMsg.PagesMsg Msg)
-view app shared =
+view app _ =
     { title = t (PageMetaTitle (t AboutTitle))
     , body =
         [ Theme.PageTemplate.view

diff --git a/app/Route/Events.elm b/app/Route/Events.elm
@@ -8,7 +8,6 @@ module Route.Events exposing (Model, Msg, RouteParams, route, Data, ActionData)
 
 import BackendTask
 import Browser.Dom
-import Browser.Navigation
 import Copy.Keys exposing (Key(..))
 import Copy.Text exposing (t)
 import Data.PlaceCal.Events

diff --git a/app/Route/Events/Event_.elm b/app/Route/Events/Event_.elm
@@ -7,23 +7,17 @@ module Route.Events.Event_ exposing (Model, Msg, RouteParams, route, Data, Actio
 -}
 
 import BackendTask
-import BackendTask.Custom
-import Browser.Dom
 import Copy.Keys exposing (Key(..))
 import Copy.Text exposing (t)
 import Data.PlaceCal.Api
 import Data.PlaceCal.Events
-import Effect
 import FatalError
 import Head
-import Json.Encode
 import PagesMsg
 import RouteBuilder
 import Shared
-import Task
 import Theme.EventPage
 import Theme.PageTemplate
-import Theme.TransMarkdown
 import View
 
 

diff --git a/app/Route/Index.elm b/app/Route/Index.elm
@@ -53,7 +53,7 @@ data =
 
 
 head : RouteBuilder.App Data ActionData RouteParams -> List Head.Tag
-head app =
+head _ =
     Theme.PageTemplate.pageMetaTags
         { title = SiteTitle
         , description = IndexMetaDescription
@@ -65,7 +65,7 @@ view :
     RouteBuilder.App Data ActionData RouteParams
     -> Shared.Model
     -> View.View (PagesMsg.PagesMsg Msg)
-view app shared =
+view app _ =
     { title = t SiteTitle
     , body = [ Theme.IndexPage.view app.sharedData ]
     }
diff --git a/app/Route/News.elm b/app/Route/News.elm
@@ -54,7 +54,7 @@ data =
 
 
 head : RouteBuilder.App Data ActionData RouteParams -> List Head.Tag
-head app =
+head _ =
     Theme.PageTemplate.pageMetaTags
         { title = NewsTitle
         , description = NewsDescription
@@ -66,7 +66,7 @@ view :
     RouteBuilder.App Data ActionData RouteParams
     -> Shared.Model
     -> View.View (PagesMsg.PagesMsg Msg)
-view app shared =
+view app _ =
     { title = t (PageMetaTitle (t NewsTitle))
     , body =
         [ Theme.PageTemplate.view

diff --git a/app/Route/Partners.elm b/app/Route/Partners.elm
@@ -53,7 +53,7 @@ data =
 
 
 head : RouteBuilder.App Data ActionData RouteParams -> List Head.Tag
-head app =
+head _ =
     Theme.PageTemplate.pageMetaTags
         { title = PartnersTitle
         , description = PartnersMetaDescription
@@ -65,7 +65,7 @@ view :
     RouteBuilder.App Data ActionData RouteParams
     -> Shared.Model
     -> View.View (PagesMsg.PagesMsg Msg)
-view app shared =
+view app _ =
     { title = t (PageMetaTitle (t PartnersTitle))
     , body =
         [ Theme.PageTemplate.view

diff --git a/app/Route/Partners/Partner_.elm b/app/Route/Partners/Partner_.elm
@@ -7,7 +7,6 @@ module Route.Partners.Partner_ exposing (Model, Msg, RouteParams, route, Data, A
 -}
 
 import BackendTask
-import BackendTask.Custom
 import Browser.Dom
 import Copy.Keys exposing (Key(..))
 import Copy.Text exposing (t)
@@ -68,7 +67,7 @@ init :
     RouteBuilder.App Data ActionData RouteParams
     -> Shared.Model
     -> ( Model, Effect.Effect Msg )
-init app shared =
+init app _ =
     let
         urlFragment : Maybe String
         urlFragment =
@@ -110,7 +109,7 @@ update :
     -> Msg
     -> Model
     -> ( Model, Effect.Effect Msg )
-update app shared msg model =
+update app _ msg model =
     let
         aPartner =
             Data.PlaceCal.Partners.partnerFromSlug app.sharedData.partners app.routeParams.partner
@@ -208,7 +207,7 @@ view :
     -> Shared.Model
     -> Model
     -> View.View (PagesMsg.PagesMsg Msg)
-view app shared model =
+view app _ model =
     let
         aPartner =
             Data.PlaceCal.Partners.partnerFromSlug app.sharedData.partners app.routeParams.partner

diff --git a/app/Route/Privacy.elm b/app/Route/Privacy.elm
@@ -77,7 +77,7 @@ data =
 
 
 head : RouteBuilder.App Data ActionData RouteParams -> List Head.Tag
-head app =
+head _ =
     Theme.PageTemplate.pageMetaTags
         { title = PrivacyTitle
         , description = PrivacyMetaDescription
@@ -89,7 +89,7 @@ view :
     RouteBuilder.App Data ActionData RouteParams
     -> Shared.Model
     -> View.View (PagesMsg.PagesMsg Msg)
-view app shared =
+view app _ =
     { title = t (PageMetaTitle (t PrivacyTitle))
     , body =
         [ Theme.TextHeavyPage.view