Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Port to orus-io/elm-spa #106

Draft
wants to merge 10 commits into
base: master
Choose a base branch
from
4 changes: 3 additions & 1 deletion elm.json
Original file line number Diff line number Diff line change
@@ -1,7 +1,8 @@
{
"type": "application",
"source-directories": [
"src"
"src",
"../elm-spa/src"
],
"elm-version": "0.19.1",
"dependencies": {
Expand All @@ -15,6 +16,7 @@
"elm/time": "1.0.0",
"elm/url": "1.0.0",
"elm-explorations/markdown": "1.0.0",
"orus-io/elm-spa": "2.0.0",
"rtfeldman/elm-iso8601-date-strings": "1.1.0"
},
"indirect": {
Expand Down
2 changes: 1 addition & 1 deletion src/Api.elm
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
port module Api exposing (Cred, addServerError, application, decodeErrors, delete, get, login, logout, post, put, register, settings, storeCredWith, username, viewerChanges)
port module Api exposing (Cred, addServerError, application, decodeErrors, delete, get, login, logout, post, put, register, settings, storageDecoder, storeCredWith, username, viewerChanges)

{-| This module is responsible for communicating to the Conduit API.
Expand Down
3 changes: 2 additions & 1 deletion src/Article/Feed.elm
Original file line number Diff line number Diff line change
Expand Up @@ -22,6 +22,7 @@ import Time
import Timestamp
import Url exposing (Url)
import Username exposing (Username)
import View


{-| NOTE: This module has its own Model, view, and update. This is not normal!
Expand Down Expand Up @@ -85,7 +86,7 @@ viewArticles timeZone (Model { articles, session, errors }) =
PaginatedList.values articles
|> List.map (viewPreview maybeCred timeZone)
in
Page.viewErrors ClickedDismissErrors errors :: articlesHtml
View.viewErrors ClickedDismissErrors errors :: articlesHtml


viewPreview : Maybe Cred -> Time.Zone -> Article Preview -> Html Msg
Expand Down
Loading