nuttycom/aftok - Change SAESJLLYCQJUIHKFYFV53AWHFOSGI5SKLVS7DPTQO6BKGITPYPUQC

Initial experiments in hash routing.

Created by Kris Nuttycombe on September 3, 2020

SAESJLLYCQJUIHKFYFV53AWHFOSGI5SKLVS7DPTQO6BKGITPYPUQC

Dependencies

In channels

main

Change contents

Replacement in client/dev/index.html at line 6 [4.2486]

B:BD[4.2573] → [4.2573:2649]

B:BD[4.2649] → [5.4:82]

    <link rel="stylesheet" type="text/css" href="./assets/css/theme.css" />
    <link rel="stylesheet" type="text/css" href="./assets/css/spinner.css" />

[4.2573]

[4.2649]

    <link rel="stylesheet" type="text/css" href="/assets/css/theme.css" />
    <link rel="stylesheet" type="text/css" href="/assets/css/spinner.css" />

Insertion in client/spago.dhall at line 10 [4.294942]
[4.295116]
[6.376]
```
    , "routing"
```

Replacement in client/src/Aftok/Login.purs at line 51 [7.20]

B:BD[7.596] → [6.409:470]

newtype LoginComplete = LoginComplete { username :: String }

[7.596]

[7.725]

data LoginResult 
  = LoginComplete { username :: String }

Replacement in client/src/Aftok/Login.purs at line 54 [7.20]

B:BD[7.726] → [4.295950:296009]

type Slot id = forall query. H.Slot query LoginComplete id

[7.726]

[7.832]

type Slot id = forall query. H.Slot query LoginResult id

Replacement in client/src/Aftok/Login.purs at line 67 [7.20]
∅:D[8.132] → [4.296155:296208]
B:BD[4.296155] → [4.296155:296208]
```
  -> H.Component HH.HTML query input LoginComplete m
```
[8.132]
[8.133]
```
  -> H.Component HH.HTML query input LoginResult m
```

Insertion in client/src/Aftok/Login.purs at line 160 [7.20]

[4.300047]

              , HH.p  
                [ P.classes (ClassName <$> ["mb-0", "font-size-sm", "text-center", "text-muted"]) ]
                [ HH.text "Need an account? " 
                , HH.a 
                  [ P.href "./#signup" ]
                  [ HH.text "Sign up" ]
                ]

Replacement in client/src/Aftok/Login.purs at line 170 [7.20]

B:BD[7.2139] → [4.300062:300147]

    eval :: LoginAction -> H.HalogenM LoginState LoginAction () LoginComplete m Unit

[7.2139]

[4.300147]

    eval :: LoginAction -> H.HalogenM LoginState LoginAction () LoginResult m Unit

Replacement in client/src/Aftok/Signup.purs at line 17 [3.1]
B:BD[3.385] → [3.385:419]
```
-- import Halogen.HTML.CSS as CSS
```
[3.385]
[3.419]
```
import Halogen.HTML.CSS as CSS
```

Insertion in client/src/Aftok/Signup.purs at line 24 [3.1]

[3.590]

import CSS.Display (display, flex)
import CSS.Flexbox (flexFlow, row, nowrap)

Deletion in client/src/Aftok/Signup.purs at line 61 [3.1]
B:BD[3.1362] → [3.1362:1378]
```
  | LoginSwitch
```

Replacement in client/src/Aftok/Signup.purs at line 112 [3.1]

B:BD[3.2920] → [3.2920:3025]

            [ P.classes (ClassName <$> ["align-items-center", "justify-content-center", "no-gutters"]) ]

[3.2920]

[3.3025]

            [ P.classes (ClassName <$> ["row", "align-items-center", "justify-content-center", "no-gutters"]) ]

Insertion in client/src/Aftok/Signup.purs at line 182 [3.1]
[3.6059]
[3.6059]
```
      SetRecoveryType t -> H.modify_ (_ { recoveryType = t })
```

Replacement in client/src/Aftok/Signup.purs at line 195 [3.1]

B:BD[3.6420] → [3.6420:6479]

      [ P.classes (ClassName <$> ["form-group", "mb-3"]) ]

[3.6420]

[3.6479]

      [ P.classes (ClassName <$> ["form-group", "mb-3"]) 
      , CSS.style do
          display flex
          flexFlow row nowrap
      ]

Insertion in client/src/Aftok/Signup.purs at line 211 [3.1]

[3.7015]

        , HH.label [ P.classes (ClassName <$> [ "custom-control-label" ]), P.for "recoverySwitch" ] []

Replacement in client/src/Aftok/Signup.purs at line 244 [3.1]

