Xeorg
/
site
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

frontend: cleanup imports

This commit is contained in:
Cadey Ratio 2016-12-14 12:04:18 -08:00
parent 81206835d5
commit 9c1c336ec4
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
frontend/src/BlogEntry.purs
View File

@ -8,8 +8,8 @@ import Data.Maybe (Maybe(..))
import Network.HTTP.Affjax (AJAX, get) import Network.HTTP.Affjax (AJAX, get)
import Prelude (bind, pure, show, ($), (<>), (<<<)) import Prelude (bind, pure, show, ($), (<>), (<<<))
import Pux (EffModel, noEffects) import Pux (EffModel, noEffects)
import Pux.Html (Html, div, h1, h2, p, text) import Pux.Html (Html, div, h1, p, text)
import Pux.Html.Attributes (id_) import Pux.Html.Attributes (className, id_)
data Action = RequestPost data Action = RequestPost
| ReceivePost (Either String Post) | ReceivePost (Either String Post)
@ -70,9 +70,9 @@ view { id: id, status: status, post: (Post post) } =
case id of case id of
Nothing -> div [] [] Nothing -> div [] []
(Just _) -> (Just _) ->
div [] div [ className "row" ]
[ h1 [] [ text status ] [ h1 [] [ text status ]
, div [] , div [ className "col s6 offset-s3" ]
[ p [ id_ "blogpost" ] [ text post.body ] ] [ p [ id_ "blogpost" ] [ text post.body ] ]
] ]