Commit ed8a2a4f authored by Mael NICOLAS's avatar Mael NICOLAS

merge error fixed

parent 008e174a
...@@ -33,7 +33,7 @@ import SearchForm as S ...@@ -33,7 +33,7 @@ import SearchForm as S
import Tabview as TV import Tabview as TV
import Thermite (PerformAction, Render, Spec, _render, cotransform, defaultPerformAction, defaultRender, focus, modifyState, simpleSpec, withState) import Thermite (PerformAction, Render, Spec, _render, cotransform, defaultPerformAction, defaultRender, focus, modifyState, simpleSpec, withState)
import Unsafe.Coerce (unsafeCoerce) import Unsafe.Coerce (unsafeCoerce)
import Users as U import Gargantext.Users as U
import GraphExplorer as GE import GraphExplorer as GE
import NgramsTable as NG import NgramsTable as NG
import Dashboard as Dsh import Dashboard as Dsh
...@@ -47,13 +47,8 @@ type AppState = ...@@ -47,13 +47,8 @@ type AppState =
, addCorpusState :: AC.State , addCorpusState :: AC.State
, docViewState :: DV.State , docViewState :: DV.State
, searchState :: S.State , searchState :: S.State
<<<<<<< HEAD
, userPage :: U.State , userPage :: U.State
, annotationdocumentView :: D.State
=======
, userPage :: UP.State
, docAnnotationView :: D.State , docAnnotationView :: D.State
>>>>>>> master
, ntreeView :: NT.State , ntreeView :: NT.State
, tabview :: TV.State , tabview :: TV.State
, search :: String , search :: String
...@@ -73,13 +68,8 @@ initAppState = ...@@ -73,13 +68,8 @@ initAppState =
, addCorpusState : AC.initialState , addCorpusState : AC.initialState
, docViewState : DV.tdata , docViewState : DV.tdata
, searchState : S.initialState , searchState : S.initialState
<<<<<<< HEAD
, userPage : U.initialState , userPage : U.initialState
, annotationdocumentView : D.initialState
=======
, userPage : UP.initialState
, docAnnotationView : D.initialState , docAnnotationView : D.initialState
>>>>>>> master
, ntreeView : NT.exampleTree , ntreeView : NT.exampleTree
, tabview : TV.initialState , tabview : TV.initialState
, search : "" , search : ""
...@@ -99,13 +89,8 @@ data Action ...@@ -99,13 +89,8 @@ data Action
| AddCorpusA AC.Action | AddCorpusA AC.Action
| DocViewA DV.Action | DocViewA DV.Action
| SearchA S.Action | SearchA S.Action
<<<<<<< HEAD
| UserPageA U.Action | UserPageA U.Action
| AnnotationDocumentViewA D.Action
=======
| UserPageA UP.Action
| DocAnnotationViewA D.Action | DocAnnotationViewA D.Action
>>>>>>> master
| TreeViewA NT.Action | TreeViewA NT.Action
| TabViewA TV.Action | TabViewA TV.Action
| GraphExplorerA GE.Action | GraphExplorerA GE.Action
...@@ -305,7 +290,7 @@ pagesComponent s = ...@@ -305,7 +290,7 @@ pagesComponent s =
selectSpec Home = layout0 $ focus _landingState _landingAction (L.layoutLanding EN) selectSpec Home = layout0 $ focus _landingState _landingAction (L.layoutLanding EN)
selectSpec AddCorpus = layout0 $ focus _addCorpusState _addCorpusAction AC.layoutAddcorpus selectSpec AddCorpus = layout0 $ focus _addCorpusState _addCorpusAction AC.layoutAddcorpus
selectSpec DocView = layout0 $ focus _docViewState _docViewAction DV.layoutDocview selectSpec DocView = layout0 $ focus _docViewState _docViewAction DV.layoutDocview
selectSpec UserPage = layout0 $ focus _userPageState _userPageAction UP.layoutUser selectSpec UserPage = layout0 $ focus _userPageState _userPageAction U.layoutUser
selectSpec (DocAnnotation i) = layout0 $ focus _docAnnotationViewState _docAnnotationViewAction D.docview selectSpec (DocAnnotation i) = layout0 $ focus _docAnnotationViewState _docAnnotationViewAction D.docview
selectSpec Tabview = layout0 $ focus _tabviewState _tabviewAction TV.tab1 selectSpec Tabview = layout0 $ focus _tabviewState _tabviewAction TV.tab1
-- To be removed -- To be removed
......
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