B:BD[3.7987] → [3.7987:8072]

          [ HH.img [ P.src "./assets/img/icons/duotone-icons/Code/Info-circle.svg" ]

[3.7987]

[3.8072]

          [ HH.img [ P.src "/assets/img/icons/duotone-icons/Code/Info-circle.svg" ]

Insertion in client/src/Aftok/Signup.purs at line 257 [3.1]

[3.8398]

mockCapability :: forall m. Applicative m => Capability m
mockCapability = 
  { signup: \_ _ -> pure OK 
  }

Insertion in client/src/Aftok/Types.purs at line 33 [9.7400]
[8.11510]
[9.7524]
```
import Routing.Hash as H
```
Insertion in client/src/Aftok/Types.purs at line 39 [9.7400]
[8.11606]
[8.11606]
```
  , getHash :: m String
```
Insertion in client/src/Aftok/Types.purs at line 50 [9.7400]
[8.11809]
[8.11809]
```
  , getHash: liftEffect H.getHash
```
Insertion in client/src/Main.purs at line 24 [10.410]
[4.307714]
[4.307714]
```
import Aftok.Signup as Signup
```
Insertion in client/src/Main.purs at line 33 [10.410]
[11.1617]
[9.7682]
```
      signup = Signup.mockCapability
```

Replacement in client/src/Main.purs at line 36 [10.410]

B:BD[6.3826] → [8.13621:13687]

      mainComponent = component liveSystem login timeline project

[6.3826]

[5.1541]

      mainComponent = component liveSystem login signup timeline project

Insertion in client/src/Main.purs at line 38 [10.410]

[5.1573]

[12.1116]


data MainView 
  = VLoading
  | VSignup
  | VLogin
  | VTimeline

Replacement in client/src/Main.purs at line 45 [10.410]
B:BD[13.1487] → [4.308019:308035]
B:BD[4.308035] → [5.1574:1586]
∅:D[5.1586] → [4.308049:308063]
B:BD[4.308049] → [4.308049:308063]
B:BD[4.308063] → [5.1587:1601]
```
data MainState 
  = Loading
  | LoggedOut
  | LoggedIn 
```
[12.1117]
[4.308063]
```
type MainState =
  { view :: MainView
  , config :: Signup.Config
  }
```

Replacement in client/src/Main.purs at line 52 [10.410]

B:BD[6.3913] → [6.3913:3951]

B:BD[6.3951] → [5.1602:1613]

  | LoginComplete Login.LoginComplete
  | Logout

[6.3913]

[12.1118]

  | LoginAction Login.LoginResult
  | SignupAction Signup.SignupResult
  | LogoutAction

Insertion in client/src/Main.purs at line 58 [10.410]
[11.1723]
[11.1723]
```
  , signup :: Signup.Slot Unit
```
Insertion in client/src/Main.purs at line 63 [10.410]
[4.308236]
[4.308236]
```
_signup = SProxy :: SProxy "signup"
```
Insertion in client/src/Main.purs at line 71 [10.410]
[8.13772]
[8.13772]
```
  -> Signup.Capability m
```

Replacement in client/src/Main.purs at line 75 [10.410]

B:BD[8.13871] → [8.13871:13925]

component system loginCap tlCap pCap = H.mkComponent

[8.13871]

[4.308429]

component system loginCap signupCap tlCap pCap = H.mkComponent

Replacement in client/src/Main.purs at line 84 [10.410]
B:BD[4.308567] → [2.8276:8305]
```
    initialState _ = Loading
```
[4.308567]
[4.308598]
```
    initialState _ = { view: VLoading, config: { recaptchaKey: "" } }
```
Replacement in client/src/Main.purs at line 87 [10.410]
B:BD[8.13988] → [2.8306:8329]
∅:D[2.8329] → [5.1614:1631]
B:BD[4.308688] → [5.1614:1631]
```
    render = case _ of
      Loading ->
```
[8.13988]
[5.1631]
```
    render st = case st.view of
      VLoading ->
```
Replacement in client/src/Main.purs at line 91 [10.410]
∅:D[5.1703] → [4.308688:308708]
B:BD[4.308688] → [4.308688:308708]
```
      LoggedOut -> 
```
[5.1703]
[5.1704]
```
      VSignup -> 
```

Replacement in client/src/Main.purs at line 93 [10.410]

B:BD[5.1721] → [8.13989:14087]

          [ HH.slot _login unit (Login.component system loginCap) unit (Just <<< LoginComplete) ]

[5.1721]

[5.1812]

          [ HH.slot _signup unit (Signup.component system signupCap st.config) unit (Just <<< SignupAction) ]

Replacement in client/src/Main.purs at line 95 [10.410]
∅:D[14.377] → [4.308805:308824]
∅:D[5.1813] → [4.308805:308824]
∅:D[11.1929] → [4.308805:308824]
B:BD[4.308805] → [4.308805:308824]
```
      LoggedIn -> 
```
[5.1813]
[5.1814]
```
      VLogin -> 
        HH.div_ 
          [ HH.slot _login unit (Login.component system loginCap) unit (Just <<< LoginAction) ]
      VTimeline -> 
```
Replacement in client/src/Main.purs at line 104 [10.410]
∅:D[8.14255] → [4.309005:309026]
B:BD[4.309005] → [4.309005:309026]
```
    eval = case _ of
```
[8.14255]
[6.4241]
```
    eval action = case action of
```

Replacement in client/src/Main.purs at line 106 [10.410]

B:BD[6.4264] → [5.1938:2080]

        result <- lift loginCap.checkLogin
        case result of 
          Login.Forbidden -> H.put LoggedOut
          _ -> H.put LoggedIn

[6.4264]

[6.4407]

        route <- lift system.getHash
        nextView <- case route of 
          "login"  -> pure VLogin
          "signup" -> pure VSignup
          other -> do
            result <- lift loginCap.checkLogin
            case result of
                Login.Forbidden -> pure VLogin
                _ -> pure VTimeline
        H.modify_ (_ { view = nextView })

Replacement in client/src/Main.purs at line 117 [10.410]

B:BD[6.4408] → [2.8330:8378]

∅:D[2.8378] → [6.4457:4480]

B:BD[6.4457] → [6.4457:4480]

      LoginComplete (Login.LoginComplete _) -> 
        H.put LoggedIn

[6.4408]

[5.2081]

      LoginAction (Login.LoginComplete _) -> 
        H.modify_ (_ { view = VTimeline })

Replacement in client/src/Main.purs at line 120 [10.410]

B:BD[5.2082] → [5.2082:2101]

      Logout -> do

[5.2082]

[5.2101]

      SignupAction (Signup.SignupComplete _) ->
        H.modify_ (_ { view = VTimeline })
      LogoutAction -> do

Replacement in client/src/Main.purs at line 125 [10.410]
B:BD[5.2130] → [5.2130:2154]
```
        H.put LoggedOut
```
[5.2130]
[5.2154]
```
        H.modify_ (_ { view = VLogin })
```
Replacement in client/src/Main.purs at line 151 [10.410]
B:BD[5.2869] → [5.2869:2901]
```
  ,E.onClick \_ -> Just Logout 
```
[5.2869]
[5.2901]
```
  ,E.onClick \_ -> Just LogoutAction 
```
Insertion in deploy/nginx/mime.types at line 11 [15.1]
[15.434]
[15.434]
```
  image/svg+xml                         svg;
```

Initial experiments in hash routing.

Dependencies

In channels

Change contents

Replacement in client/dev/index.html at line 6 [4.2486]

Insertion in client/spago.dhall at line 10 [4.294942]

Replacement in client/src/Aftok/Login.purs at line 51 [7.20]

Replacement in client/src/Aftok/Login.purs at line 54 [7.20]

Replacement in client/src/Aftok/Login.purs at line 67 [7.20]

Insertion in client/src/Aftok/Login.purs at line 160 [7.20]

Replacement in client/src/Aftok/Login.purs at line 170 [7.20]

Replacement in client/src/Aftok/Signup.purs at line 17 [3.1]

Insertion in client/src/Aftok/Signup.purs at line 24 [3.1]

Deletion in client/src/Aftok/Signup.purs at line 61 [3.1]

Replacement in client/src/Aftok/Signup.purs at line 112 [3.1]

Insertion in client/src/Aftok/Signup.purs at line 182 [3.1]

Replacement in client/src/Aftok/Signup.purs at line 195 [3.1]

Insertion in client/src/Aftok/Signup.purs at line 211 [3.1]

Replacement in client/src/Aftok/Signup.purs at line 244 [3.1]

Insertion in client/src/Aftok/Signup.purs at line 257 [3.1]

Insertion in client/src/Aftok/Types.purs at line 33 [9.7400]

Insertion in client/src/Aftok/Types.purs at line 39 [9.7400]

Insertion in client/src/Aftok/Types.purs at line 50 [9.7400]

Insertion in client/src/Main.purs at line 24 [10.410]

Insertion in client/src/Main.purs at line 33 [10.410]

Replacement in client/src/Main.purs at line 36 [10.410]

Insertion in client/src/Main.purs at line 38 [10.410]

Replacement in client/src/Main.purs at line 45 [10.410]

Replacement in client/src/Main.purs at line 52 [10.410]

Insertion in client/src/Main.purs at line 58 [10.410]

Insertion in client/src/Main.purs at line 63 [10.410]

Insertion in client/src/Main.purs at line 71 [10.410]

Replacement in client/src/Main.purs at line 75 [10.410]

Replacement in client/src/Main.purs at line 84 [10.410]

Replacement in client/src/Main.purs at line 87 [10.410]

Replacement in client/src/Main.purs at line 91 [10.410]

Replacement in client/src/Main.purs at line 93 [10.410]

Replacement in client/src/Main.purs at line 95 [10.410]

Replacement in client/src/Main.purs at line 104 [10.410]

Replacement in client/src/Main.purs at line 106 [10.410]

Replacement in client/src/Main.purs at line 117 [10.410]

Replacement in client/src/Main.purs at line 120 [10.410]

Replacement in client/src/Main.purs at line 125 [10.410]

Replacement in client/src/Main.purs at line 151 [10.410]

Insertion in deploy/nginx/mime.types at line 11 [15.1]