purs flycheck cleaning
This commit is contained in:
parent
feb8920ebe
commit
22de2aa78b
|
@ -4,11 +4,10 @@ import Prelude hiding (div)
|
|||
|
||||
import App (editAccountSettings)
|
||||
import Data.Lens (Lens', lens, use, (%=))
|
||||
import Data.Maybe (Maybe(..))
|
||||
import Effect.Aff (Aff)
|
||||
import Globals (app')
|
||||
import Halogen as H
|
||||
import Halogen.HTML (HTML, div, input, text)
|
||||
import Halogen.HTML (div, input, text)
|
||||
import Halogen.HTML.Elements (label)
|
||||
import Halogen.HTML.Events (onChecked)
|
||||
import Halogen.HTML.Properties (InputType(..), checked, for, id_, name, type_)
|
||||
|
@ -84,6 +83,6 @@ usetting u' =
|
|||
us <- use _us
|
||||
void $ H.liftAff (editAccountSettings us)
|
||||
|
||||
handleAction (USubmit e) = do
|
||||
handleAction (USubmit _) = do
|
||||
us <- use _us
|
||||
void $ H.liftAff (editAccountSettings us)
|
||||
|
|
|
@ -4,19 +4,16 @@ module Component.Add where
|
|||
import Prelude hiding (div)
|
||||
|
||||
import App (destroy, editBookmark, lookupTitle)
|
||||
import Data.Array (drop, foldMap)
|
||||
import Data.Lens (Lens', lens, use, (%=), (.=))
|
||||
import Data.Maybe (Maybe(..), maybe)
|
||||
import Data.Monoid (guard)
|
||||
import Data.String (null)
|
||||
import Data.String (split) as S
|
||||
import Data.String.Pattern (Pattern(..))
|
||||
import Data.Tuple (fst, snd)
|
||||
import Effect.Aff (Aff)
|
||||
import Effect.Class (liftEffect)
|
||||
import Globals (app', closeWindow, mmoment8601)
|
||||
import Halogen as H
|
||||
import Halogen.HTML (HTML, br_, button, div, form, input, label, p, span, table, tbody_, td, td_, text, textarea, tr_)
|
||||
import Halogen.HTML (button, div, form, input, label, p, span, table, tbody_, td, td_, text, textarea, tr_)
|
||||
import Halogen.HTML.Events (onSubmit, onValueChange, onChecked, onClick)
|
||||
import Halogen.HTML.Properties (ButtonType(..), InputType(..), autocomplete, autofocus, checked, disabled, for, id_, name, required, rows, title, type_, value)
|
||||
import Model (Bookmark)
|
||||
|
@ -150,10 +147,10 @@ addbmark b' =
|
|||
editField :: forall a. (a -> EditField) -> a -> BAction
|
||||
editField f = BEditField <<< f
|
||||
mmoment = mmoment8601 bm.time
|
||||
toTextarea =
|
||||
drop 1
|
||||
<<< foldMap (\x -> [br_, text x])
|
||||
<<< S.split (Pattern "\n")
|
||||
-- toTextarea =
|
||||
-- drop 1
|
||||
-- <<< foldMap (\x -> [br_, text x])
|
||||
-- <<< S.split (Pattern "\n")
|
||||
|
||||
handleAction :: BAction -> H.HalogenM BState BAction () o Aff Unit
|
||||
handleAction (BDeleteAsk e) = do
|
||||
|
|
|
@ -6,7 +6,6 @@ import Component.BMark (BMessage(..), BSlot, bmark)
|
|||
import Model (Bookmark, BookmarkId)
|
||||
|
||||
import Data.Array (filter)
|
||||
import Data.Maybe (Maybe(..))
|
||||
import Effect.Aff (Aff)
|
||||
import Halogen as H
|
||||
import Halogen.HTML as HH
|
||||
|
|
|
@ -15,7 +15,7 @@ import Type.Proxy (Proxy(..))
|
|||
import Effect.Aff (Aff)
|
||||
import Globals (app', setFocus, toLocaleDateString)
|
||||
import Halogen as H
|
||||
import Halogen.HTML (HTML, a, br_, button, div, div_, form, input, label, span, text, textarea)
|
||||
import Halogen.HTML (a, br_, button, div, div_, form, input, label, span, text, textarea)
|
||||
import Halogen.HTML as HH
|
||||
import Halogen.HTML.Events (onSubmit, onValueChange, onChecked, onClick)
|
||||
import Halogen.HTML.Properties (ButtonType(..), InputType(..), autocomplete, checked, disabled, for, href, id_, name, required, rows, target, title, type_, value)
|
||||
|
|
|
@ -5,7 +5,6 @@ import Data.Const (Const)
|
|||
import Effect.Aff (Aff)
|
||||
import Foreign.Marked (marked)
|
||||
import Halogen as H
|
||||
import Halogen.HTML as HH
|
||||
import Prelude (Void)
|
||||
|
||||
type Slot = H.Slot (Const Void) Void
|
||||
|
|
|
@ -45,7 +45,7 @@ nlist st' =
|
|||
}
|
||||
|
||||
render :: NLState -> H.ComponentHTML NLAction () Aff
|
||||
render st@{ notes } =
|
||||
render { notes } =
|
||||
HH.div_ (map renderNote notes)
|
||||
where
|
||||
renderNote note =
|
||||
|
|
|
@ -7,7 +7,7 @@ import Component.Markdown as Markdown
|
|||
import Data.Array (drop, foldMap)
|
||||
import Data.Foldable (for_)
|
||||
import Data.Lens (Lens', lens, use, (%=), (.=))
|
||||
import Data.Maybe (Maybe(..), maybe)
|
||||
import Data.Maybe (maybe)
|
||||
import Data.Monoid (guard)
|
||||
import Data.String (null)
|
||||
import Data.String (null, split) as S
|
||||
|
|
|
@ -19,6 +19,7 @@ data Action i
|
|||
= SetInnerHTML
|
||||
| Receive (Input i)
|
||||
|
||||
type Input :: forall k. k -> k
|
||||
type Input i = i
|
||||
|
||||
type State i =
|
||||
|
@ -53,7 +54,7 @@ mkComponent toRawHTML =
|
|||
mel <- H.getHTMLElementRef elRef
|
||||
for_ mel \el -> do
|
||||
{ inputval } <- H.get
|
||||
H.liftAff $ forkAff $ makeAff \cb -> do
|
||||
H.liftAff $ forkAff $ makeAff \_ -> do
|
||||
liftEffect $ unsafeSetInnerHTML el (toRawHTML inputval)
|
||||
mempty
|
||||
pure unit
|
||||
|
|
|
@ -55,9 +55,9 @@ tagcloudcomponent m' =
|
|||
}
|
||||
|
||||
render :: TState -> H.ComponentHTML TAction () Aff
|
||||
render s@{ mode:TagCloudModeNone } =
|
||||
render { mode:TagCloudModeNone } =
|
||||
div [class_ "tag_cloud" ] []
|
||||
render s@{ mode, tagcloud } =
|
||||
render { mode, tagcloud } =
|
||||
div [class_ "tag_cloud mv3" ]
|
||||
[
|
||||
div [class_ "tag_cloud_header mb2"] $
|
||||
|
|
|
@ -29,9 +29,6 @@ import Web.HTML.Location (search)
|
|||
import Web.HTML.Window (document, location)
|
||||
import JSURI (decodeURIComponent)
|
||||
|
||||
import Partial.Unsafe (unsafePartial)
|
||||
import Data.Maybe (fromJust)
|
||||
|
||||
unsafeDecode :: String -> String
|
||||
unsafeDecode str = unsafePartial $ fromJust $ decodeURIComponent str
|
||||
|
||||
|
|
2
static/js/app.min.js
vendored
2
static/js/app.min.js
vendored
File diff suppressed because one or more lines are too long
Binary file not shown.
File diff suppressed because one or more lines are too long
Binary file not shown.
Loading…
Reference in a new issue