Can't remember what I've been doing

Author: Janiczek

src/Frontend.elm

@@ -904,7 +904,7 @@ contentView model =
                         adminWorldsListView model.adminNewWorldName model.adminNewWorldFast data
 
                     AdminWorldActivity worldName ->
-                        adminWorldActivityView model.lastTenToBackendMsgs model.zone worldName data
+                        adminWorldActivityView model.lastTenToBackendMsgs worldName data
 
                     AdminWorldHiscores worldName ->
                         adminWorldHiscoresView worldName data
@@ -4393,16 +4393,16 @@ adminWorldsListView newWorldName newWorldFast data =
     ]
 
 
-adminWorldActivityView : List ( PlayerName, World.Name, ToBackend ) -> Time.Zone -> World.Name -> AdminData -> List (Html FrontendMsg)
-adminWorldActivityView lastTenToBackendMsgs zone worldName data =
+adminWorldActivityView : List ( PlayerName, World.Name, ToBackend ) -> World.Name -> AdminData -> List (Html FrontendMsg)
+adminWorldActivityView lastTenToBackendMsgs worldName data =
     case Dict.get worldName data.worlds of
         Nothing ->
             contentUnavailableView <|
                 "World '"
                     ++ worldName
                     ++ "' not found"
 
-        Just world ->
+        Just _ ->
             [ pageTitleView <| "Admin :: World: " ++ worldName ++ " - Activity"
             , H.h3 [] [ H.text "Last 10 messages" ]
             , H.table [ HA.id "admin-last-ten-msgs-table" ]

src/Frontend/Route.elm

@@ -10,9 +10,7 @@ module Frontend.Route exposing
     , toString
     )
 
-import Data.Barter as Barter
-import Data.Fight as Fight
-import Data.Message as Message exposing (Message)
+import Data.Message as Message
 import Data.World as World
 import Url exposing (Url)
 import Url.Parser as P exposing ((</>), Parser)

src/Time/ExtraExtra.elm

@@ -6,7 +6,7 @@ module Time.ExtraExtra exposing
 
 import Json.Decode as JD exposing (Decoder)
 import Json.Encode as JE
-import Time.Extra as Time exposing (Interval(..))
+import Time.Extra exposing (Interval(..))
 
 
 encodeInterval : Interval -> JE.Value

src/Types.elm

@@ -11,13 +11,12 @@ import Data.Fight.Generator exposing (Fight)
 import Data.FightStrategy exposing (FightStrategy)
 import Data.Item as Item
 import Data.Map exposing (TileCoords)
-import Data.Message as Message exposing (Message)
+import Data.Message as Message
 import Data.NewChar as NewChar exposing (NewChar)
 import Data.Perk exposing (Perk)
 import Data.Player
     exposing
         ( CPlayer
-        , Player
         , SPlayer
         )
 import Data.Player.PlayerName exposing (PlayerName)
@@ -36,11 +35,7 @@ import Data.WorldData
 import Dict exposing (Dict)
 import File exposing (File)
 import Frontend.HoveredItem exposing (HoveredItem)
-import Frontend.Route
-    exposing
-        ( PlayerRoute
-        , Route
-        )
+import Frontend.Route exposing (Route)
 import Lamdera exposing (ClientId, SessionId)
 import Queue exposing (Queue)
 import Set exposing (Set)

watch-compile.sh

@@ -1,19 +1,13 @@
 #!/usr/bin/env bash
 
-COLOR_OFF="\033[0m";
-DIM="\033[2m";
-
-LOCKNAME=$(cat /dev/urandom | LC_ALL=C tr -cd 'a-f0-9' | head -c 16);
-LOCKFILE="/tmp/elm-lock-${LOCKNAME}"
+COLOR_OFF="\e[0m";
+DIM="\e[2m";
 
 function compile {
-  find src -name '*.elm' | xargs elm make --output /dev/null
+  find src -type f -name '*.elm' | xargs lamdera make --output /dev/null
 }
 
 function run {
-  (
-  flock 200
-
   clear;
   tput reset;
   echo -en "\033c\033[3J";
@@ -23,12 +17,10 @@ function run {
   echo -en "${COLOR_OFF}";
 
   compile;
-
-  ) 200>"${LOCKFILE}"
 }
 
 run;
 
-chokidar '**/*.elm' | while read WHATEVER; do
+find src -type f -name '*.elm' | xargs chokidar 2>/dev/null | while read WHATEVER; do
   run;
 done;