Merge branch '343-dev-gargantext-navigation' of...

Merge branch '343-dev-gargantext-navigation' of ssh://gitlab.iscpif.fr:20022/gargantext/purescript-gargantext into dev-merge

src/Gargantext/Components/FolderView.purs

@@ -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"} []
       ]