Skip to content

P
purescript-gargantext
Commit 2e80d87a authored by Alexandre Delanoë's avatar Alexandre Delanoë
Browse files
Options

Merge branch 'factoring' of... 

Merge branch 'factoring' of ssh://gitlab.iscpif.fr:20022/gargantext/purescript-gargantext into factoring
parents 7f5c2324 191dfe36
Hide whitespace changes
Inline Side-by-side
Showing with 112 additions and 146 deletions
src/Gargantext/Components/Charts/Charts.purs
View file @ 2e80d87a
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
View file @ 2e80d87a
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
View file @ 2e80d87a
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
View file @ 2e80d87a
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
......@@ -157,7 +156,7 @@ tooltip' =
series :: SeriesShape -> SeriesName -> Array DataS -> Series
series sh name ss = { name: name
, "type": seriesType sh
, "data": ss
, "data": ss
}
data YAxisFormat = YAxisFormat { position :: String
......@@ -293,5 +292,3 @@ textStyle =
,textShadowOffsetX: 0.0
,textShadowOffsetY: 0.0
}
src/Gargantext/Components/Charts/Options/Font.purs
View file @ 2e80d87a
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
View file @ 2e80d87a
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
View file @ 2e80d87a
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
View file @ 2e80d87a
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
View file @ 2e80d87a
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
View file @ 2e80d87a
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
View file @ 2e80d87a
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
View file @ 2e80d87a
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
View file @ 2e80d87a
......@@ -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
View file @ 2e80d87a
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
View file @ 2e80d87a
......@@ -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
View file @ 2e80d87a
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
View file @ 2e80d87a
module DocAnnotation where
module Gargantext.Pages.Corpus.Doc.Annotation where
import Prelude hiding (div)
import React (ReactElement)
......
src/Gargantext/Pages/Corpus/Doc/Body.purs
View file @ 2e80d87a
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
......@@ -50,7 +49,7 @@ corpusAnalysisSpec = simpleSpec defaultPerformAction render
, text " Query: all publications with all schools ids"
]
]
, div [ className "col-md-4 content"]
, div [ className "col-md-4 content"]
[ p [] [ i [className "fa fa-calendar"] []
, text " June. 26 2018, 10:59 am"
]
......
src/Gargantext/Pages/Corpus/Doc/Document.purs
View file @ 2e80d87a
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
View file @ 2e80d87a
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
View file @ 2e80d87a
......@@ -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
View file @ 2e80d87a
......@@ -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
View file @ 2e80d87a
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
View file @ 2e80d87a
......@@ -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
View file @ 2e80d87a
......@@ -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
View file @ 2e80d87a
......@@ -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
View file @ 2e80d87a
......@@ -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
View file @ 2e80d87a
......@@ -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
View file @ 2e80d87a
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
View file @ 2e80d87a
module Landing where
module Gargantext.Pages.Home where
import Prelude hiding (div)
......
src/Gargantext/Pages/Search.purs
View file @ 2e80d87a
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 =
{
......
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