update readme
This commit is contained in:
parent
22de2aa78b
commit
ef298cfdd0
|
@ -58,7 +58,7 @@ see https://github.com/jonschoning/espial-docker
|
||||||
7. Start a production server:
|
7. Start a production server:
|
||||||
|
|
||||||
```
|
```
|
||||||
stack exec espial -- +RTS -T
|
stack exec espial
|
||||||
```
|
```
|
||||||
|
|
||||||
see `config/settings.yml` for changing default run-time parameters / environment variables
|
see `config/settings.yml` for changing default run-time parameters / environment variables
|
||||||
|
|
|
@ -1,6 +1,5 @@
|
||||||
module Component.Add where
|
module Component.Add where
|
||||||
|
|
||||||
|
|
||||||
import Prelude hiding (div)
|
import Prelude hiding (div)
|
||||||
|
|
||||||
import App (destroy, editBookmark, lookupTitle)
|
import App (destroy, editBookmark, lookupTitle)
|
||||||
|
@ -155,6 +154,7 @@ addbmark b' =
|
||||||
handleAction :: BAction -> H.HalogenM BState BAction () o Aff Unit
|
handleAction :: BAction -> H.HalogenM BState BAction () o Aff Unit
|
||||||
handleAction (BDeleteAsk e) = do
|
handleAction (BDeleteAsk e) = do
|
||||||
H.modify_ (_ { deleteAsk = e })
|
H.modify_ (_ { deleteAsk = e })
|
||||||
|
|
||||||
handleAction BLookupTitle = do
|
handleAction BLookupTitle = do
|
||||||
H.modify_ (_ { loading = true })
|
H.modify_ (_ { loading = true })
|
||||||
edit_bm <- H.gets _.edit_bm
|
edit_bm <- H.gets _.edit_bm
|
||||||
|
@ -163,10 +163,12 @@ addbmark b' =
|
||||||
Just title' -> _edit_bm %= (_ { title = title' })
|
Just title' -> _edit_bm %= (_ { title = title' })
|
||||||
Nothing -> pure $ unit
|
Nothing -> pure $ unit
|
||||||
H.modify_ (_ { loading = false })
|
H.modify_ (_ { loading = false })
|
||||||
|
|
||||||
handleAction (BDestroy) = do
|
handleAction (BDestroy) = do
|
||||||
bid <- H.gets _.bm.bid
|
bid <- H.gets _.bm.bid
|
||||||
void $ H.liftAff (destroy bid)
|
void $ H.liftAff (destroy bid)
|
||||||
H.modify_ (_ { destroyed = true })
|
H.modify_ (_ { destroyed = true })
|
||||||
|
|
||||||
handleAction (BEditField f) = do
|
handleAction (BEditField f) = do
|
||||||
_edit_bm %= case f of
|
_edit_bm %= case f of
|
||||||
Eurl e -> _ { url = e }
|
Eurl e -> _ { url = e }
|
||||||
|
@ -175,6 +177,7 @@ addbmark b' =
|
||||||
Etags e -> _ { tags = e }
|
Etags e -> _ { tags = e }
|
||||||
Eprivate e -> _ { private = e }
|
Eprivate e -> _ { private = e }
|
||||||
Etoread e -> _ { toread = e }
|
Etoread e -> _ { toread = e }
|
||||||
|
|
||||||
handleAction (BEditSubmit e) = do
|
handleAction (BEditSubmit e) = do
|
||||||
H.liftEffect (preventDefault e)
|
H.liftEffect (preventDefault e)
|
||||||
edit_bm <- use _edit_bm
|
edit_bm <- use _edit_bm
|
||||||
|
|
Loading…
Reference in a new issue