[ps 0.15] this monstrocity is alive

5686b05c · Przemyslaw Kaminski · bc02d207 · 5686b05c · 5686b05c · 5686b05c
Commit 5686b05c authored Sep 15, 2022 by Przemyslaw Kaminski
77 changed files
--- a/.psc-package/local/.set/packages.json
+++ b/.psc-package/local/.set/packages.json
--- a/dist/index.html
+++ b/dist/index.html
-<!doctype>
+<!doctype html>
 <html>
    <head>
        <meta charset="utf-8"/>

--- a/index.html
+++ b/index.html
-<!doctype>
+<!doctype html>
 <html>
    <head>
        <meta charset="utf-8"/>

--- a/nix/easy-ps.nix
+++ b/nix/easy-ps.nix
@@ -3,11 +3,10 @@
 import
  (
    pkgs.fetchFromGitHub {
-      #owner = "justinwoo";
+      owner = "justinwoo";
-      owner = "cgenie";
      repo = "easy-purescript-nix";
-      rev = "0d34a62a0bc531baa5350dc305fe56317f706be2";
+      rev = "master";
-      sha256 = "0brdkkp60l3ggirab0zvhd7q11vk906gaxml7kmbg6gy029j7l5v";
+      sha256 = "03g9xq451dmrkq8kiz989wnl8k0lmj60ajflz44bhp7cm08hf3bw";
    }
  ) {
  inherit pkgs;

--- a/nix/psc-package-nix.nix
+++ b/nix/psc-package-nix.nix
@@ -3,6 +3,6 @@
 pkgs.fetchFromGitHub {
  owner = "justinwoo";
  repo = "psc-package-nix";
-  rev = "0f1f001e2ea17ad461871a1873050f6aef5f1284";
+  rev = "e00fdaf2a2628b6b056db12ff4a3069aa04cb536";
-  sha256 = "0gbwcvw8rvxhlg9p6avd0812y263jzim1sra5frbdi0s6q0ngsgi";
+  sha256 = "0p2cblmpma7s058r5nfwzpvdsi98qhh5isvc47052wjbmfinh8db";
 }
--- a/package.json
+++ b/package.json
@@ -36,14 +36,17 @@
        "bootstrap": "^4.6.0",
        "bootstrap-dark": "^1.0.3",
        "create-react-class": "^15.6.3",
-        "d3": "^7.0.0",
+        "crypto": "^1.0.1",
+        "d3": "^7.6.1",
        "echarts": "^5.1.2",
        "echarts-for-react": "^3.0.1",
+        "esbuild": "^0.15.7",
        "graphql": "^15.6.1",
        "graphql-ws": "^5.5.0",
        "highlightjs": "^9.16.2",
        "immer": "^9.0.5",
        "isomorphic-unfetch": "^3.1.0",
+        "markdown-it": "^13.0.1",
        "prop-types": "^15.6.2",
        "pullstate": "^1.20.6",
        "react": "^17.0.2",
@@ -52,7 +55,7 @@
        "react-dom": "^17.0.2",
        "react-tooltip": "^4.2.8",
        "secp256k1": "^4.0.2",
-        "sigma": "https://github.com/garganscript/sigma.js#garg"
+        "sigma": "https://github.com/garganscript/sigma.js#main"
    },
    "devDependencies": {
        "@babel/core": "^7.15.0",
@@ -63,6 +66,7 @@
        "react-testing-library": "^8.0.1",
        "sass": "^1.35.2",
        "serve": "^12.0.0",
+        "spago": "^0.20.9",
        "ssl-serve": "^6.5.8",
        "taiko": "latest",
        "vscode-languageserver": "^7.0.0",

--- a/packages.dhall
+++ b/packages.dhall
--- a/psc-package.json
+++ b/psc-package.json
@@ -19,7 +19,6 @@
    "globals",
    "integers",
    "js-timers",
-    "markdown-smolder",
    "math",
    "maybe",
    "milkis",
@@ -38,7 +37,6 @@
    "simple-json",
    "simple-json-generics",
    "simplecrypto",
-    "smolder",
    "spec-discovery",
    "spec-quickcheck",
    "string-parsers",

--- a/spago.dhall
+++ b/spago.dhall
@@ -15,6 +15,7 @@ to generate this file without the comments in this block.
  [ "aff"
  , "aff-promise"
  , "affjax"
+  , "affjax-web"
  , "argonaut"
  , "argonaut-codecs"
  , "argonaut-core"
@@ -41,14 +42,14 @@ to generate this file without the comments in this block.
  , "form-urlencoded"
  , "formula"
  , "functions"
-  , "globals"
  , "graphql-client"
  , "http-methods"
  , "integers"
  , "js-timers"
  , "lists"
-  , "markdown"
+  -- , "markdown"
-  , "markdown-smolder"
+  , "markdown-it"
+  --, "markdown-smolder"
  , "maybe"
  , "media-types"
  , "milkis"
@@ -74,7 +75,7 @@ to generate this file without the comments in this block.
  , "simple-json"
  , "simple-json-generics"
  , "simplecrypto"
-  , "smolder"
+  -- , "smolder"
  , "strings"
  , "strings-extra"
  , "stringutils"

--- a/src/Gargantext/Components/Bootstrap/Floaty/BaseModal.js
+++ b/src/Gargantext/Components/Bootstrap/Floaty/BaseModal.js
 'use strict';
-exports._show = show;
-exports._hide = hide;
 /**
 * @function show
 * @param {Window} window
 * @param {string} querySelector
 * @unpure {Object} window.$
 */
-function show(window, querySelector) {
+export function _show(window, querySelector) {
  window.$(querySelector).modal('show');
 }
 /**
@@ -17,7 +15,7 @@ function show(window, querySelector) {
 * @param {string} querySelector
 * @unpure {Object} window.$
 */
-function hide(window, querySelector) {
+export function _hide(window, querySelector) {
  window.$(querySelector).modal('hide');
  // @XXX Bootstrap not removing some modal elements on "hide" method
  // @https://stackoverflow.com/questions/50168312/bootstrap-4-close-modal-backdrop-doesnt-disappear

--- a/src/Gargantext/Components/Bootstrap/Floaty/Tooltip.js
+++ b/src/Gargantext/Components/Bootstrap/Floaty/Tooltip.js
 'use strict';
-const reactTooltip = require('react-tooltip');
+import Tooltip from 'react-tooltip';
+console.log('Tooltip', Tooltip);
 if (typeof window !== 'undefined') {
-    window.ReactTooltip = reactTooltip;
+    window.ReactTooltip = Tooltip;
 }
-exports.reactTooltipCpt = reactTooltip;
+export { Tooltip as reactTooltipCpt };
--- a/src/Gargantext/Components/Bootstrap/Floaty/Tooltip.purs
+++ b/src/Gargantext/Components/Bootstrap/Floaty/Tooltip.purs
@@ -7,7 +7,6 @@ module Gargantext.Components.Bootstrap.Tooltip
 import Gargantext.Prelude
 import ConvertableOptions as CO
-import Data.Symbol (SProxy(..))
 import Data.UUID as UUID
 import Gargantext.Components.Bootstrap.Types (TooltipEffect(..), TooltipPosition(..), Variant(..))
 import Gargantext.Utils.Reactix as R2
@@ -15,6 +14,7 @@ import Reactix as R
 import Reactix.DOM.HTML as H
 import Record as Record
 import Record.Extra as RX
+import Type.Proxy (Proxy(..))
 foreign import reactTooltipCpt :: R.Component Props
@@ -61,20 +61,20 @@ tooltip props = R.rawCreateElement reactTooltipCpt props''
    props'  = CO.defaults options props
    props'' = props'
        # Record.set
-          (SProxy :: SProxy "effect")
+          (Proxy :: Proxy "effect")
          (show props'.effect)
      >>> Record.set
-          (SProxy :: SProxy "variant")
+          (Proxy :: Proxy "variant")
          (show props'.variant)
      >>> Record.rename
-          (SProxy :: SProxy "variant")
+          (Proxy :: Proxy "variant")
-          (SProxy :: SProxy "type")
+          (Proxy :: Proxy "type")
      >>> Record.set
-          (SProxy :: SProxy "position")
+          (Proxy :: Proxy "position")
          (show props'.position)
      >>> Record.rename
-          (SProxy :: SProxy "position")
+          (Proxy :: Proxy "position")
-          (SProxy :: SProxy "place")
+          (Proxy :: Proxy "place")
 -------------------------------------------------------------

--- a/src/Gargantext/Components/Category.purs
+++ b/src/Gargantext/Components/Category.purs
@@ -139,7 +139,8 @@ carousselCpt = here.component "caroussel" cpt
        onClick c = \_-> do
          setLocalCategories $ Map.insert r._id c
          launchAff_ $ do
-            putCategories session nodeId $ CategoryQuery {nodeIds: [r._id], category: c}
+            _ <- putCategories session nodeId $ CategoryQuery {nodeIds: [r._id], category: c}
+            pure unit
 icon :: Category -> Boolean -> String
 icon cat b = btn b $ "fa fa-" <> (color $ size b $ icon' cat b)

--- a/src/Gargantext/Components/Charts/Options/Color.purs
+++ b/src/Gargantext/Components/Charts/Options/Color.purs
@@ -40,7 +40,7 @@ magenta :: Color
 magenta = stringColor "magenta"
 violet :: Color
-violet = cssColor CSS.violet
+violet = stringColor "violet"
 black :: Color
 black = stringColor "black"

--- a/src/Gargantext/Components/Charts/Options/ECharts.js
+++ b/src/Gargantext/Components/Charts/Options/ECharts.js
 "use strict";
-var ReactEcharts = require("echarts-for-react");
+import * as ReactEcharts from "echarts-for-react";
-exports.eChartsClass = ReactEcharts.default;
+let eChartsClass = ReactEcharts.default;
+export { eChartsClass };
 /**
 * @XXX "echarts-for-react" unsuitable to proper PureScript implementation
@@ -11,7 +12,7 @@ exports.eChartsClass = ReactEcharts.default;
 * @param {function} fn
 * @returns
 */
-exports.listenerFn1 = function(fn) {
+export function listenerFn1(fn) {
  return function() {
    var args = Array.prototype.slice.call(arguments);
    fn(args[0])()
@@ -24,7 +25,7 @@ exports.listenerFn1 = function(fn) {
 * @param {object} opts
 * @returns
 */
-exports.dispatchAction = function(eChartsInstance) {
+export function dispatchAction(eChartsInstance) {
  return function(opts) {
    return function() {
      eChartsInstance.dispatchAction(opts);

--- a/src/Gargantext/Components/Charts/Options/ECharts.purs
+++ b/src/Gargantext/Components/Charts/Options/ECharts.purs
@@ -54,7 +54,7 @@ chartWith options =
      refListener (Options { onInit }) = case onInit of
        Nothing -> pure unit
-        Just fn -> listenerFn1 (_ # fn # execOnInit)
+        Just fn -> listenerFn1 (execOnInit fn)
      execOnInit fn = toMaybe >>> case _ of
        Nothing                        -> pure unit

--- a/src/Gargantext/Components/Charts/Options/Series.purs
+++ b/src/Gargantext/Components/Charts/Options/Series.purs
@@ -4,7 +4,6 @@ import Data.Array (foldl)
 import Data.Generic.Rep (class Generic)
 import Data.Maybe (Maybe(..), maybe)
 import Data.Newtype (class Newtype)
-import Data.Symbol (SProxy(..))
 import Gargantext.Components.Charts.Options.Data (DataD1, DataD2)
 import Gargantext.Components.Charts.Options.Font (ItemStyle, Tooltip)
 import Gargantext.Components.Charts.Options.Legend (SelectedMode)
@@ -13,6 +12,7 @@ import Prelude (class Eq, class Show, bind, map, pure, show, ($), (+), (<<<), (<
 import Record      as Record
 import Record.Unsafe (unsafeSet)
 import Simple.JSON as JSON
+import Type.Proxy (Proxy(..))
 import Unsafe.Coerce (unsafeCoerce)
@@ -213,8 +213,8 @@ treeLeaf :: String -> Int -> TreeNode
 treeLeaf n v = TreeNode { name : n, value : v, children : []}
-nameP = SProxy :: SProxy "name"
+nameP = Proxy :: Proxy "name"
-labelP = SProxy :: SProxy "label"
+labelP = Proxy :: Proxy "label"
 -- | TODO

--- a/src/Gargantext/Components/CodeEditor.purs
+++ b/src/Gargantext/Components/CodeEditor.purs
@@ -11,12 +11,13 @@ import Data.String.Utils (endsWith)
 import DOM.Simple.Types (Element)
 import Effect (Effect)
 import FFI.Simple ((.=))
+import MarkdownIt (renderString)
 import Reactix as R
 import Reactix.DOM.HTML as H
-import Text.Markdown.SlamDown.Parser (parseMd)
+-- import Text.Markdown.SlamDown.Parser (parseMd)
-import Text.Markdown.SlamDown.Smolder as MD
+-- import Text.Markdown.SlamDown.Smolder as MD
-import Text.Markdown.SlamDown.Syntax (SlamDownP)
+-- import Text.Markdown.SlamDown.Syntax (SlamDownP)
-import Text.Smolder.Renderer.String as Smolder
+-- import Text.Smolder.Renderer.String as Smolder
 import Toestand as T
 import Gargantext.Prelude
@@ -58,16 +59,18 @@ codeNlFix :: CodeType -> Code -> Code
 codeNlFix _ "" = " "
 codeNlFix _ c = if endsWith "\n" c then (c <> " ") else c
-render :: CodeType -> Code -> Either Error Html
+render :: CodeType -> Code -> Effect (Either Error Html)
-render Haskell code = Right $ renderHaskell $ codeNlFix Haskell code
+render Haskell code = pure $ Right $ renderHaskell $ codeNlFix Haskell code
-render Python  code = Right $ renderPython  $ codeNlFix Python code
+render Python  code = pure $ Right $ renderPython  $ codeNlFix Python code
-render JSON code = result
+render JSON code = pure result
  where
    parsedE = jsonParser code
    result = case parsedE of
      Left err -> Left err
      Right parsed -> Right $ R2.stringify parsed 2
-render Markdown code = Right $ renderMd $ codeNlFix Markdown code
+render Markdown code = do
+  r <- renderMd $ codeNlFix Markdown code
+  pure $ Right r
 previewPostProcess :: CodeType -> Element -> Effect Unit
 previewPostProcess Haskell htmlEl = do
@@ -83,13 +86,14 @@ previewPostProcess Markdown _ = pure unit
 -- TODO Replace with markdown-it?
 -- https://pursuit.purescript.org/packages/purescript-markdown-it
-renderMd' :: forall e. MD.ToMarkupOptions e -> String -> String
+-- renderMd' :: forall e. MD.ToMarkupOptions e -> String -> String
-renderMd' options input =
+-- renderMd' options input =
-  either identity (MD.toMarkup' options >>> Smolder.render)
+--   either identity (MD.toMarkup' options >>> Smolder.render)
-  (parseMd input :: Either String (SlamDownP String))
+--   (parseMd input :: Either String (SlamDownP String))
-renderMd :: String -> String
+renderMd :: String -> Effect String
-renderMd = renderMd' MD.defaultToMarkupOptions
+renderMd = renderString
+--renderMd = renderMd' MD.defaultToMarkupOptions
 renderHaskell :: String -> String
 renderHaskell s = s
@@ -189,7 +193,8 @@ renderHtml code codeType htmlElRef error =
  case (toMaybe $ R.readRef htmlElRef) of
    Nothing -> pure unit
    Just htmlEl -> do
-      case render codeType code of
+      r <- render codeType code
+      case r of
        Left err -> do
          T.write_ (Just err) error
        Right rendered -> do

--- a/src/Gargantext/Components/DocsTable.purs
+++ b/src/Gargantext/Components/DocsTable.purs
@@ -17,7 +17,6 @@ import Data.Ord.Down (Down(..))
 import Data.Set (Set)
 import Data.Set as Set
 import Data.String as Str
-import Data.Symbol (SProxy(..))
 import Data.Tuple (Tuple(..))
 import Data.Tuple.Nested ((/\))
 import Effect (Effect)
@@ -56,6 +55,7 @@ import Reactix.DOM.HTML as H
 import Record.Extra as RX
 import Simple.JSON as JSON
 import Toestand as T
+import Type.Proxy (Proxy(..))
 here :: R2.Here
 here = R2.here "Gargantext.Components.DocsTable"
@@ -100,8 +100,8 @@ type PageLayoutProps =
  | CommonProps
  )
-_documentIdsDeleted  = prop (SProxy :: SProxy "documentIdsDeleted")
+_documentIdsDeleted  = prop (Proxy :: Proxy "documentIdsDeleted")
-_localCategories     = prop (SProxy :: SProxy "localCategories")
+_localCategories     = prop (Proxy :: Proxy "localCategories")
 docViewLayout :: Record LayoutProps -> R.Element
 docViewLayout props = R.createElement docViewLayoutCpt props []
@@ -270,7 +270,7 @@ scanDocumentCreationProgress boxes session nodeId currentTask cbk = do
          , GT.IsKilled
          , GT.IsFailure
          ]
-        hasEndingStatus s = any (_ # s # eq) endingStatusList
+        hasEndingStatus s = any (eq s) endingStatusList
      if (hasEndingStatus status)
      then

--- a/src/Gargantext/Components/FacetsTable.purs
+++ b/src/Gargantext/Components/FacetsTable.purs
@@ -147,7 +147,9 @@ docViewCpt = here.component "docView" cpt
 performDeletions :: Session -> Int -> T.Box Deletions -> Deletions -> Effect Unit
 performDeletions session nodeId deletions deletions' = do
-  launchAff_ $ deleteDocuments session nodeId (DeleteDocumentQuery q)
+  launchAff_ $ do
+    _ <- deleteDocuments session nodeId (DeleteDocumentQuery q)
+    pure unit
  T.modify_ del deletions
  where
    q = { documents: Set.toUnfoldable deletions'.pending }
@@ -155,7 +157,9 @@ performDeletions session nodeId deletions deletions' = do
 markCategory :: Session -> NodeID -> Category -> Array NodeID -> Effect Unit
 markCategory session nodeId category nids =
-  void $ launchAff_ $ putCategories session nodeId (CategoryQuery q)
+  void $ launchAff_ $ do
+    _ <- putCategories session nodeId (CategoryQuery q)
+    pure unit
  where -- TODO add array of delete rows here
    q = {nodeIds: nids, category: favCategory category}

--- a/src/Gargantext/Components/Forest/Tree/Node.js
+++ b/src/Gargantext/Components/Forest/Tree/Node.js
-exports.nodeUserRegexp = /(@{1}.*).gargantext.org$/;
+export const nodeUserRegexp = /(@{1}.*).gargantext.org$/;
--- a/src/Gargantext/Components/Forest/Tree/Node.purs
+++ b/src/Gargantext/Components/Forest/Tree/Node.purs
@@ -9,7 +9,6 @@ import Data.Array.NonEmpty as NArray
 import Data.Foldable (intercalate)
 import Data.Maybe (Maybe(..), maybe)
 import Data.String.Regex as Regex
-import Data.Symbol (SProxy(..))
 import Data.Tuple.Nested ((/\))
 import Effect (Effect)
 import Effect.Aff (Aff, launchAff)
@@ -44,6 +43,7 @@ import Reactix as R
 import Reactix.DOM.HTML as H
 import Record as Record
 import Toestand as T
+import Type.Proxy (Proxy(..))
 -- (?) never been able to properly declare PureScript Regex...
 foreign import nodeUserRegexp :: Regex.Regex
@@ -544,7 +544,7 @@ nodeActionsCpt :: R.Component NodeActionsProps
 nodeActionsCpt = here.component "nodeActions" cpt where
  cpt props _ = pure (child props.nodeType)
    where
-      nodeActionsP      = SProxy :: SProxy "nodeType"
+      nodeActionsP      = Proxy :: Proxy "nodeType"
      childProps        = Record.delete nodeActionsP props

--- a/src/Gargantext/Components/GraphExplorer/Sidebar.purs
+++ b/src/Gargantext/Components/GraphExplorer/Sidebar.purs
@@ -5,11 +5,12 @@ module Gargantext.Components.GraphExplorer.Sidebar
 import Gargantext.Prelude
 import Control.Parallel (parTraverse)
-import Data.Array (last, mapWithIndex)
+import Data.Array (last)
 import Data.Array as A
 import Data.Either (Either(..))
 import Data.Foldable (intercalate)
 import Data.Foldable as F
+import Data.FunctorWithIndex (mapWithIndex)
 import Data.Int (fromString)
 import Data.Map as Map
 import Data.Maybe (Maybe(..), fromJust)

--- a/src/Gargantext/Components/GraphExplorer/Toolbar/SlideButton.purs
+++ b/src/Gargantext/Components/GraphExplorer/Toolbar/SlideButton.purs
@@ -5,7 +5,8 @@ module Gargantext.Components.GraphExplorer.Toolbar.SlideButton
  , mouseSelectorSizeButton
  ) where
-import Global (readFloat)
+import Data.Maybe (Maybe(..))
+import Data.Number as DN
 import Prelude
 import Effect (Effect)
 import Reactix as R
@@ -29,7 +30,6 @@ type Props =
 sizeButton :: Record Props -> R.Element
 sizeButton props = R.createElement sizeButtonCpt props []
 sizeButtonCpt :: R.Component Props
 sizeButtonCpt = here.component "sizeButton" cpt where
  cpt { state, caption, min, max, onChange } _ = do
@@ -67,7 +67,10 @@ labelSizeButton sigmaRef state =
    , max: 30.0
    , onChange: \e -> do
      let sigma = R.readRef sigmaRef
-      let newValue = readFloat $ R.unsafeEventValue e
+      let newValue' = DN.fromString $ R.unsafeEventValue e
+      case newValue' of
+        Nothing -> pure unit
+        Just newValue ->
          Sigmax.dependOnSigma sigma "[labelSizeButton] sigma: Nothing" $ \s -> do
            Sigma.setSettings s {
              defaultLabelSize: newValue
@@ -87,7 +90,10 @@ mouseSelectorSizeButton sigmaRef state =
    , max: 50.0
    , onChange: \e -> do
      let sigma = R.readRef sigmaRef
-      let newValue = readFloat $ R.unsafeEventValue e
+      let newValue' = DN.fromString $ R.unsafeEventValue e
+      case newValue' of
+        Nothing -> pure unit
+        Just newValue ->
          Sigmax.dependOnSigma sigma "[mouseSelectorSizeButton] sigma: Nothing" $ \s -> do
            Sigma.setSettings s {
              mouseSelectorSize: newValue

--- a/src/Gargantext/Components/GraphExplorer/Types.purs
+++ b/src/Gargantext/Components/GraphExplorer/Types.purs
@@ -9,10 +9,10 @@ import Data.Maybe (Maybe(..), fromJust)
 import Data.Newtype (class Newtype)
 import Data.Ord.Generic (genericCompare)
 import Data.Show.Generic (genericShow)
-import Data.Symbol (SProxy(..))
 import Partial.Unsafe (unsafePartial)
 import Record as Record
 import Simple.JSON as JSON
+import Type.Proxy (Proxy(..))
 type GraphId = Int
@@ -27,18 +27,18 @@ newtype Node = Node {
  , y          :: Number
  }
-x_coordP = SProxy :: SProxy "x_coord"
+x_coordP = Proxy :: Proxy "x_coord"
-xP = SProxy :: SProxy "x"
+xP = Proxy :: Proxy "x"
-y_coordP = SProxy :: SProxy "y_coord"
+y_coordP = Proxy :: Proxy "y_coord"
-yP = SProxy :: SProxy "y"
+yP = Proxy :: Proxy "y"
-clustDefaultP = SProxy :: SProxy "clustDefault"
+clustDefaultP = Proxy :: Proxy "clustDefault"
-clust_defaultP = SProxy :: SProxy "clust_default"
+clust_defaultP = Proxy :: Proxy "clust_default"
-cameraP = SProxy :: SProxy "camera"
+cameraP = Proxy :: Proxy "camera"
-mCameraP = SProxy :: SProxy "mCamera"
+mCameraP = Proxy :: Proxy "mCamera"
-idP = SProxy :: SProxy "id"
+idP = Proxy :: Proxy "id"
-id_P = SProxy :: SProxy "id_"
+id_P = Proxy :: Proxy "id_"
-typeP = SProxy :: SProxy "type"
+typeP = Proxy :: Proxy "type"
-type_P = SProxy :: SProxy "type_"
+type_P = Proxy :: Proxy "type_"
 derive instance Generic Node _
 derive instance Newtype Node _

--- a/src/Gargantext/Components/GraphQL/AffjaxSimpleJSONClient.purs
+++ b/src/Gargantext/Components/GraphQL/AffjaxSimpleJSONClient.purs
@@ -4,7 +4,7 @@ module Gargantext.Components.GraphQL.AffjaxSimpleJSONClient
 import Prelude
-import Affjax (Error(..), Response, URL, defaultRequest, printError, request)
+import Affjax.Web (Error(..), Response, URL, defaultRequest, printError, request)
 import Affjax.RequestBody as RequestBody
 import Affjax.RequestHeader (RequestHeader(..))
 import Affjax.ResponseFormat as ResponseFormat

--- a/src/Gargantext/Components/Login/Form.purs
+++ b/src/Gargantext/Components/Login/Form.purs
 module Gargantext.Components.Login.Form where
-import Prelude (Unit, bind, discard, not, notEq, pure, show, ($), (&&), (*>), (<>))
+import Prelude (Unit, bind, discard, not, notEq, pure, show, unit, ($), (&&), (*>), (<>))
 import Data.Either (Either(..))
 import DOM.Simple.Event as DE
 import Effect (Effect)
@@ -107,13 +107,14 @@ submitForm { backend, sessions, visible } cell e = do
  state <- T.read cell
  launchAff_ $ do
    res <- postAuthRequest backend (req state)
-    case res of
+    _ <- case res of
      Left message -> liftEffect $ T.write (state { error = message }) cell
      Right sess ->
        liftEffect $
          Sessions.change (Sessions.Login sess) sessions
          *> T.write false visible
          *> T.write (state { error = "" }) cell
+    pure unit
    where
      req { username, password } = AuthRequest { username, password }

--- a/src/Gargantext/Components/Nodes/Annuaire.purs
+++ b/src/Gargantext/Components/Nodes/Annuaire.purs
@@ -10,7 +10,6 @@ import Data.Generic.Rep (class Generic)
 import Data.Maybe (Maybe(..), maybe, fromMaybe)
 import Data.Newtype (class Newtype)
 import Data.Sequence as Seq
-import Data.Symbol (SProxy(..))
 import Effect.Aff (launchAff_)
 import Gargantext.Components.NgramsTable.Loader (clearCache)
 import Gargantext.Components.Nodes.Annuaire.User.Contacts.Types as CT
@@ -30,6 +29,7 @@ import Reactix.DOM.HTML as H
 import Record as Record
 import Simple.JSON as JSON
 import Toestand as T
+import Type.Proxy (Proxy(..))
 here :: R2.Here
 here = R2.here "Gargantext.Components.Nodes.Annuaire"
@@ -263,10 +263,10 @@ instance JSON.ReadForeign AnnuaireInfo where
    inst <- JSON.readImpl f
    pure $ AnnuaireInfo $ Record.rename user_idP userIdP $ Record.rename parent_idP parentIdP inst
    where
-      user_idP = SProxy :: SProxy "user_id"
+      user_idP = Proxy :: Proxy "user_id"
-      userIdP = SProxy :: SProxy "userId"
+      userIdP = Proxy :: Proxy "userId"
-      parent_idP = SProxy :: SProxy "parent_id"
+      parent_idP = Proxy :: Proxy "parent_id"
-      parentIdP = SProxy :: SProxy "parentId"
+      parentIdP = Proxy :: Proxy "parentId"
 --newtype AnnuaireTable  = AnnuaireTable  { annuaireTable :: Array (Maybe Contact)}
@@ -292,4 +292,3 @@ loadPage session {nodeId, params: { offset, limit }} =
 getAnnuaireInfo :: Session -> Int -> AffRESTError AnnuaireInfo
 getAnnuaireInfo session id = get session (NodeAPI Node (Just id) "")
--- a/src/Gargantext/Components/Nodes/Annuaire/User/Contacts/Types.purs
+++ b/src/Gargantext/Components/Nodes/Annuaire/User/Contacts/Types.purs
@@ -7,9 +7,9 @@ import Data.Lens (Lens', lens)
 import Data.Maybe (Maybe(..), fromMaybe)
 import Data.Newtype (class Newtype)
 import Data.String as S
-import Data.Symbol (SProxy(..))
 import Record as Record
 import Simple.JSON as JSON
+import Type.Proxy (Proxy(..))
 import Gargantext.Prelude (class Eq, bind, pure, ($))
@@ -348,7 +348,7 @@ _phone = lens getter setter
    getter (ContactTouch {phone}) = fromMaybe "" phone
    setter (ContactTouch ct) val = ContactTouch $ ct { phone = Just val }
-user_idP = SProxy :: SProxy "user_id"
+user_idP = Proxy :: Proxy "user_id"
-userIdP = SProxy :: SProxy "userId"
+userIdP = Proxy :: Proxy "userId"
-parent_idP = SProxy :: SProxy "parent_id"
+parent_idP = Proxy :: Proxy "parent_id"
-parentIdP = SProxy :: SProxy "parentId"
+parentIdP = Proxy :: Proxy "parentId"
--- a/src/Gargantext/Components/Nodes/Corpus.purs
+++ b/src/Gargantext/Components/Nodes/Corpus.purs
@@ -4,6 +4,7 @@ import Data.Array as A
 import Data.Either (Either(..))
 import Data.Eq.Generic (genericEq)
 import Data.Generic.Rep (class Generic)
+import Data.FunctorWithIndex (mapWithIndex)
 import Data.List as List
 import Data.Maybe (Maybe(..), fromMaybe)
 import Data.Show.Generic (genericShow)
@@ -156,7 +157,7 @@ fieldsCodeEditorCpt = here.component "fieldsCodeEditorCpt" cpt
              List.modifyAt idx (\{ ftField: Field f } -> { idx, ftField: Field $ f { name = newName } }) fs) fields
    recomputeIndices :: FTFieldsWithIndex -> FTFieldsWithIndex
-    recomputeIndices (FTFieldsWithIndex lst) = FTFieldsWithIndex $ List.mapWithIndex (\idx -> \{ ftField } -> { idx, ftField }) lst
+    recomputeIndices (FTFieldsWithIndex lst) = FTFieldsWithIndex $ mapWithIndex (\idx -> \{ ftField } -> { idx, ftField }) lst
 hash :: FTFieldWithIndex -> Hash
 hash { idx, ftField } = Crypto.hash $ "--idx--" <> (show idx) <> "--field--" <> (show ftField)

--- a/src/Gargantext/Components/Nodes/Corpus/Code.purs
+++ b/src/Gargantext/Components/Nodes/Corpus/Code.purs
 module Gargantext.Components.Nodes.Corpus.Code where
 import Data.Either (Either(..))
+import Data.FunctorWithIndex (mapWithIndex)
 import Data.List as List
 import Data.Maybe (Maybe(..))
 import Effect (Effect)
@@ -59,7 +60,7 @@ corpusCodeView props = R.createElement corpusCodeViewCpt props []
 corpusCodeViewCpt :: R.Component ViewProps
 corpusCodeViewCpt = here.component "corpusCodeView" cpt where
  cpt {corpus: (NodePoly {hyperdata: Hyperdata {fields: FTFieldList fields}}), nodeId, reload, session, boxes} _ = do
-    let fieldsWithIndex = FTFieldsWithIndex $ List.mapWithIndex (\idx -> \ftField -> { idx, ftField }) fields
+    let fieldsWithIndex = FTFieldsWithIndex $ mapWithIndex (\idx -> \ftField -> { idx, ftField }) fields
    fieldsS <- T.useBox fieldsWithIndex
    fields' <- T.useLive T.unequal fieldsS
    fieldsRef <- R.useRef fields

--- a/src/Gargantext/Components/Nodes/Corpus/Dashboard.purs
+++ b/src/Gargantext/Components/Nodes/Corpus/Dashboard.purs
@@ -2,6 +2,7 @@ module Gargantext.Components.Nodes.Corpus.Dashboard where
 import Data.Array as A
 import Data.Either (Either(..))
+import Data.FunctorWithIndex (mapWithIndex)
 import Data.List as List
 import Data.Maybe (Maybe(..), fromMaybe)
 import Effect (Effect)
@@ -129,7 +130,7 @@ dashboardLayoutLoadedCpt = here.component "dashboardLayoutLoaded" cpt
          where
            onClickAddChart _ = onChange { charts: A.cons P.CDocsHistogram charts
                                         , fields }
-        chartsEls = A.mapWithIndex chartIdx charts
+        chartsEls = mapWithIndex chartIdx charts
        chartIdx idx chart =
          renderChart { boxes
                      , chart
@@ -158,7 +159,7 @@ dashboardCodeEditorCpt :: R.Component CodeEditorProps
 dashboardCodeEditorCpt = here.component "dashboardCodeEditor" cpt
  where
    cpt { fields: FTFieldList fields, nodeId, onChange, session } _ = do
-      let fieldsWithIndex = FTFieldsWithIndex $ List.mapWithIndex (\idx -> \ftField -> { idx, ftField }) fields
+      let fieldsWithIndex = FTFieldsWithIndex $ mapWithIndex (\idx -> \ftField -> { idx, ftField }) fields
      fieldsS <- T.useBox fieldsWithIndex
      fields' <- T.useLive T.unequal fieldsS
      fieldsRef <- R.useRef fields'

--- a/src/Gargantext/Components/PhyloExplorer/API.purs
+++ b/src/Gargantext/Components/PhyloExplorer/API.purs
@@ -15,7 +15,6 @@ import Data.Generic.Rep (class Generic)
 import Data.Maybe (Maybe(..))
 import Data.Newtype (class Newtype)
 import Data.Show.Generic (genericShow)
-import Data.Symbol (SProxy(..))
 import Gargantext.Components.PhyloExplorer.JSON (PhyloJSON)
 import Gargantext.Components.PhyloExplorer.Types (PhyloSet, parseToPhyloSet)
 import Gargantext.Config.REST (AffRESTError)
@@ -28,6 +27,7 @@ import Gargantext.Types as GT
 import Record as Record
 import Simple.JSON as JSON
 import Simple.JSON.Generics as JSONG
+import Type.Proxy (Proxy(..))
 get :: S.Session -> NodeID -> AffRESTError (PhyloSet)
@@ -57,23 +57,23 @@ instance JSON.WriteForeign UpdateData where
    where
      rename
          = Record.rename
-            (SProxy :: SProxy "proximity")
+            (Proxy :: Proxy "proximity")
-            (SProxy :: SProxy "_sc_phyloProximity")
+            (Proxy :: Proxy "_sc_phyloProximity")
        >>> Record.rename
-            (SProxy :: SProxy "synchrony")
+            (Proxy :: Proxy "synchrony")
-            (SProxy :: SProxy "_sc_phyloSynchrony")
+            (Proxy :: Proxy "_sc_phyloSynchrony")
        >>> Record.rename
-            (SProxy :: SProxy "quality")
+            (Proxy :: Proxy "quality")
-            (SProxy :: SProxy "_sc_phyloQuality")
+            (Proxy :: Proxy "_sc_phyloQuality")
        >>> Record.rename
-            (SProxy :: SProxy "timeUnit")
+            (Proxy :: Proxy "timeUnit")
-            (SProxy :: SProxy "_sc_timeUnit")
+            (Proxy :: Proxy "_sc_timeUnit")
        >>> Record.rename
-            (SProxy :: SProxy "clique")
+            (Proxy :: Proxy "clique")
-            (SProxy :: SProxy "_sc_clique")
+            (Proxy :: Proxy "_sc_clique")
        >>> Record.rename
-            (SProxy :: SProxy "exportFilter")
+            (Proxy :: Proxy "exportFilter")
-            (SProxy :: SProxy "_sc_exportFilter")
+            (Proxy :: Proxy "_sc_exportFilter")
 data TimeUnit
  = Epoch TimeUnitCriteria
@@ -96,68 +96,68 @@ instance JSON.WriteForeign TimeUnit where
    where
      parseEpoch
          = Record.rename
-            (SProxy :: SProxy "period")
+            (Proxy :: Proxy "period")
-            (SProxy :: SProxy "_epoch_period")
+            (Proxy :: Proxy "_epoch_period")
        >>> Record.rename
-            (SProxy :: SProxy "step")
+            (Proxy :: Proxy "step")
-            (SProxy :: SProxy "_epoch_step")
+            (Proxy :: Proxy "_epoch_step")
        >>> Record.rename
-            (SProxy :: SProxy "matchingFrame")
+            (Proxy :: Proxy "matchingFrame")
-            (SProxy :: SProxy "_epoch_matchingFrame")
+            (Proxy :: Proxy "_epoch_matchingFrame")
        >>> Record.insert
-            (SProxy :: SProxy "tag")
+            (Proxy :: Proxy "tag")
            "Epoch"
      parseYear
          = Record.rename
-            (SProxy :: SProxy "period")
+            (Proxy :: Proxy "period")
-            (SProxy :: SProxy "_year_period")
+            (Proxy :: Proxy "_year_period")
        >>> Record.rename
-            (SProxy :: SProxy "step")
+            (Proxy :: Proxy "step")
-            (SProxy :: SProxy "_year_step")
+            (Proxy :: Proxy "_year_step")
        >>> Record.rename
-            (SProxy :: SProxy "matchingFrame")
+            (Proxy :: Proxy "matchingFrame")
-            (SProxy :: SProxy "_year_matchingFrame")
+            (Proxy :: Proxy "_year_matchingFrame")
        >>> Record.insert
-            (SProxy :: SProxy "tag")
+            (Proxy :: Proxy "tag")
            "Year"
      parseMonth
          = Record.rename
-            (SProxy :: SProxy "period")
+            (Proxy :: Proxy "period")
-            (SProxy :: SProxy "_month_period")
+            (Proxy :: Proxy "_month_period")
        >>> Record.rename
-            (SProxy :: SProxy "step")
+            (Proxy :: Proxy "step")
-            (SProxy :: SProxy "_month_step")
+            (Proxy :: Proxy "_month_step")
        >>> Record.rename
-            (SProxy :: SProxy "matchingFrame")
+            (Proxy :: Proxy "matchingFrame")
-            (SProxy :: SProxy "_month_matchingFrame")
+            (Proxy :: Proxy "_month_matchingFrame")
        >>> Record.insert
-            (SProxy :: SProxy "tag")
+            (Proxy :: Proxy "tag")
            "Month"
      parseWeek
          = Record.rename
-            (SProxy :: SProxy "period")
+            (Proxy :: Proxy "period")
-            (SProxy :: SProxy "_week_period")
+            (Proxy :: Proxy "_week_period")
        >>> Record.rename
-            (SProxy :: SProxy "step")
+            (Proxy :: Proxy "step")
-            (SProxy :: SProxy "_week_step")
+            (Proxy :: Proxy "_week_step")
        >>> Record.rename
-            (SProxy :: SProxy "matchingFrame")
+            (Proxy :: Proxy "matchingFrame")
-            (SProxy :: SProxy "_week_matchingFrame")
+            (Proxy :: Proxy "_week_matchingFrame")
        >>> Record.insert
-            (SProxy :: SProxy "tag")
+            (Proxy :: Proxy "tag")
            "Week"
      parseDay
          = Record.rename
-            (SProxy :: SProxy "period")
+            (Proxy :: Proxy "period")
-            (SProxy :: SProxy "_day_period")
+            (Proxy :: Proxy "_day_period")
        >>> Record.rename
-            (SProxy :: SProxy "step")
+            (Proxy :: Proxy "step")
-            (SProxy :: SProxy "_day_step")
+            (Proxy :: Proxy "_day_step")
        >>> Record.rename
-            (SProxy :: SProxy "matchingFrame")
+            (Proxy :: Proxy "matchingFrame")
-            (SProxy :: SProxy "_day_matchingFrame")
+            (Proxy :: Proxy "_day_matchingFrame")
        >>> Record.insert
-            (SProxy :: SProxy "tag")
+            (Proxy :: Proxy "tag")
            "Day"
@@ -217,27 +217,27 @@ instance JSON.WriteForeign Clique where
    where
      parseFIS
          = Record.insert
-            (SProxy :: SProxy "tag")
+            (Proxy :: Proxy "tag")
            "Fis"
        >>> Record.rename
-            (SProxy :: SProxy "support")
+            (Proxy :: Proxy "support")
-            (SProxy :: SProxy "_fis_support")
+            (Proxy :: Proxy "_fis_support")
        >>> Record.rename
-            (SProxy :: SProxy "size")
+            (Proxy :: Proxy "size")
-            (SProxy :: SProxy "_fis_size")
+            (Proxy :: Proxy "_fis_size")
      parseMaxClique
          = Record.insert
-            (SProxy :: SProxy "tag")
+            (Proxy :: Proxy "tag")
            "MaxClique"
        >>> Record.rename
-            (SProxy :: SProxy "size")
+            (Proxy :: Proxy "size")
-            (SProxy :: SProxy "_mcl_size")
+            (Proxy :: Proxy "_mcl_size")
        >>> Record.rename
-            (SProxy :: SProxy "threshold")
+            (Proxy :: Proxy "threshold")
-            (SProxy :: SProxy "_mcl_threshold")
+            (Proxy :: Proxy "_mcl_threshold")
        >>> Record.rename
-            (SProxy :: SProxy "filter")
+            (Proxy :: Proxy "filter")
-            (SProxy :: SProxy "_mcl_filter")
+            (Proxy :: Proxy "_mcl_filter")
 data ReflexiveClique

--- a/src/Gargantext/Components/PhyloExplorer/Resources.js
+++ b/src/Gargantext/Components/PhyloExplorer/Resources.js
@@ -4,35 +4,35 @@
 ///    FIELDS
 ////////////////////////////////////////////////////////////////////////////////
-var EXTRACTED_TERMS_EVENT     = 'extracted_terms_event';
+const EXTRACTED_TERMS_EVENT     = 'extracted_terms_event';
-var EXTRACTED_COUNT_EVENT     = 'extracted_count_event';
+const EXTRACTED_COUNT_EVENT     = 'extracted_count_event';
-var SELECTED_TERM_EVENT       = 'selected_term_event';
+const SELECTED_TERM_EVENT       = 'selected_term_event';
-var SELECTED_BRANCH_EVENT     = 'selected_branch_event';
+const SELECTED_BRANCH_EVENT     = 'selected_branch_event';
-var SELECTED_SOURCE_EVENT     = 'selected_source_event';
+const SELECTED_SOURCE_EVENT     = 'selected_source_event';
-var DISPLAY_VIEW_EVENT        = 'display_view_event';
+const DISPLAY_VIEW_EVENT        = 'display_view_event';
-var ISO_LINE_DOM_QUERY      = '.phylo-isoline';
+const ISO_LINE_DOM_QUERY      = '.phylo-isoline';
-var LEFT_COLUMN_DOM_QUERY   = '.phylo-grid__blueprint__left';
+const LEFT_COLUMN_DOM_QUERY   = '.phylo-grid__blueprint__left';
-var CENTER_COLUMN_DOM_QUERY = '.phylo-grid__blueprint__center';
+const CENTER_COLUMN_DOM_QUERY = '.phylo-grid__blueprint__center';
-var SCAPE_DOM_QUERY         = '.phylo-grid__content__scape';
+const SCAPE_DOM_QUERY         = '.phylo-grid__content__scape';
 //  (?) Global thread dependencies:
 //    * d3 <Object> (main D3 proxy))
 //    * window <Window> (cf. below function signature for window uses)
 //    * document <HTMLDocument>
-var memoTickText          = {};        // <Object> of <Int> => <TickText>
+let memoTickText          = {};        // <Object> of <Int> => <TickText>
 ///   <TickText> ::
 ///       <Int> bId
 ///       <Float> limit
 ///       <String>text
-var panel                 = undefined; // <Object> instanceof d3.selection
+let panel                 = undefined; // <Object> instanceof d3.selection
-var svg                   = undefined; // <Object> instanceof d3.selection
+let svg                   = undefined; // <Object> instanceof d3.selection
-var label                 = undefined; // <Object> instanceof d3.selection
+let label                 = undefined; // <Object> instanceof d3.selection
-var zoom                  = undefined; // <Function> see https://github.com/d3/d3-zoom#zoom
+let zoom                  = undefined; // <Function> see https://github.com/d3/d3-zoom#zoom
-var xScale0               = undefined; // <Function> see https://github.com/d3/d3-scale#_continuous
+let xScale0               = undefined; // <Function> see https://github.com/d3/d3-scale#_continuous
-var yScale0               = undefined; // <Function> see https://github.com/d3/d3-scale#_continuous
+let yScale0               = undefined; // <Function> see https://github.com/d3/d3-scale#_continuous
-var subscribers           = {};        // <Object> dictionary for pubsub pattern
+let subscribers           = {};        // <Object> dictionary for pubsub pattern
 ////////////////////////////////////////////////////////////////////////////////
 ///    HELPERS
@@ -2279,26 +2279,29 @@ function addEmergenceLabels(k, emergences, branchByGroup, fontScale, opacityScal
 ///    EXPORTS
 ////////////////////////////////////////////////////////////////////////////////
-exports._extractedTermsEvent    = EXTRACTED_TERMS_EVENT;
+export const _extractedTermsEvent    = EXTRACTED_TERMS_EVENT;
-exports._extractedCountEvent    = EXTRACTED_COUNT_EVENT;
+export const _extractedCountEvent    = EXTRACTED_COUNT_EVENT;
-exports._selectedTermEvent      = SELECTED_TERM_EVENT;
+export const _selectedTermEvent      = SELECTED_TERM_EVENT;
-exports._selectedBranchEvent    = SELECTED_BRANCH_EVENT;
+export const _selectedBranchEvent    = SELECTED_BRANCH_EVENT;
-exports._selectedSourceEvent    = SELECTED_SOURCE_EVENT;
+export const _selectedSourceEvent    = SELECTED_SOURCE_EVENT;
-exports._displayViewEvent       = DISPLAY_VIEW_EVENT;
+export const _displayViewEvent       = DISPLAY_VIEW_EVENT;
-exports._drawPhylo        = drawPhylo;
+let pubsubPublish = pubsub.publish;
-exports._drawWordCloud    = drawWordCloud;
+let pubsubSubscribe = pubsub.subscribe;
-exports._showLabel        = showLabel;
+let pubsubUnsubscribe = pubsub.unsubscribe;
-exports._termClick        = termClick;
-exports._resetView        = resetView;
+export { drawPhylo         as _drawPhylo,
-exports._showLabel        = showLabel;
+         drawWordCloud     as _drawWordCloud,
-exports._showHeading      = showHeading;
+         showLabel         as _showLabel,
-exports._showLanding      = showLanding;
+         termClick         as _termClick,
-exports._exportViz        = exportViz;
+         resetView         as _resetView,
-exports._doubleClick      = doubleClick;
+         showHeading       as _showHeading,
-exports._highlightGroups  = highlightGroups;
+         showLanding       as _showLanding,
-exports._initPath         = initPath;
+         exportViz         as _exportViz,
+         doubleClick       as _doubleClick,
-exports._publish          = pubsub.publish;
+         highlightGroups   as _highlightGroups,
-exports._subscribe        = pubsub.subscribe;
+         initPath          as _initPath,
-exports._unsubscribe      = pubsub.unsubscribe;
+         pubsubPublish     as _publish,
+         pubsubSubscribe   as _subscribe,
+         pubsubUnsubscribe as _unsubscribe };
--- a/src/Gargantext/Components/PhyloExplorer/Sidebar/SelectionTab.purs
+++ b/src/Gargantext/Components/PhyloExplorer/Sidebar/SelectionTab.purs
@@ -4,8 +4,9 @@ module Gargantext.Components.PhyloExplorer.SelectionTab
 import Gargantext.Prelude
-import Data.Array (length, mapWithIndex, null)
+import Data.Array (length, null)
 import Data.Foldable (intercalate)
+import Data.FunctorWithIndex (mapWithIndex)
 import Data.Int (ceil)
 import Data.Maybe (Maybe(..), isJust)
 import Data.Tuple.Nested ((/\))

--- a/src/Gargantext/Components/PhyloExplorer/Types.js
+++ b/src/Gargantext/Components/PhyloExplorer/Types.js
@@ -4,7 +4,7 @@
 * @param {string} year
 * @returns {Date}
 */
-function yearToDate(year) {
+export function yearToDate(year) {
  var d = new Date();
  d.setYear(parseInt(year));
@@ -18,7 +18,7 @@ function yearToDate(year) {
 * @param {string} str
 * @returns {Date}
 */
-function stringToDate(str) {
+export function stringToDate(str) {
  var arr = (str.replace('"','')).split('-');
  var d = new Date();
@@ -34,7 +34,7 @@ function stringToDate(str) {
 * @param {string} str
 * @returns {Date}
 */
-function utcStringToDate(str) {
+export function utcStringToDate(str) {
  var arr = ((str.replace('"','')).replace(' UTC','')).split(/[\s-:]+/);
  var d = new Date();
@@ -45,7 +45,3 @@ function utcStringToDate(str) {
  return d;
 }
-exports.yearToDate      = yearToDate;
-exports.stringToDate    = stringToDate;
-exports.utcStringToDate = utcStringToDate;
--- a/src/Gargantext/Components/PhyloExplorer/Types.purs
+++ b/src/Gargantext/Components/PhyloExplorer/Types.purs
@@ -20,6 +20,7 @@ import Gargantext.Prelude
 import Data.Array as Array
 import Data.Date as Date
 import Data.Generic.Rep (class Generic)
+import Data.FunctorWithIndex (mapWithIndex)
 import Data.Int as Int
 import Data.Maybe (Maybe(..), maybe)
 import Data.Newtype (class Newtype)
@@ -379,7 +380,7 @@ parseSources
 --                  sorting purpose only
 sortSources :: Array String -> Array Source
 sortSources
-  =   Array.mapWithIndex setSource
+  =   mapWithIndex setSource
  >>> Array.sortWith getLabel
  where

--- a/src/Gargantext/Components/RangeSlider.purs
+++ b/src/Gargantext/Components/RangeSlider.purs
@@ -11,6 +11,7 @@ import Data.Eq.Generic (genericEq)
 import Data.Int (fromNumber)
 import Data.Maybe (Maybe(..), fromMaybe)
 import Data.Number as DN
+import Data.Number.Format as DNF
 import Data.Nullable (Nullable, null)
 import Data.Traversable (traverse_)
 import DOM.Simple as DOM
@@ -18,7 +19,6 @@ import DOM.Simple.Document (document)
 import DOM.Simple.Event as Event
 import DOM.Simple.EventListener as EL
 import DOM.Simple (DOMRect)
-import Global (toFixed)
 import Effect (Effect)
 import Reactix as R
 import Reactix.DOM.HTML as H
@@ -169,8 +169,9 @@ renderScaleSel ref props (Range.Closed {min, max}) =
    style = {left: computeLeft, width: computeWidth}
    percOffsetMin = Range.normalise props.bounds min
    percOffsetMax = Range.normalise props.bounds max
-    computeLeft = (show $ 100.0 * percOffsetMin) <> "%"
+    computeLeft = formatter $ 100.0 * percOffsetMin
-    computeWidth = (show $ 100.0 * (percOffsetMax - percOffsetMin)) <> "%"
+    computeWidth = formatter $ 100.0 * (percOffsetMax - percOffsetMin)
+    formatter n = (DNF.toStringWith (DNF.fixed 0) n) <> "%"
 renderKnob :: Knob -> R.Ref (Nullable DOM.Element) -> Range.NumberRange -> Bounds -> T.Box (Maybe Knob) -> Int -> R.Element
@@ -178,12 +179,10 @@ renderKnob knob ref (Range.Closed value) bounds set precision =
  H.div { ref, tabIndex, className, aria, on: { mouseDown: onMouseDown }, style } [
      H.div { className: "range-slider__placeholder" }
        [
-          H.text $ text $ toFixed precision val
+          H.text $ DNF.toStringWith (DNF.precision precision) val
        ]
  ]
  where
-    text (Just num) = num
-    text Nothing = "error"
    tabIndex = 0
    className = "range-slider__knob"
    aria = { label: labelPrefix knob <> "value: " <> show val }

--- a/src/Gargantext/Components/Router.purs
+++ b/src/Gargantext/Components/Router.purs
@@ -134,7 +134,7 @@ mainPageCpt = here.component "mainPage" cpt where
        -> (Unit -> Effect Unit)
      deleteTile tile listBox = const do
        list <- T.read listBox
-        newList <- pure $ filter (_ # tile.id # findTile # not) list
+        newList <- pure $ filter (not $ findTile $ tile.id) list
        T.write_ newList listBox
    let hasHorizontalTiles = not $ eq 0 $ length tileAxisXList

--- a/src/Gargantext/Config/REST.purs
+++ b/src/Gargantext/Config/REST.purs
 module Gargantext.Config.REST where
-import Affjax (Error(..), defaultRequest, request)
+import Affjax.Web (Error(..), defaultRequest, request)
 import Affjax as Affjax
 import Affjax.RequestBody (formData, formURLEncoded, string)
 import Affjax.RequestHeader as ARH

--- a/src/Gargantext/Core/NgramsTable/Functions.purs
+++ b/src/Gargantext/Core/NgramsTable/Functions.purs
--- a/src/Gargantext/Core/NgramsTable/Types.purs
+++ b/src/Gargantext/Core/NgramsTable/Types.purs
@@ -23,7 +23,6 @@ import Data.Show.Generic (genericShow)
 import Data.Set (Set)
 import Data.Set as Set
 import Data.String.Regex (Regex, regex, replace) as R
-import Data.Symbol (SProxy(..))
 import Data.Tuple (Tuple(..))
 import Effect (Effect)
 import Effect.Aff (Aff)
@@ -36,6 +35,7 @@ import Gargantext.Sessions (Session)
 import Gargantext.Types as GT
 import Simple.JSON as JSON
 import Reactix as R
+import Type.Proxy (Proxy(..))
 type Endo a = a -> a
@@ -276,28 +276,28 @@ instance JSON.WriteForeign NgramsElement where
    JSON.writeImpl $ ne { children = Set.toUnfoldable ne.children :: Array _ }
 _parent :: forall parent row. Lens' { parent :: parent | row } parent
-_parent = prop (SProxy :: SProxy "parent")
+_parent = prop (Proxy :: Proxy "parent")
 _root :: forall root row. Lens' { root :: root | row } root
-_root   = prop (SProxy :: SProxy "root")
+_root   = prop (Proxy :: Proxy "root")
 _ngrams :: forall row. Lens' { ngrams :: NgramsTerm | row } NgramsTerm
-_ngrams = prop (SProxy :: SProxy "ngrams")
+_ngrams = prop (Proxy :: Proxy "ngrams")
 _children :: forall row. Lens' { children :: Set NgramsTerm | row } (Set NgramsTerm)
-_children = prop (SProxy :: SProxy "children")
+_children = prop (Proxy :: Proxy "children")
 _occurrences :: forall row. Lens' { occurrences :: Int | row } Int
-_occurrences = prop (SProxy :: SProxy "occurrences")
+_occurrences = prop (Proxy :: Proxy "occurrences")
 _list :: forall a row. Lens' { list :: a | row } a
-_list = prop (SProxy :: SProxy "list")
+_list = prop (Proxy :: Proxy "list")
 _ngrams_repo_elements :: forall a row. Lens' { ngrams_repo_elements :: a | row } a
-_ngrams_repo_elements = prop (SProxy :: SProxy "ngrams_repo_elements")
+_ngrams_repo_elements = prop (Proxy :: Proxy "ngrams_repo_elements")
 _ngrams_scores :: forall a row. Lens' { ngrams_scores :: a | row } a
-_ngrams_scores = prop (SProxy :: SProxy "ngrams_scores")
+_ngrams_scores = prop (Proxy :: Proxy "ngrams_scores")
 _NgramsElement  :: Iso' NgramsElement {
    children    :: Set NgramsTerm

--- a/src/Gargantext/Data/Louvain.js
+++ b/src/Gargantext/Data/Louvain.js
@@ -6,7 +6,7 @@ community detection algorithm (http://arxiv.org/abs/0803.0476)
 Based on https://bitbucket.org/taynaud/python-louvain/overview
 */
-exports._jLouvain = (function(){
+export const _jLouvain = (function(){
        return function(){
                //Constants
                var __PASS_MAX = -1
@@ -381,6 +381,6 @@ exports._jLouvain = (function(){
        }
 })();
-exports._init = function(louvain, nodes, edges) {
+export function _init(louvain, nodes, edges) {
        return Object.entries(louvain.nodes(nodes).edges(edges)());
 }
--- a/src/Gargantext/Hooks/FormValidation/Methods.purs
+++ b/src/Gargantext/Hooks/FormValidation/Methods.purs
@@ -96,8 +96,8 @@ useFormValidation = do
  result   /\ resultBox   <- R2.useBox' (V (Right mempty) :: VForm)
  memoHasError  <- R.useMemo1 result $ const $ hasError result
-  memoHasError' <- R.useMemo1 result $ const $ (_ # result # hasError')
+  memoHasError' <- R.useMemo1 result $ const $ hasError' result
-  memoHasError_ <- R.useMemo1 result $ const $ (_ # result # hasError_)
+  memoHasError_ <- R.useMemo1 result $ const $ hasError_ result
  pure
    { tryCount

--- a/src/Gargantext/Hooks/FormValidation/Types.js
+++ b/src/Gargantext/Hooks/FormValidation/Types.js
@@ -7,10 +7,10 @@
 *  @link https://gist.github.com/gregseth/5582254 [2]
 *  @type {RegExp}
 */
- exports.emailPattern = /[a-z0-9!#$%&'*+/=?^_`{|}~-]+(?:\.[a-z0-9!#$%&'*+/=?^_`{|}~-]+)*@(?:[a-z0-9](?:[a-z0-9-]*[a-z0-9])?\.)+[a-z0-9](?:[a-z0-9-]*[a-z0-9])?/;
+ export const emailPattern = /[a-z0-9!#$%&'*+/=?^_`{|}~-]+(?:\.[a-z0-9!#$%&'*+/=?^_`{|}~-]+)*@(?:[a-z0-9](?:[a-z0-9-]*[a-z0-9])?\.)+[a-z0-9](?:[a-z0-9-]*[a-z0-9])?/;
 /**
 *  Date Pattern
 *  @link https://www.regextester.com/96683
 *  @type {RegExp}
 */
-exports.datePattern = /([12]\d{3}-(0[1-9]|1[0-2])-(0[1-9]|[12]\d|3[01]))/
+export const datePattern = /([12]\d{3}-(0[1-9]|1[0-2])-(0[1-9]|[12]\d|3[01]))/;
--- a/src/Gargantext/Hooks/LinkHandler.purs
+++ b/src/Gargantext/Hooks/LinkHandler.purs
@@ -72,7 +72,7 @@ changeTileRoute tileAxisXList tileAxisYList tile newRoute = do
    findTile id tile' = eq id $ get (Proxy :: Proxy "id") tile'
    hasTile :: Array (Record Tile) -> UUID -> Maybe Int
-    hasTile list id = findIndex (_ # id # findTile) list
+    hasTile list id = findIndex (findTile id) list
    updateTile :: Int -> AppRoute -> Array (Record Tile) -> Array (Record Tile)
    updateTile index route list = modifyAtIndices

--- a/src/Gargantext/Hooks/Resize.js
+++ b/src/Gargantext/Hooks/Resize.js
 'use strict';
-exports._add = add;
-exports._remove = remove;
 /**
 * @function add
 * @param {Window} window
@@ -10,7 +8,7 @@ exports._remove = remove;
 * @param {String} targetQuery
 * @param {String} type
 */
-function add(window, document, sourceQuery, targetQuery, type) {
+export function _add(window, document, sourceQuery, targetQuery, type) {
  var source = document.querySelector(sourceQuery);
  var target = document.querySelector(targetQuery);
@@ -49,7 +47,7 @@ function add(window, document, sourceQuery, targetQuery, type) {
 * @param {Document} document
 * @param {String} sourceQuery
 */
-function remove(document, sourceQuery) {
+export function _remove(document, sourceQuery) {
  var source = document.querySelector(sourceQuery);
  console.log(sourceQuery)
  source.removeEventListener('mousedown');

--- a/src/Gargantext/Hooks/Scrollbar.js
+++ b/src/Gargantext/Hooks/Scrollbar.js
@@ -28,21 +28,17 @@ try {
 var wheelOpt = supportsPassive ? { passive: false } : false;
 var wheelEvent = 'onwheel' in document.createElement('div') ? 'wheel' : 'mousewheel';
-// call this to Disable
+export function disableScroll() {
-function disableScroll() {
+  // call this to Disable
  window.addEventListener('DOMMouseScroll', preventDefault, false); // older FF
  window.addEventListener(wheelEvent, preventDefault, wheelOpt); // modern desktop
  window.addEventListener('touchmove', preventDefault, wheelOpt); // mobile
  window.addEventListener('keydown', preventDefaultForScrollKeys, false);
 }
+export function enableScroll() {
-// call this to Enable
+  // call this to Enable
-function enableScroll() {
  window.removeEventListener('DOMMouseScroll', preventDefault, false);
  window.removeEventListener(wheelEvent, preventDefault, wheelOpt);
  window.removeEventListener('touchmove', preventDefault, wheelOpt);
  window.removeEventListener('keydown', preventDefaultForScrollKeys, false);
 }
-exports.disableScroll = disableScroll;
-exports.enableScroll = enableScroll;
--- a/src/Gargantext/Hooks/Sigmax/Sigma.js
+++ b/src/Gargantext/Hooks/Sigmax/Sigma.js
 'use strict';
-const sigma = require('sigma/src/garg.js').sigma;
+//import { sigma } from 'sigma/src/garg.js';
+import sigma from 'sigma';
+console.log('imported sigma', sigma);
 if (typeof window !== 'undefined') {
  window.sigma = sigma;
 }
-const CustomShapes = require('sigma/plugins/garg.js').init(sigma, window).customShapes;
+/*import('sigma/plugins/garg.js').then((module) => {
-require('sigma/src/utils/sigma.utils.js').init(sigma);
+  let CustomShapes = module.init(sigma, window).customShapes;
+  CustomShapes.init();
+  });
+  */
+//import('sigma/src/utils/sigma.utils.js').then((module) => { module.init(sigma) });
 // Black circle around a node
+/*
 (function() {
-  var originalDef = sigma.canvas.nodes.def;
+  let originalDef = sigma.canvas.nodes.def;
  sigma.canvas.nodes.def = (node, context, settings) => {
-    var prefix = settings('prefix') || '';
+    let prefix = settings('prefix') || '';
    originalDef(node, context, settings);
@@ -32,7 +40,9 @@ require('sigma/src/utils/sigma.utils.js').init(sigma);
    context.stroke();
  }
 })()
+*/
+/*
 sigma.canvas.nodes.selected = (node, context, settings) => {
  // hack
  // We need to temporarily set node.type to 'def'. This is for 2 reasons
@@ -43,16 +53,18 @@ sigma.canvas.nodes.selected = (node, context, settings) => {
  sigma.canvas.hovers.def(node, context, settings);
  node.type = 'selected';
  //console.log('hovers, settings:', settings);
-};
+  };
+*/
-CustomShapes.init();
+//CustomShapes.init();
-let sigmaMouseSelector = (sigma, options) => {
+/*
+let sigmaMouseSelector = function(sigma, options) {
  sigma.plugins = sigma.plugins || {};
  sigma.plugins.mouseSelector = (s, renderer) => {
-    var _self = this;
+    let _self = this;
-    var _offset = null;
+    let _offset = null;
    const _s = s;
    const _renderer = renderer;
    const _container = _renderer.container;
@@ -169,6 +181,7 @@ let sigmaMouseSelector = (sigma, options) => {
 }
 sigmaMouseSelector(sigma);
+*/
 function _sigma(left, right, opts) {
  try {
@@ -178,14 +191,14 @@ function _sigma(left, right, opts) {
  }
 }
-function addRenderer(left, right, sigma, renderer) {
+function _addRenderer(left, right, sigma, renderer) {
  try {
    return right(sigma.addRenderer(renderer));
  } catch(e) {
    return left(e);
  }
 }
-function bindMouseSelectorPlugin(left, right, sig) {
+function _bindMouseSelectorPlugin(left, right, sig) {
  try {
    return right(sigma.plugins.mouseSelector(sig, sig.renderers[0]));
  } catch(e) {
@@ -193,9 +206,9 @@ function bindMouseSelectorPlugin(left, right, sig) {
    return left(e);
  }
 }
-function bind(sigma, event, handler) { sigma.bind(event, handler); }
+function _bind(sigma, event, handler) { sigma.bind(event, handler); }
-function takeScreenshot(sigma) {
+function _takeScreenshot(sigma) {
  let c = sigma.renderers[0].container;
  let edges = c.getElementsByClassName('sigma-edges')[0];
  let scene = c.getElementsByClassName('sigma-scene')[0];
@@ -209,26 +222,26 @@ function takeScreenshot(sigma) {
  return edges.toDataURL('image/png');
 }
-function getEdges(sigma) {
+function _getEdges(sigma) {
  return sigma.graph.edges();
 }
-function getNodes(sigma) {
+function _getNodes(sigma) {
  return sigma.graph.nodes();
 }
-function proxySetSettings(window, sigma, settings) {
+function _proxySetSettings(window, sigma, settings) {
  var id = sigma.id;
  window.sigma.instances(id).settings(settings);
  window.sigma.instances(id).refresh();
 }
-exports._sigma = _sigma;
+export { _sigma,
-exports._addRenderer = addRenderer;
+         _addRenderer,
-exports._bindMouseSelectorPlugin = bindMouseSelectorPlugin;
+         _bindMouseSelectorPlugin,
-exports._bind = bind;
+         _bind,
-exports._takeScreenshot = takeScreenshot;
+         _takeScreenshot,
-exports._getEdges = getEdges;
+         _getEdges,
-exports._getNodes = getNodes;
+         _getNodes,
-exports._proxySetSettings = proxySetSettings;
+         _proxySetSettings };
--- a/src/Gargantext/Hooks/Sigmax/Sigmajs.js
+++ b/src/Gargantext/Hooks/Sigmax/Sigmajs.js
 'use strict';
-exports.goToImpl = function(cam) {
+export function goToImpl(cam) {
  return function(props) {
    return cam.goTo(props);
  };

--- a/src/Gargantext/Hooks/StateRecord/Unboxed.purs
+++ b/src/Gargantext/Hooks/StateRecord/Unboxed.purs
@@ -78,6 +78,6 @@ main stateBox = do
  pure
    { state
    , stateBox
-    , setStateKey : (_ # stateBox # setter)
+    , setStateKey : setter stateBox -- (_ # stateBox # setter)
-    , bindStateKey: (_ # stateBox # binder $ state)
+    , bindStateKey: binder stateBox state -- (_ # stateBox # binder $ state)
    }
--- a/src/Gargantext/Hooks/Version.js
+++ b/src/Gargantext/Hooks/Version.js
 'use strict';
-const pkg = require('../../package.json');
+import pkg from '../../package.json';
-exports.version = pkg.version;
+let version = pkg.version
+export { version };
--- a/src/Gargantext/Text/BreakWords.js
+++ b/src/Gargantext/Text/BreakWords.js
 'use strict';
-exports._wordRegex = /[a-z]+/gi;
+export _wordRegex = /[a-z]+/gi;
--- a/src/Gargantext/Text/BreakWords.purs
+++ b/src/Gargantext/Text/BreakWords.purs
@@ -45,12 +45,12 @@ preceding :: Breaking -> Int -> String -> Maybe String
 preceding b origin word = p $ (lastIndex b) - (length word)
  where p o
          | o == origin = Nothing
-          | otherwise = slice origin o b.source
+          | otherwise = Just $ slice origin o b.source
 finish :: Breaking -> Int -> Effect Boolean
-finish b origin =
+finish b origin = do
-  do let last = slice origin (-1) b.source
+  let last = slice origin (-1) b.source :: String
-     traverse_ (pushSpace b) last
+  pushSpace b last
  pure false
 type Breaking = { source :: String, wordRegex :: Regex, results :: Array BrokenWord }
@@ -78,4 +78,3 @@ pushWord :: Breaking -> String -> Effect Unit
 pushWord b = pushResult b <<< Word
 foreign import _wordRegex :: Regex
--- a/src/Gargantext/Utils.purs
+++ b/src/Gargantext/Utils.purs
@@ -128,5 +128,5 @@ textEllipsisBreak :: Int -> String -> String
 textEllipsisBreak len n =
  if S.length n < len then n
  else case (slice 0 len n) of
-    Nothing -> "???"
+    "" -> "???"
-    Just s  -> s <> "…"
+    s  -> s <> "…"
--- a/src/Gargantext/Utils/Argonaut.purs
+++ b/src/Gargantext/Utils/Argonaut.purs
@@ -8,7 +8,8 @@ import Data.Argonaut as Argonaut
 import Data.Argonaut.Decode.Error (JsonDecodeError(..))
 import Data.Either (Either(..))
 import Data.Generic.Rep as GR
-import Data.Symbol (class IsSymbol, SProxy(..), reflectSymbol)
+import Data.Symbol (class IsSymbol, reflectSymbol)
+import Type.Proxy (Proxy(..))
 -- | Provide a generic sum JSON decoding for sum types deriving Generic
 genericSumDecodeJson
@@ -51,7 +52,7 @@ instance
  genericSumDecodeJsonRep f = do
    -- here we attempt to read the following json:
    -- { "ConstructorName": argument }
-    let name = reflectSymbol (SProxy :: _ name)
+    let name = reflectSymbol (Proxy :: _ name)
    obj <- Argonaut.decodeJson f
    inner <- Argonaut.getField obj name
    argument <- genericSumDecodeJsonRep inner
@@ -81,7 +82,7 @@ instance
  genericSumEncodeJsonRep (GR.Constructor inner) = do
    -- here we attempt to write the following json:
    -- { "ConstructorName": argument }
-    let name = reflectSymbol (SProxy :: _ name)
+    let name = reflectSymbol (Proxy :: _ name)
    let argument = genericSumEncodeJsonRep inner
    Argonaut.jsonSingletonObject name argument
@@ -123,7 +124,7 @@ instance
       then pure $ GR.Constructor GR.NoArguments
       else Left $ Named s $ TypeMismatch $ "Enum did not match expected string " <> name
    where
-      name = reflectSymbol (SProxy :: SProxy name)
+      name = reflectSymbol (Proxy :: Proxy name)
 genericEnumEncodeJson :: forall a rep
   . GR.Generic a rep
@@ -147,4 +148,4 @@ instance
 instance
  ( IsSymbol name
  ) => GenericEnumEncodeJson (GR.Constructor name GR.NoArguments) where
-  genericEnumEncodeJsonRep _ = Argonaut.encodeJson $ reflectSymbol (SProxy :: SProxy name)
+  genericEnumEncodeJsonRep _ = Argonaut.encodeJson $ reflectSymbol (Proxy :: Proxy name)
--- a/src/Gargantext/Utils/Array.js
+++ b/src/Gargantext/Utils/Array.js
-function _push(a, i) {
+export function _push(a, i) {
  a.push(i);
 }
-exports._push = _push;
--- a/src/Gargantext/Utils/Array.purs
+++ b/src/Gargantext/Utils/Array.purs
@@ -36,4 +36,4 @@ min xs = foldr reducer (A.head xs) xs
 range :: Int -> Int -> Int -> Array Int
 range start end step = map (\i -> start + i*step) $ A.range 0 end'
  where
-    end' = DI.round $ DI.floor $ (DI.toNumber $ end - start) / (DI.toNumber step)
+    end' = DI.floor $ (DI.toNumber $ end - start) / (DI.toNumber step)
--- a/src/Gargantext/Utils/ArrayBuffer.js
+++ b/src/Gargantext/Utils/ArrayBuffer.js
@@ -2,7 +2,7 @@
 // https://stackoverflow.com/a/9458996
 // This is because base64-codec/Data.Base64.encodeBase64 was too slow
-exports.arrayBufferToBase64Impl = function(buffer) {
+export function arrayBufferToBase64Impl(buffer) {
    var binary = '';
    var bytes = new Uint8Array( buffer );
    var len = bytes.byteLength;

--- a/src/Gargantext/Utils/BootstrapNative.js
+++ b/src/Gargantext/Utils/BootstrapNative.js
 "use strict";
-exports.createDropdown = function(iid) {
+export function createDropdown(iid) {
    var el = document.getElementById(iid);
    if (!window.Dropdown) return;

--- a/src/Gargantext/Utils/CacheAPI.js
+++ b/src/Gargantext/Utils/CacheAPI.js
-exports._makeRequest = function(url) {
+export function _makeRequest(url) {
    return function(options) {
        return new Request(url, options);
    }
 }
-exports._openCache = function(cacheName) {
+export function _openCache(cacheName) {
    return function() {
        return window.caches.open(cacheName);
    }
 }
-exports._delete = function(cacheName) {
+export function _delete(cacheName) {
    return function() {
        return caches.delete(cacheName);
    }
 }
-exports._deleteReq = function(cache) {
+export function _deleteReq(cache) {
    return function(req) {
        return function() {
            return cache.delete(req);
@@ -24,7 +24,7 @@ exports._deleteReq = function(cache) {
    }
 }
-exports._add = function(cache) {
+export function _add(cache) {
    return function(req) {
        return function() {
            return cache.add(req);
@@ -32,7 +32,7 @@ exports._add = function(cache) {
    }
 }
-exports._match = function(cache) {
+export function _match(cache) {
    return function(req) {
        return function() {
            return cache.match(req);
@@ -40,7 +40,7 @@ exports._match = function(cache) {
    }
 }
-exports._fetch = function(req) {
+export function _fetch(req) {
    return function() {
        return fetch(req);
    }

--- a/src/Gargantext/Utils/Console.js
+++ b/src/Gargantext/Utils/Console.js
@@ -3,6 +3,6 @@
 * Get Creation Date
 * @return {string}
 */
-exports.getCreationDate = function() {
+export function getCreationDate() {
  return new Date().toLocaleTimeString()
 }
--- a/src/Gargantext/Utils/Crypto.purs
+++ b/src/Gargantext/Utils/Crypto.purs
@@ -34,5 +34,3 @@ instance IsHashable (Set String) where
      concat :: Array Hash -> String
      concat = Array.foldl (<>) ""
--- a/src/Gargantext/Utils/Debug.js
+++ b/src/Gargantext/Utils/Debug.js
-function _debugger(a) {
+export function _debugger(a) {
  debugger;
 }
-exports._debugger = _debugger;
--- a/src/Gargantext/Utils/EtherCalc.purs
+++ b/src/Gargantext/Utils/EtherCalc.purs
 module Gargantext.Utils.EtherCalc where
-import Affjax (Error, Response, defaultRequest, request)
+import Affjax.Web (Error, Response, defaultRequest, request)
 import Affjax.ResponseFormat as ResponseFormat
 import Data.Either (Either(..))
 import Data.HTTP.Method (Method(GET))
@@ -17,4 +17,3 @@ downloadCSV base nodeId = do
            , responseFormat = ResponseFormat.string
            , method = Left GET }
  request req
--- a/src/Gargantext/Utils/HighlightJS.js
+++ b/src/Gargantext/Utils/HighlightJS.js
 'use strict';
-const hljs = require('highlightjs/highlight.pack.min.js');
+import * as hljs from 'highlightjs/highlight.pack.min.js';
-function highlightBlock(el) {
+export function _highlightBlock(el) {
    hljs.highlightBlock(el);
 }
-exports._highlightBlock = highlightBlock;
--- a/src/Gargantext/Utils/JitsiMeet.js
+++ b/src/Gargantext/Utils/JitsiMeet.js
 'use strict';
-var API = require('../../src/external-deps/JitsiMeetAPI.js');
+import API from '../../src/external-deps/JitsiMeetAPI.js';
 // console.log('API', API);
-exports._api = API;
+export { API as _api };
-exports._jitsiMeetAPI = function(host, options) {
+export function _jitsiMeetAPI(host, options) {
    return new API(host, options);
 };
--- a/src/Gargantext/Utils/KarpRabin.purs
+++ b/src/Gargantext/Utils/KarpRabin.purs
@@ -26,6 +26,7 @@ module Gargantext.Utils.KarpRabin ( -- * Overview
 import Data.Array as A
 import Data.Enum (fromEnum)
 import Data.Foldable (class Foldable, minimum, foldl)
+import Data.FunctorWithIndex (mapWithIndex)
 import Data.Int (quot)
 import Data.List as L
 import Data.Map as M
@@ -139,7 +140,7 @@ strictMatcher pats = unsafePartial search
        <<< S.take hLen
    hashMap =
      M.fromFoldableWith (flip (<>))
-                         (A.mapWithIndex (\i a -> Tuple (hash a) [i]) pats)
+                         (mapWithIndex (\i a -> Tuple (hash a) [i]) pats)
    search :: Partial => String -> Array (Tuple Int (Array Int))
    search str = if strLen < hLen then []
                                  else A.fromFoldable (go 0 shash)

--- a/src/Gargantext/Utils/Popover.js
+++ b/src/Gargantext/Utils/Popover.js
 'use strict';
-const popover = require('react-awesome-popover');
+import popover from 'react-awesome-popover';
 if (typeof window !== 'undefined') {
    window.Popover = popover;
 }
-exports.popoverCpt = popover;
+export { popover as popoverCpt };
-exports._setState = function(el, val) {
+export function _setState(el, val) {
    el.setState(val);
 }
--- a/src/Gargantext/Utils/Range.purs
+++ b/src/Gargantext/Utils/Range.purs
@@ -45,4 +45,3 @@ withMin (Closed {max}) min = Closed { min, max }
 -- | Updates the maximum value in a closed range
 withMax :: forall t. Closed t -> t -> Closed t
 withMax (Closed {min}) max = Closed { min, max }
--- a/src/Gargantext/Utils/ReactBootstrap.js
+++ b/src/Gargantext/Utils/ReactBootstrap.js
 'use strict';
-const ReactBootstrap = require('react-bootstrap');
+import * as ReactBootstrap from 'react-bootstrap';
 if (typeof window !== 'undefined') {
  window.ReactBootstrap = ReactBootstrap;
 }
-const Alert = require('react-bootstrap/Alert');
+import * as Alert from 'react-bootstrap/Alert';
-const OverlayTrigger = require('react-bootstrap/OverlayTrigger');
+import * as OverlayTrigger from 'react-bootstrap/OverlayTrigger';
-const Popover = require('react-bootstrap/Popover');
+import * as Popover from 'react-bootstrap/Popover';
-exports.alertCpt = Alert;
+let Content = Popover.Content;
-exports.overlayTriggerCpt = OverlayTrigger;
+let Title = Popover.Title;
-exports.popoverCpt = Popover;
-exports.popoverContentCpt = Popover.Content;
+export { Alert as alertCpt,
-exports.popoverTitleCpt = Popover.Title;
+         OverlayTrigger as overlayTriggerCpt,
+         Popover as popoverCpt,
+         Content as popoverContentCpt,
+         Title as popoverTitleCpt };
--- a/src/Gargantext/Utils/Reactix.js
+++ b/src/Gargantext/Utils/Reactix.js
 'use strict';
-function addRootElement(rootElem) {
+export function _addRootElement(rootElem) {
    document.body.insertBefore(
        rootElem,
        document.body.lastElementChild.nextElementSibling
    );
 }
-function getSelection(_u) {
+export function _getSelection(_u) {
    return window.getSelection();
 }
-function stringify(j, indent) {
+export function _stringify(j, indent) {
    return JSON.stringify(j, null, indent);
 }
-function postMessage(obj, msg, src) {
+export function _postMessage(obj, msg, src) {
    obj.contentWindow.postMessage(msg, src);
 }
-function setCookie(c) {
+export function _setCookie(c) {
    document.cookie = c;
 }
-function domRectFromRect(obj) {
+export function _domRectFromRect(obj) {
    return DOMRectReadOnly.fromRect(obj)
 }
-function preventDefault(e) {
+export function _preventDefault(e) {
    return e.preventDefault();
 }
-function stopPropagation(e) {
+export function _stopPropagation(e) {
    return e.stopPropagation();
 }
-function blur(el) {
+export function _blur(el) {
    return el.blur();
 }
-function triggerEvent(el, evtType) {
+export function _triggerEvent(el, evtType) {
  // https://stackoverflow.com/questions/8789423/trigger-onchange-event
  var event = new UIEvent(evtType, {
    view: window,
@@ -49,18 +49,7 @@ function triggerEvent(el, evtType) {
  el.dispatchEvent(event);
 }
-exports._addRootElement = addRootElement;
+export function _keyCode(e) {
-exports._getSelection = getSelection;
-exports._stringify = stringify;
-exports._postMessage = postMessage;
-exports._setCookie = setCookie;
-exports._domRectFromRect = domRectFromRect;
-exports._preventDefault = preventDefault;
-exports._stopPropagation = stopPropagation;
-exports._blur = blur;
-exports._keyCode = function(e) {
    // https://www.w3schools.com/jsref/event_key_keycode.asp
    return e.which || e.keyCode;
 }
-exports._triggerEvent = triggerEvent;
--- a/src/Gargantext/Utils/Regex.js
+++ b/src/Gargantext/Utils/Regex.js
-function _cloneRegex(r) {
+export function _cloneRegex(r) {
  return new RegExp(r.source, r.flags);
 }
-function _getRegexLastIndex(r) {
+export function _getRegexLastIndex(r) {
  return r.lastIndex;
 }
-function _execRegex(r, s) {
+export function _execRegex(r, s) {
  return r.exec(s);
 }
-exports._cloneRegex = _cloneRegex;
-exports._getRegexLastIndex = _getRegexLastIndex;
-exports._execRegex = _execRegex;
--- a/src/Gargantext/Utils/Selection.js
+++ b/src/Gargantext/Utils/Selection.js
-exports._getSelection = function() { return window.getSelection() || null; };
+export function _getSelection() {
+  return window.getSelection() || null;
+};
--- a/src/Gargantext/Utils/SimpleJSON.purs
+++ b/src/Gargantext/Utils/SimpleJSON.purs
@@ -11,7 +11,8 @@ import Foreign (Foreign, ForeignError(..), fail)
 import Foreign as Foreign
 import Foreign.Object as FO
 import Simple.JSON as JSON
-import Type.Prelude (class IsSymbol, SProxy(..), reflectSymbol)
+import Type.Prelude (class IsSymbol, reflectSymbol)
+import Type.Proxy (Proxy(..))
 taggedSumRep :: forall a rep
   . GR.Generic a rep
@@ -51,7 +52,7 @@ instance ( GenericTaggedSumRep a
         then withExcept (map $ ErrorAtProperty name) $ GR.Constructor <$> (genericTaggedSumRep $ Foreign.unsafeToForeign obj)
         else fail $ ForeignError $ "Wrong type tag " <> n' <> " where " <> name <> " was expected."
    where
-      nameP = SProxy :: SProxy name
+      nameP = Proxy :: Proxy name
      name = reflectSymbol nameP
 instance ( JSON.ReadForeign a

--- a/src/Gargantext/Utils/String.js
+++ b/src/Gargantext/Utils/String.js
-exports._btoa = function(s) {
+export function _btoa(s) {
    return btoa(unescape(encodeURIComponent(s)));
 }
--- a/yarn.lock
+++ b/yarn.lock