Skip to content

P
purescript-gargantext
Commit b4cc93d3 authored by Karen Konou's avatar Karen Konou
Browse files
Options

[Folder View] fix link handlers

parent 3a98fb18
Hide whitespace changes
Inline Side-by-side
Showing with 2 additions and 2 deletions
src/Gargantext/Components/FolderView.purs
View file @ b4cc93d3
......@@ -123,7 +123,7 @@ folderViewMainCpt = here.component "folderViewMainCpt" cpt where
makeParentFolder linkHandlers Nothing _ _ true = [ H.button {className: "btn btn-primary", on: { click: \_ -> linkHandlers.goToRoute Home}} [ H.i { className: "fa fa-folder-open" } []
, H.br {}
, H.text ".."] ]
makeParentFolder linkHandlers Nothing _ true _ = [ H.button {className: "btn btn-primary", on: { click: \_ -> linkHandlers.goToPreviousPage } } [ H.i { className: "fa fa-folder-open" } []
makeParentFolder linkHandlers Nothing _ true _ = [ H.button {className: "btn btn-primary", on: { click: \_ -> linkHandlers.goToPreviousPage unit } } [ H.i { className: "fa fa-folder-open" } []
, H.br {}
, H.text ".."] ]
makeParentFolder _ Nothing _ _ _ = []
......@@ -250,7 +250,7 @@ backButtonCpt = R.hooksComponent "backButton" cpt where
pure $
H.button {
className: "btn btn-primary"
, on: { click: \_ -> goToPreviousPage }
, on: { click: \_ -> goToPreviousPage unit }
} [
H.i { className: "fa fa-arrow-left", title: "Previous view"} []
]
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment