Merge branch 'factoring' of...

Merge branch 'factoring' of ssh://gitlab.iscpif.fr:20022/gargantext/purescript-gargantext into factoring

src/Gargantext/Components/Charts/Charts.purs

-module Gargantext.Chart where
+module Gargantext.Components.Charts.Charts where
 
-import Prelude (($), (<<<), (<$>))
+import Prelude hiding (min)
 
 import CSS (Color, white)
 import Data.Maybe (Maybe(..))

src/Gargantext/Components/Charts/Options/Color.purs

-module Gargantext.Charts.Color
+module Gargantext.Components.Charts.Options.Color
        ( ChartColor()
        , chartColor
        , transparent
        ) where
 
-import Prelude ((<<<))
+import Prelude
+
 import CSS (Color, toHexString)
 import Color (rgba)
 

src/Gargantext/Components/Charts/Options/Data.purs

-module Gargantext.Charts.Data where
+module Gargantext.Components.Charts.Options.Data where
 
-import Gargantext.Charts.Font (TextStyle, Icon)
-import Prelude ((<<<))
-import Unsafe.Coerce (unsafeCoerce)
+import Gargantext.Components.Charts.Options.Font (TextStyle, Icon)
 
 type DataN =
   { name :: String

src/Gargantext/Components/Charts/Options/ECharts.purs

-module Gargantext.Charts.ECharts where
+module Gargantext.Components.Charts.Options.ECharts where
 
-import Prelude (($), map, class Show, show, (<<<), (==))
-import Data.Array (length)
+import Prelude
 
-import CSS (black, blue, italic, violet, white, yellow)
+import CSS (black, italic, violet)
 import CSS.Common (normal)
-import Gargantext.Charts.Series
-import Gargantext.Charts.Data
-import Gargantext.Charts.Color (chartColor, transparent)
-import Gargantext.Charts.Font (IconOptions(..), Shape(..), TextStyle, chartFontStyle, chartFontWeight, icon)
-import Gargantext.Charts.Legend (legendType, LegendMode(..), PlainOrScroll(..), selectedMode, Orientation(..), orient)
-import Gargantext.Charts.Position (Align(..), LeftRelativePosition(..), TopRelativePosition(..), numberPosition, percentPosition, relativePosition)
-import Gargantext.Charts.Type (DataZoom, Echarts, Legend, Option, Title, Tooltip, XAxis, YAxis)
-import Data.Either (Either(..))
+import Data.Array (length)
 import Data.Maybe (Maybe(..))
+import Gargantext.Components.Charts.Options.Color (chartColor, transparent)
+import Gargantext.Components.Charts.Options.Data (DataN, DataS, DataV)
+import Gargantext.Components.Charts.Options.Font (IconOptions(..), Shape(..), TextStyle, chartFontStyle, chartFontWeight, icon)
+import Gargantext.Components.Charts.Options.Legend (legendType, LegendMode(..), PlainOrScroll(..), selectedMode, Orientation(..), orient)
+import Gargantext.Components.Charts.Options.Position (Align(..), LeftRelativePosition(..), TopRelativePosition(..), numberPosition, percentPosition, relativePosition)
+import Gargantext.Components.Charts.Options.Series (Series, SeriesName, SeriesShape(..), seriesType)
+import Gargantext.Components.Charts.Options.Type (DataZoom, Echarts, Legend, Option, Title, Tooltip, XAxis, YAxis)
 import React as R
-import React.DOM (p)
+
 
 foreign import eChartsClass :: R.ReactClass Echarts
 
@@ -293,5 +292,3 @@ textStyle =
     ,textShadowOffsetX: 0.0
     ,textShadowOffsetY: 0.0
   }
-
-

src/Gargantext/Components/Charts/Options/Font.purs

-module Gargantext.Charts.Font
+module Gargantext.Components.Charts.Options.Font
        (
          TextStyle,
          ChartFontStyle(),
@@ -12,12 +12,14 @@ module Gargantext.Charts.Font
          icon
        ) where
 
+import Prelude (Unit, ($), (<<<), (<>))
+
 import CSS (FontStyle(..), FontWeight(..), Prefixed(..), Value(..))
-import Gargantext.Charts.Color (ChartColor)
-import Gargantext.Charts.Position (LeftRelativePosition, Position, TopRelativePosition)
 import Data.Generic (class Generic, gShow)
 import Data.String (toLower)
-import Prelude (Unit, ($), (<<<), (<>))
+import Gargantext.Components.Charts.Options.Color (ChartColor)
+import Gargantext.Components.Charts.Options.Position (LeftRelativePosition, Position, TopRelativePosition)
+
 
 type TextStyle =
   { color      :: ChartColor

src/Gargantext/Components/Charts/Options/Legend.purs

-module Gargantext.Charts.Legend
+module Gargantext.Components.Charts.Options.Legend
        (
          LegendType(..),
          PlainOrScroll(..),
@@ -11,9 +11,10 @@ module Gargantext.Charts.Legend
          selectedMode
        ) where
 
+import Prelude (class Show, show, (<<<))
+
 import Data.Generic (class Generic, gShow)
 import Data.String (toLower)
-import Prelude (class Show, show, (<<<))
 import Unsafe.Coerce (unsafeCoerce)
 
 newtype LegendType = LegendType String
@@ -45,4 +46,3 @@ selectedMode :: LegendMode -> SelectedMode
 selectedMode (Bool b) = unsafeCoerce b
 selectedMode (Single) = unsafeCoerce "single"
 selectedMode (Multiple) = unsafeCoerce "multiple"
-

src/Gargantext/Components/Charts/Options/Position.purs

-module Gargantext.Charts.Position
+module Gargantext.Components.Charts.Options.Position
        (
          Position(),
          numberPosition,
@@ -9,7 +9,8 @@ module Gargantext.Charts.Position
          LeftRelativePosition(..)
        ) where
 
-import Prelude (class Show, show, ($), (<>))
+import Prelude
+
 import Unsafe.Coerce (unsafeCoerce)
 
 -- | The type `Position` is made to render a css position.

src/Gargantext/Components/Charts/Options/Series.purs

-module Gargantext.Charts.Series where
+module Gargantext.Components.Charts.Options.Series where
 
-import Gargantext.Charts.Data (DataS)
-import Prelude (class Show, show, (<<<))
+import Prelude
+
+import Gargantext.Components.Charts.Options.Data (DataS)
 
 
 newtype SeriesType = SeriesType String

src/Gargantext/Components/Charts/Options/Type.purs

-module Gargantext.Charts.Type where
+module Gargantext.Components.Charts.Options.Type where
 
-import Gargantext.Charts.Font
+import Prelude
 
 import CSS (Color)
-import Gargantext.Charts.Series
-import Gargantext.Charts.Data
-import Gargantext.Charts.Color (ChartColor(..))
-import Gargantext.Charts.Font (Icon, icon, TextStyle)
-import Gargantext.Charts.Legend (LegendType, SelectedMode, selectedMode, Orient)
-import Gargantext.Charts.Position (LeftRelativePosition, Position, TopRelativePosition)
-import Data.Either (Either)
 import Data.Maybe (Maybe)
-import Prelude (Unit, (<<<))
-
+import Gargantext.Components.Charts.Options.Color (ChartColor)
+import Gargantext.Components.Charts.Options.Data (DataN, DataV)
+import Gargantext.Components.Charts.Options.Font (TextStyle)
+import Gargantext.Components.Charts.Options.Legend (LegendType, Orient, SelectedMode)
+import Gargantext.Components.Charts.Options.Position (LeftRelativePosition, Position, TopRelativePosition)
+import Gargantext.Components.Charts.Options.Series (Series)
 
 newtype ChartAlign = ChartAlign String
 

src/Gargantext/Components/GraphExplorer/Sigmajs.purs

-module GraphExplorer.Sigmajs where
+module Gargantext.Components.GraphExplorer.Sigmajs where
+
+import Prelude
 
 import Control.Monad.Eff (Eff)
-import Prelude (Unit)
 import React (ReactClass, ReactElement, createElement)
 import Unsafe.Coerce (unsafeCoerce)
 

src/Gargantext/Components/Modals/Modal.purs

 module Gargantext.Components.Modals.Modal where
 
-import Control.Monad.Eff (Eff)
 import Prelude (Unit)
 
+import Control.Monad.Eff (Eff)
+
 foreign import modalShow :: forall eff. String -> Eff eff Unit
 
 foreign import modalHide :: forall eff. String -> Eff eff Unit

src/Gargantext/Components/Tab.purs

 module Gargantext.Components.Tab where
 
+import Prelude hiding (div)
+
 import Data.Array (fold)
 import Data.Lens (Lens', Prism', over, view)
 import Data.List (List, mapWithIndex, toUnfoldable)
 import Data.Tuple (Tuple(..))
-import Prelude hiding (div)
 import React (ReactElement)
 import React.DOM (a, div, nav, text)
 import React.DOM.Props (className, onClick)

src/Gargantext/Components/Tree.purs

@@ -9,7 +9,6 @@ import Control.Monad.Eff.Console (CONSOLE, log)
 import Data.Argonaut (class DecodeJson, decodeJson, (.?))
 import Data.Either (Either(..))
 import Data.HTTP.Method (Method(..))
-import Data.Newtype (class Newtype)
 import Data.Tuple (Tuple(..))
 import Network.HTTP.Affjax (AJAX, affjax, defaultRequest)
 import React (ReactElement)

src/Gargantext/Config/REST.purs

 module Gargantext.Config.REST where
 
-import Data.Argonaut
-import Data.HTTP.Method (Method(..))
-import Network.HTTP.RequestHeader (RequestHeader(..))
-import Prelude (bind, ($), pure, show)
-import Data.MediaType.Common (applicationJSON)
+import Prelude
 
 import Control.Monad.Aff (Aff, attempt)
 import Control.Monad.Aff.Class (liftAff)
 import Control.Monad.Eff.Console (CONSOLE)
-
+import Data.Argonaut (class DecodeJson, decodeJson)
 import Data.Either (Either(..))
-
+import Data.HTTP.Method (Method(..))
+import Data.MediaType.Common (applicationJSON)
 import Network.HTTP.Affjax (AJAX, affjax, defaultRequest)
-
+import Network.HTTP.RequestHeader (RequestHeader(..))
 
 get :: forall eff t2 t31. DecodeJson t31 => String ->
                       Aff (console :: CONSOLE, ajax :: AJAX| eff)

src/Gargantext/Navigation.purs

@@ -2,35 +2,35 @@ module Gargantext.Navigation where
 
 import Prelude hiding (div)
 
-import AddCorpusview as AC
 import Control.Monad.Cont.Trans (lift)
 import Control.Monad.Eff.Class (liftEff)
 import Control.Monad.Eff.Console (CONSOLE, log)
-import CorpusAnalysis as CA
+import Gargantext.Pages.Corpus.Doc.Body as CA
 import DOM (DOM)
 import Data.Array (length)
 import Data.Either (Either(..))
 import Data.Foldable (fold, intercalate)
 import Data.Lens (Lens', Prism', lens, over, prism)
 import Data.Maybe (Maybe(Nothing, Just))
-import DocAnnotation as D
-import DocView as DV
+import Gargantext.Pages.Corpus.Doc.Annotation as D
+import Gargantext.Pages.Corpus.Doc.Document as DV
+import Gargantext.Components.Data.Lang (Lang(..))
+import Gargantext.Components.Login as LN
+import Gargantext.Components.Modals.Modal (modalShow)
 import Gargantext.Components.Tree as Tree
 import Gargantext.Dashboard as Dsh
-import Gargantext.Components.Data.Lang (Lang(..))
+import Gargantext.Pages.Corpus as AC
 import Gargantext.Router (Routes(..))
 import Gargantext.Users as U
 import Graph as GE
-import Landing as L
-import Gargantext.Components.Login as LN
-import Gargantext.Components.Modals.Modal (modalShow)
+import Gargantext.Pages.Home as L
 import Network.HTTP.Affjax (AJAX)
 import NgramsTable as NG
 import React (ReactElement)
 import React.DOM (a, button, div, footer, hr, img, input, li, p, span, text, ul)
 import React.DOM.Props (_data, _id, _type, aria, className, href, onChange, onClick, placeholder, role, src, style, tabIndex, target, title)
-import SearchForm as S
-import Tabview as TV
+import Gargantext.Pages.Search as S
+import Gargantext.Pages.Corpus.Doc.Facets as TV
 import Thermite (PerformAction, Render, Spec, _render, defaultPerformAction, defaultRender, focus, modifyState, simpleSpec, withState)
 import Unsafe.Coerce (unsafeCoerce)
 

src/Gargantext/Pages/Corpus.purs

-module AddCorpusview where
+module Gargantext.Pages.Corpus where
+
+import Prelude hiding (div)
 
 import Control.Monad.Aff (Aff, attempt)
 import Control.Monad.Aff.Class (liftAff)
 import Control.Monad.Aff.Console (log)
 import Control.Monad.Cont.Trans (lift)
-import Control.Monad.Eff (Eff)
 import Control.Monad.Eff.Class (liftEff)
 import Control.Monad.Eff.Console (CONSOLE)
 import DOM (DOM)
-import DOM.HTML (window)
-import DOM.HTML.Location (host)
-import DOM.HTML.Window (localStorage)
-import DOM.WebStorage.Storage (getItem, setItem)
 import Data.Argonaut (class DecodeJson, class EncodeJson, decodeJson, encodeJson, jsonEmptyObject, (.?), (:=), (~>))
 import Data.Either (Either(..))
 import Data.HTTP.Method (Method(..))
-import Data.Lens (Lens', Prism', lens, over)
-import Data.List (List, fold, fromFoldable, toUnfoldable)
-import Data.Maybe (Maybe(..), fromMaybe)
+import Data.Lens (over)
+import Data.Maybe (Maybe(Just))
 import Data.MediaType.Common (applicationJSON)
-import Data.Tuple (Tuple(..))
-import Landing as L
 import Gargantext.Components.Modals.Modal (modalHide)
 import Network.HTTP.Affjax (AJAX, affjax, defaultRequest)
 import Network.HTTP.RequestHeader (RequestHeader(..))
-import Prelude hiding (div)
 import React (ReactElement)
-import React.DOM (a, button, div, form, h2, h3, h4, h5, i, input, label, li, p, span, text, ul)
-import React.DOM.Props (_data, _id, _type, aria, className, href, maxLength, name, onClick, onInput, placeholder, role, target, value)
+import React.DOM (button, div, h3, h5, li, span, text, ul)
+import React.DOM.Props (_data, _id, _type, aria, className, onClick, role)
 import Routing.Hash.Aff (setHash)
-import Thermite (PerformAction, Render, Spec, _render, cotransform, focus, foreach, modifyState, simpleSpec, withState)
-import Unsafe.Coerce (unsafeCoerce)
-
+import Thermite (PerformAction, Render, Spec, _render, cotransform, modifyState, simpleSpec)
 
 type State =
   { select_database :: Boolean

src/Gargantext/Pages/Corpus/Doc/Annotation.purs

-module DocAnnotation where
+module Gargantext.Pages.Corpus.Doc.Annotation where
 
 import Prelude hiding (div)
 import React (ReactElement)

src/Gargantext/Pages/Corpus/Doc/Body.purs

-module CorpusAnalysis where
+module Gargantext.Pages.Corpus.Doc.Body where
+
+import Prelude hiding (div)
 
 import Control.Monad.Eff.Console (CONSOLE)
 import DOM (DOM)
 import Data.Array (fold)
+import Gargantext.Components.Charts.Options.ECharts (chart)
+import Gargantext.Dashboard (globalPublis)
+import Gargantext.Pages.Corpus.Doc.Facet as Tab
 import Network.HTTP.Affjax (AJAX)
-import Prelude (id, void)
-import Prelude hiding (div)
-import React.DOM (div, h3, hr, i, p, span, text, input)
+import React.DOM (div, h3, hr, i, p, text)
 import React.DOM.Props (className, style)
-import Tabview as Tab
-import Thermite (PerformAction, Render, Spec, defaultPerformAction, modifyState, simpleSpec)
-
-import Gargantext.Charts.ECharts (chart)
-import Gargantext.Dashboard (globalPublis)
+import Thermite (Render, Spec, defaultPerformAction, simpleSpec)
 
 type State = Tab.State
 

src/Gargantext/Pages/Corpus/Doc/Document.purs

-module DocView where
+module Gargantext.Pages.Corpus.Doc.Document where
 
 import Prelude
 
-import Control.Monad.Aff (Aff, attempt)
-import Control.Monad.Aff.Class (liftAff)
+import Control.Monad.Aff (Aff)
 import Control.Monad.Cont.Trans (lift)
-import Control.Monad.Eff (Eff)
 import Control.Monad.Eff.Class (liftEff)
 import Control.Monad.Eff.Console (CONSOLE, log)
-import DOM (DOM)
-import DOM.HTML (window) as DOM
-import DOM.HTML.Types (htmlDocumentToParentNode) as DOM
-import DOM.HTML.Window (document) as DOM
-import DOM.Node.ParentNode (QuerySelector(..))
-import DOM.Node.ParentNode (querySelector) as DOM
-import Data.Argonaut
-import Data.Array (filter, replicate)
+import Data.Argonaut (class DecodeJson, decodeJson, (.?))
+import Data.Array (filter)
 import Data.Either (Either(..))
 import Data.Generic (class Generic, gShow)
-import Data.HTTP.Method (Method(..))
-import Data.Maybe (fromJust)
-import Data.MediaType.Common (applicationJSON)
 import Data.Tuple (Tuple(..))
-import Gargantext.Chart (p'')
-import Gargantext.Charts.ECharts
-import Gargantext.Dashboard (globalPublis)
+import Gargantext.Components.Charts.Charts (p'')
 import Gargantext.Config.REST (get)
-import Network.HTTP.Affjax (AJAX, affjax, defaultRequest)
-import Network.HTTP.RequestHeader (RequestHeader(..))
-import Partial.Unsafe (unsafePartial)
+import Network.HTTP.Affjax (AJAX)
 import React (ReactElement)
-import React as R
-import React.DOM (a, b, b', br', div, h3, i, input, li, option, select, span, table, tbody, td, text, thead, th, tr, ul, nav)
-import React.DOM.Props (Props, _type, className, href, onChange, onClick, selected, value, scope, _id, role, _data, aria)
-import ReactDOM as RDOM
-import Thermite (PerformAction, Render, Spec, cotransform, createReactSpec, defaultPerformAction, modifyState, simpleSpec)
+import React.DOM (a, b, b', br', div, input, option, select, span, table, tbody, td, text, th, thead, tr)
+import React.DOM.Props (_type, className, href, onChange, onClick, scope, selected, value)
+import Thermite (PerformAction, Render, Spec, cotransform, defaultPerformAction, modifyState, simpleSpec)
 import Unsafe.Coerce (unsafeCoerce)
 
 

src/Gargantext/Pages/Corpus/Doc/Facets.purs

-module Tabview where
+module Gargantext.Pages.Corpus.Doc.Facets where
 
 import Prelude hiding (div)
 
@@ -9,7 +9,7 @@ import Data.Either (Either(..))
 import Data.Lens (Lens', Prism', lens, prism)
 import Data.List (fromFoldable)
 import Data.Tuple (Tuple(..))
-import DocView as DV
+import Gargantext.Pages.Corpus.Doc.Document as DV
 import Gargantext.Components.Tab as Tab
 import Network.HTTP.Affjax (AJAX)
 import Sourceview as SV

src/Gargantext/Pages/Corpus/Doc/Facets/2_Sources.purs

@@ -4,11 +4,11 @@ module Sourceview where
 import Control.Monad.Eff.Console (CONSOLE)
 import DOM (DOM)
 import Data.Array (fold)
-import DocView as D
+import Gargantext.Pages.Corpus.Doc.Document as D
 import Network.HTTP.Affjax (AJAX)
 import Prelude hiding (div)
 import React.DOM (h3, text)
-import Thermite (PerformAction, Render, Spec, defaultPerformAction, modifyState, simpleSpec)
+import Thermite (Render, Spec, defaultPerformAction, simpleSpec)
 
 type State = D.State
 

src/Gargantext/Pages/Corpus/Doc/Facets/3_Authors.purs

@@ -4,7 +4,7 @@ module Authorview where
 import Control.Monad.Eff.Console (CONSOLE)
 import DOM (DOM)
 import Data.Array (fold)
-import DocView as D
+import Gargantext.Pages.Corpus.Doc.Document as D
 import Network.HTTP.Affjax (AJAX)
 import Prelude hiding (div)
 import React.DOM (h3, text)

src/Gargantext/Pages/Corpus/Doc/Facets/4_Dashboard.purs

 module Gargantext.Dashboard where
 
-import Prelude (($), (<>), show, pure, unit, map)
+import Prelude
+
 import Data.Array (zip)
 import Data.Tuple (Tuple(..))
-import Gargantext.Charts.ECharts
-import Gargantext.Charts.Series
-
+import Gargantext.Components.Charts.Options.ECharts
+import Gargantext.Components.Charts.Options.Series
 import DOM (DOM)
 import Data.Unit (Unit)
 import Data.Int (toNumber)
-
 import React.DOM (div, h1, text, title)
 import React.DOM.Props (className)
 import Thermite (PerformAction, Render, Spec, simpleSpec)

src/Gargantext/Pages/Corpus/Doc/Facets/5_Terms.purs

@@ -5,7 +5,7 @@ module Termsview where
 import Control.Monad.Eff.Console (CONSOLE)
 import DOM (DOM)
 import Data.Array (fold)
-import DocView as D
+import Gargantext.Pages.Corpus.Doc.Document as D
 import Network.HTTP.Affjax (AJAX)
 import Prelude hiding (div)
 import React.DOM (h3, text)

src/Gargantext/Pages/Corpus/Doc/Facets/6_Graph.purs

@@ -17,9 +17,9 @@ import Data.Int (toNumber)
 import Data.Maybe (Maybe(..), fromJust)
 import Data.MediaType.Common (applicationJSON)
 import Data.Newtype (class Newtype)
+import Gargantext.Components.GraphExplorer.Sigmajs (Color(Color), SigmaEasing, SigmaGraphData(SigmaGraphData), SigmaNode, SigmaSettings, canvas, edgeShape, edgeShapes, forceAtlas2, sStyle, sigma, sigmaEasing, sigmaEdge, sigmaEnableWebGL, sigmaNode, sigmaSettings)
 import Gargantext.Components.GraphExplorer.Types (Cluster(..), Edge(..), GraphData(..), Legend(..), Node(..), getLegendData)
 import Gargantext.Utils (getter)
-import GraphExplorer.Sigmajs (Color(Color), SigmaEasing, SigmaGraphData(SigmaGraphData), SigmaNode, SigmaSettings, canvas, edgeShape, edgeShapes, forceAtlas2, sStyle, sigma, sigmaEasing, sigmaEdge, sigmaEnableWebGL, sigmaNode, sigmaSettings)
 import Math (cos, sin)
 import Network.HTTP.Affjax (AJAX, affjax, defaultRequest)
 import Network.HTTP.RequestHeader (RequestHeader(..))

src/Gargantext/Pages/Corpus/User/Users/Types.purs

@@ -19,7 +19,7 @@ import DOM (DOM)
 import Data.List (fromFoldable)
 import Data.Tuple (Tuple(..))
 import Network.HTTP.Affjax (AJAX)
-import Projects as PS
+import Gargantext.Pages.Folder as PS
 import Gargantext.Components.Tab (tabs)
 import Thermite (Spec, focus)
 

src/Gargantext/Pages/Corpus/User/Users/Types/Lens.purs

@@ -9,7 +9,7 @@ import Data.Maybe (Maybe)
 import Gargantext.Users.Types.States (Action(..), State)
 import Gargantext.Users.Types.Types (User)
 import Network.HTTP.Affjax (AJAX)
-import Projects as PS
+import Gargantext.Pages.Folder as PS
 import Publications as P
 import Gargantext.Components.Tab as Tab
 import Thermite (Spec, focus)

src/Gargantext/Pages/Corpus/User/Users/Types/States.purs

@@ -4,7 +4,7 @@ module Gargantext.Users.Types.States
 import Brevets as B
 import Data.Maybe (Maybe(..))
 import Gargantext.Users.Types.Types (User)
-import Projects as PS
+import Gargantext.Pages.Folder as PS
 import Publications as P
 import Gargantext.Components.Tab as Tab
 

src/Gargantext/Pages/Folder.purs

-module Projects where
-
+module Gargantext.Pages.Folder where
 
+import Prelude (id, void)
 
 import Control.Monad.Eff.Console (CONSOLE)
 import DOM (DOM)
 import Network.HTTP.Affjax (AJAX)
-import Prelude (id, void)
 import Thermite (PerformAction, Render, Spec, modifyState, simpleSpec)
 
 

src/Gargantext/Pages/Home.purs

-module Landing where
+module Gargantext.Pages.Home where
 
 import Prelude hiding (div)
 

src/Gargantext/Pages/Search.purs

-module SearchForm where
-
+module Gargantext.Pages.Search where
 
 import Control.Monad.Aff.Console (CONSOLE)
 import Control.Monad.Cont.Trans (lift)
@@ -11,7 +10,7 @@ import React.DOM.Props (_id, _type, className, name, onClick, onInput, placehold
 import Routing.Hash.Aff (setHash)
 import Thermite (PerformAction, Render, Spec, modifyState, simpleSpec)
 import Unsafe.Coerce (unsafeCoerce)
-import Landing as L
+import Gargantext.Pages.Home as L
 
 type State =
   {