[PRELUDE+DOC] about id

src/Gargantext/Components/Forest/Tree/Node/Action/CopyFrom.purs

@@ -16,7 +16,7 @@ import Reactix.DOM.HTML as H
 import URI.Extra.QueryPairs as QP
 import Web.File.FileReader.Aff (readAsText)
 
-import Gargantext.Prelude (class Show, Unit, bind, const, discard, map, pure, show, unit, void, ($), (&&), (/=), (<>))
+import Gargantext.Prelude (class Show, Unit, bind, const, discard, map, pure, show, unit, void, ($), (&&), (/=), (<>), id)
 
 import Gargantext.Components.Lang (readLang, Lang(..))
 import Gargantext.Components.Forest.Tree.Node.Action (Action(..), Props)
@@ -25,7 +25,6 @@ import Gargantext.Hooks.Loader (useLoader)
 import Gargantext.Routes as GR
 import Gargantext.Sessions (Session(..), postWwwUrlencoded, get)
 import Gargantext.Types as GT
-import Gargantext.Utils (id)
 import Gargantext.Utils.Reactix as R2
 
 

src/Gargantext/Components/Forest/Tree/Node/Action/Upload.purs

@@ -16,7 +16,7 @@ import Reactix.DOM.HTML as H
 import URI.Extra.QueryPairs as QP
 import Web.File.FileReader.Aff (readAsText)
 
-import Gargantext.Prelude (class Show, Unit, bind, const, discard, map, pure, show, unit, void, ($), (&&), (/=), (<>))
+import Gargantext.Prelude (class Show, Unit, bind, const, discard, map, pure, show, unit, void, ($), (&&), (/=), (<>), id)
 
 import Gargantext.Components.Lang (readLang, Lang(..))
 import Gargantext.Components.Forest.Tree.Node.Action (Action(..), Props, FileType(..), UploadFileContents(..))
@@ -25,7 +25,6 @@ import Gargantext.Hooks.Loader (useLoader)
 import Gargantext.Routes as GR
 import Gargantext.Sessions (Session(..), postWwwUrlencoded, get)
 import Gargantext.Types as GT
-import Gargantext.Utils (id)
 import Gargantext.Utils.Reactix as R2
 
 -- UploadFile Action

src/Gargantext/Components/Login.purs

@@ -208,8 +208,10 @@ formCpt = R.hooksComponent "G.C.Login.form" cpt where
 
 csrfTokenInput :: {} -> R.Element
 csrfTokenInput _ =
-  H.input { type: "hidden", name: "csrfmiddlewaretoken"
-          , value: csrfMiddlewareToken }-- TODO hard-coded CSRF token
+  H.input { type: "hidden"
+          , name: "csrfmiddlewaretoken"
+          , value: csrfMiddlewareToken
+          } -- TODO hard-coded CSRF token
 
 termsCheckbox :: R.State Boolean -> R.Element
 termsCheckbox setCheckBox =

src/Gargantext/Components/Search/Types.purs

@@ -12,14 +12,13 @@ import Effect.Aff (Aff)
 import URI.Extra.QueryPairs as QP
 import URI.Query as Q
 
-import Gargantext.Prelude (class Eq, class Ord, class Show, bind, map, pure, show, ($), (<>))
+import Gargantext.Prelude (id, class Eq, class Ord, class Show, bind, map, pure, show, ($), (<>))
 
 import Gargantext.Components.Lang
 import Gargantext.Ends (class ToUrl, backendUrl)
 import Gargantext.Routes as GR
 import Gargantext.Sessions (Session(..), post)
 import Gargantext.Types as GT
-import Gargantext.Utils (id)
 
 ------------------------------------------------------------------------
 class Doc a where

src/Gargantext/Prelude.purs

-module Gargantext.Prelude (module Prelude, logs)
+module Gargantext.Prelude (module Prelude, logs, id)
   where
 
 import Prelude (class Applicative, class Apply, class Bind, class BooleanAlgebra, class Bounded, class Category, class CommutativeRing, class Discard, class DivisionRing, class Eq, class EuclideanRing, class Field, class Functor, class HeytingAlgebra, class Monad, class Monoid, class Ord, class Ring, class Semigroup, class Semigroupoid, class Semiring, class Show, type (~>), Ordering(..), Unit, Void, absurd, add, ap, append, apply, between, bind, bottom, clamp, compare, comparing, compose, conj, const, degree, discard, disj, eq, flap, flip, gcd, identity, ifM, join, lcm, liftA1, liftM1, map, max, mempty, min, mod, mul, negate, not, notEq, one, otherwise, pure, recip, show, sub, top, unit, unless, unlessM, void, when, whenM, zero, (#), ($), ($>), (&&), (*), (*>), (+), (-), (/), (/=), (<), (<#>), (<$), (<$>), (<*), (<*>), (<<<), (<=), (<=<), (<>), (<@>), (=<<), (==), (>), (>=), (>=>), (>>=), (>>>), (||))
@@ -6,6 +6,15 @@ import Effect.Console (log)
 import Effect.Class (class MonadEffect, liftEffect)
 
 
+-- | JL: Astonishingly, not in the prelude
+--   AD: recent Preludes in Haskell much prefer identity
+--   then id can be used as a variable name (in records for instance)
+--   since records in Purescript are not the same as in Haskell
+--   this behavior is questionable indeed.
+id :: forall a. a -> a
+id a = a
+
+
 logs:: forall message effect.
        (MonadEffect effect)
        => Show message

src/Gargantext/Utils.purs

@@ -7,9 +7,9 @@ import Data.Set as Set
 import Data.Set (Set)
 import Data.String as S
 
--- | Astonishingly, not in the prelude
-id :: forall a. a -> a
-id a = a
+-- | TODO (hard coded)
+csrfMiddlewareToken :: String
+csrfMiddlewareToken = "Wy52D2nor8kC1r1Y4GrsrSIxQ2eqW8UwkdiQQshMoRwobzU4uldknRUhP0j4WcEM"
 
 setterv :: forall nt record field.
            Newtype nt record
@@ -45,9 +45,6 @@ invertOrdering LT = GT
 invertOrdering GT = LT
 invertOrdering EQ = EQ
 
-csrfMiddlewareToken :: String
-csrfMiddlewareToken = "Wy52D2nor8kC1r1Y4GrsrSIxQ2eqW8UwkdiQQshMoRwobzU4uldknRUhP0j4WcEM"
-
 -- A lens that always returns unit
 _unit :: forall s. Lens' s Unit
 _unit = lens (\_ -> unit) (\s _ -> s)