11module UnisonShare.Page.ProjectContributionChecksPage exposing (..)
22
33import Code.BranchRef as BranchRef
4- import Code.Definition.Reference exposing (Reference )
5- import Code.DefinitionSummaryTooltip as DefinitionSummaryTooltip
6- import Code.FullyQualifiedName as FQN
74import Code.Hash as Hash
8- import Code.Perspective as Perspective
9- import Code.ProjectDependency as ProjectDependency
10- import Code.Syntax as Syntax
11- import Code.Syntax.SyntaxConfig as SyntaxConfig
12- import Code.Version as Version
13- import Html exposing (Html , br , code , div , h2 , header , label , p , pre , span , strong , text )
14- import Html.Attributes exposing (class , id , style )
15- import Http
16- import Json.Decode as Decode
17- import Lib.HttpApi as HttpApi exposing (HttpResult )
5+ import Html exposing (Html , div , header , pre , text )
6+ import Html.Attributes exposing (class )
187import Lib.UserHandle as UserHandle
198import Lib.Util as Util
20- import List.Nonempty as NEL
219import RemoteData exposing (RemoteData (..) , WebData )
2210import Set exposing (Set )
2311import Set.Extra as SetE
24- import String.Extra exposing (pluralize )
2512import Time
2613import UI
27- import UI.Button as Button
2814import UI.Card as Card
29- import UI.Click as Click
3015import UI.DateTime as DateTime exposing (DateTime )
3116import UI.Divider as Divider
3217import UI.FoldToggle as FoldToggle
33- import UI.Icon as Icon exposing (Icon )
3418import UI.PageContent as PageContent exposing (PageContent )
35- import UI.Placeholder as Placeholder
36- import UI.StatusBanner as StatusBanner
3719import UI.StatusIndicator as StatusIndicator
38- import UI.TabList as TabList
39- import UI.Tooltip as Tooltip
40- import UnisonShare.Account as Account
41- import UnisonShare.Api as ShareApi
42- import UnisonShare.AppContext as AppContext exposing (AppContext )
43- import UnisonShare.BranchDiff as BranchDiff exposing (BranchDiff )
44- import UnisonShare.BranchDiff.ChangeLine as ChangeLine exposing (ChangeLine )
45- import UnisonShare.BranchDiff.ChangeLineId as ChangeLineId exposing (ChangeLineId )
46- import UnisonShare.BranchDiff.DefinitionType as DefinitionType exposing (DefinitionType )
47- import UnisonShare.BranchDiff.LibDep as LibDep exposing (LibDep )
48- import UnisonShare.BranchDiff.ToggledChangeLines as ToggledChangeLines exposing (ToggledChangeLines )
49- import UnisonShare.BranchDiffState as BranchDiffState exposing (BranchDiffState )
50- import UnisonShare.Check as Check exposing (Check , CheckId , CheckStatus )
20+ import UnisonShare.AppContext exposing (AppContext )
21+ import UnisonShare.Check as Check exposing (Check , CheckId )
5122import UnisonShare.Contribution exposing (ContributionDetails )
5223import UnisonShare.Contribution.ContributionRef exposing (ContributionRef )
53- import UnisonShare.DefinitionDiff as DefinitionDiff
54- import UnisonShare.DefinitionDiffCard as DefinitionDiffCard
55- import UnisonShare.Link as Link
5624import UnisonShare.Page.ProjectContributionPageHelpers as ProjectContributionPageHelpers exposing (tabs )
5725import UnisonShare.Project exposing (ProjectDetails )
58- import UnisonShare.Project.ProjectRef as ProjectRef exposing (ProjectRef )
59- import UnisonShare.Route as Route
60- import UnisonShare.Session as Session
26+ import UnisonShare.Project.ProjectRef exposing (ProjectRef )
6127import Url
6228
6329
@@ -77,7 +43,7 @@ type alias Model =
7743
7844
7945init : AppContext -> ProjectRef -> ContributionRef -> Maybe CheckId -> ( Model , Cmd Msg )
80- init appContext projectRef contribRef checkId =
46+ init appContext projectRef contribRef _ =
8147 ( { checks = Loading
8248 , folds = Set . empty
8349 }
@@ -96,7 +62,7 @@ type Msg
9662
9763
9864update : AppContext -> ProjectRef -> ContributionRef -> Msg -> Model -> ( Model , Cmd Msg )
99- update appContext projectRef contribRef msg model =
65+ update _ _ _ msg model =
10066 case msg of
10167 FetchChecksFinished checks ->
10268 ( { model | checks = checks }, Cmd . none )
@@ -117,7 +83,7 @@ update appContext projectRef contribRef msg model =
11783
11884
11985fetchChecks : AppContext -> ProjectRef -> ContributionRef -> Cmd Msg
120- fetchChecks appContext projectRef contribRef =
86+ fetchChecks _ projectRef _ =
12187 let
12288 baseTime =
12389 Time . millisToPosix 1701619200000
0 commit comments