Reformat project using purty

Author: paluh

src/Main.purs

@@ -1,4 +1,5 @@
 module WebRow.Main where
+
 -- 
 -- import Prelude
 -- 

src/WebRow/Applets/Auth.purs

@@ -3,11 +3,9 @@ module WebRow.Applets.Auth
   , localRouter
   , router
   , withUserRequired
-  )
-  where
+  ) where
 
 import Prelude
-
 import Data.Maybe (Maybe(..))
 import Data.Tuple (Tuple(..))
 import Data.Variant (Variant, inj, on)
@@ -32,79 +30,83 @@ import WebRow.Routing (printRoute) as Routing
 import WebRow.Session (delete, fetch, modify) as Session
 import WebRow.Types (WebRow)
 
-type AuthRow messages routes session user eff =
-  ( WebRow
-    ( authFailed ∷ AuthPayload
-    , invalidEmailFormat ∷ String
-    , missingValue ∷ Unit
-    | messages
+type AuthRow messages routes session user eff
+  = ( WebRow
+        ( authFailed ∷ AuthPayload
+        , invalidEmailFormat ∷ String
+        , missingValue ∷ Unit
+        | messages
+        )
+        { user ∷ Maybe (User user) | session }
+        (RouteRow + routes)
+        + Auth user
+        + eff
     )
-    { user ∷ Maybe (User user) | session }
-    (RouteRow + routes)
-  + Auth user
-  + eff
-  )
 
-router
-  :: ∀ eff messages responses routes routes' session user
-  . ( Variant routes
-    → Run
+router ::
+  ∀ eff messages responses routes routes' session user.
+  ( Variant routes →
+    Run
       (AuthRow messages routes' session user + eff)
       (Variant (ResponseRow + responses))
-    )
-  → Variant (RouteRow + routes)
-  → Run
+  ) →
+  Variant (RouteRow + routes) →
+  Run
     (AuthRow messages routes' session user + eff)
     (Variant (ResponseRow + responses))
 router = on _auth (map (inj _auth) <$> localRouter)
 
-localRouter
-  ∷ ∀ eff messages routes session user
-  . Route
-  → Run (AuthRow messages routes session user eff) Response
+localRouter ∷
+  ∀ eff messages routes session user.
+  Route →
+  Run (AuthRow messages routes session user eff) Response
 localRouter = case _ of
   Routes.Login → login
   Routes.Logout → logout
 
-login
-  ∷ ∀ eff messages routes session user
-  . Run (AuthRow messages routes session user + eff) Response
-login = method >>= case _ of
-  HTTPure.Post → do
-    body ← fromBody
-    Forms.Uni.validate loginForm body >>= case _ of
-      Tuple Nothing formLayout → do
-        pure $ LoginResponse (LoginFormValidationFailed formLayout)
-      Tuple (Just user) formLayout → do
-        Session.modify _{ user = Just user }
-        pure $ LoginResponse LoginSuccess
-  HTTPure.Get → do
-    form ← Forms.Uni.default loginForm
-    pure $ LoginResponse (InitialEmailPassordForm form)
-  method → methodNotAllowed'
+login ∷
+  ∀ eff messages routes session user.
+  Run (AuthRow messages routes session user + eff) Response
+login =
+  method
+    >>= case _ of
+        HTTPure.Post → do
+          body ← fromBody
+          Forms.Uni.validate loginForm body
+            >>= case _ of
+                Tuple Nothing formLayout → do
+                  pure $ LoginResponse (LoginFormValidationFailed formLayout)
+                Tuple (Just user) formLayout → do
+                  Session.modify _ { user = Just user }
+                  pure $ LoginResponse LoginSuccess
+        HTTPure.Get → do
+          form ← Forms.Uni.default loginForm
+          pure $ LoginResponse (InitialEmailPassordForm form)
+        method → methodNotAllowed'
 
-logout
-  ∷ ∀ eff messages routes session user
-  . Run
+logout ∷
+  ∀ eff messages routes session user.
+  Run
     ( AuthRow
-      messages
-      routes
-      session
-      user
-    + eff
+        messages
+        routes
+        session
+        user
+        + eff
     )
     Response
 logout = do
   void $ Session.delete
   pure $ LogoutResponse
 
-withUserRequired ∷ ∀ a eff messages routes session user
-  . (User user → Run (AuthRow messages routes session user + eff) a)
-  → Run (AuthRow messages routes session user + eff) a
-withUserRequired f = Session.fetch >>= _.user >>> case _ of
-  Just user → f user
-  Nothing → do
-    relativeUrl ← Routing.printRoute (namespace Routes.Login)
-    redirect (fromRelativeUrl relativeUrl)
-
-
+withUserRequired ∷
+  ∀ a eff messages routes session user.
+  (User user → Run (AuthRow messages routes session user + eff) a) →
+  Run (AuthRow messages routes session user + eff) a
+withUserRequired f =
+  Session.fetch >>= _.user
+    >>> case _ of
+        Just user → f user
+        Nothing → do
+          relativeUrl ← Routing.printRoute (namespace Routes.Login)
+          redirect (fromRelativeUrl relativeUrl)

src/WebRow/Applets/Auth/Effects.purs

@@ -1,7 +1,6 @@
 module WebRow.Applets.Auth.Effects where
 
 import Prelude
-
 import Data.Maybe (Maybe)
 import Run (FProxy, Run)
 import Run (lift) as Run
@@ -13,20 +12,22 @@ data AuthF user a
 
 derive instance functorAuthF ∷ Functor (AuthF user)
 
-type AUTH user = FProxy (AuthF user)
+type AUTH user
+  = FProxy (AuthF user)
 
-type Auth user r = (auth ∷ AUTH user | r)
+type Auth user r
+  = ( auth ∷ AUTH user | r )
 
-type User user = { email ∷ Email | user }
+type User user
+  = { email ∷ Email | user }
 
-authenticate
-  ∷ ∀ eff user
-  . Email
-  → Password
-  → Run ( auth ∷ AUTH user | eff ) (Maybe (User user))
+authenticate ∷
+  ∀ eff user.
+  Email →
+  Password →
+  Run ( auth ∷ AUTH user | eff ) (Maybe (User user))
 authenticate email password = Run.lift _auth (Authenticate email password identity)
 
-
 -- data AuthF user a
 --   = CurrentUser (Maybe (User user) → a)
 --   | CheckPassword Email Password (Boolean → a)
@@ -40,4 +41,3 @@ authenticate email password = Run.lift _auth (Authenticate email password identi
 -- 
 -- checkPassword ∷ ∀ eff user. Email → Password → Run ( auth ∷ AUTH user | eff ) Boolean
 -- checkPassword email password = Run.lift _auth (CheckPassword email password identity)
-

src/WebRow/Applets/Auth/Forms.purs

@@ -1,7 +1,6 @@
 module WebRow.Applets.Auth.Forms where
 
 import Prelude
-
 import Data.Either (note)
 import Data.Validation.Semigroup (V(..))
 import Polyform.Batteries (error) as Batteries
@@ -20,37 +19,47 @@ import WebRow.Mailer (Email)
 
 _authFailed = SProxy ∷ SProxy "authFailed"
 
-type Widgets = (TextInput + ())
-type LoginLayout = Forms.Layout Widgets
+type Widgets
+  = (TextInput + ())
+
+type LoginLayout
+  = Forms.Layout Widgets
 
-type AuthPayload = { email ∷ Email, password ∷ Password }
-type AuthFailed r = (authFailed ∷ AuthPayload | r)
+type AuthPayload
+  = { email ∷ Email, password ∷ Password }
 
-loginForm :: forall eff errs user.
+type AuthFailed r
+  = ( authFailed ∷ AuthPayload | r )
+
+loginForm ::
+  forall eff errs user.
   Forms.Uni
     (Effects.Auth user + eff)
     (AuthFailed + InvalidEmailFormat + MissingValue + errs)
     (TextInput + ())
     (User user)
-loginForm = Uni.build
-  $ autheticateBuilder
-  <<< ({ email: _, password: _ } <$> emailFormBuilder <*> passwordFormBuilder)
+loginForm =
+  Uni.build
+    $ autheticateBuilder
+    <<< ({ email: _, password: _ } <$> emailFormBuilder <*> passwordFormBuilder)
   where
-    autheticateBuilder
-      ∷ ∀ errs' widgets'
-      . Uni.Builder
-          (Effects.Auth user + eff)
-          (AuthFailed + errs')
-          widgets'
-          AuthPayload
-          (User user)
-    autheticateBuilder = Uni.sectionValidator $ Validator.liftFnMV \r → ado
-      res ← Effects.authenticate r.email r.password
-      in
-        V (note (Batteries.error _authFailed r) res)
-
-    passwordFormBuilder = Password <$> Uni.passwordInputBuilder
-      { name: "password", policy: identity }
-
-    emailFormBuilder = Uni.emailInputBuilder { name: "email" }
+  autheticateBuilder ∷
+    ∀ errs' widgets'.
+    Uni.Builder
+      (Effects.Auth user + eff)
+      (AuthFailed + errs')
+      widgets'
+      AuthPayload
+      (User user)
+  autheticateBuilder =
+    Uni.sectionValidator
+      $ Validator.liftFnMV \r → ado
+          res ← Effects.authenticate r.email r.password
+          in V (note (Batteries.error _authFailed r) res)
+
+  passwordFormBuilder =
+    Password
+      <$> Uni.passwordInputBuilder
+          { name: "password", policy: identity }
 
+  emailFormBuilder = Uni.emailInputBuilder { name: "email" }

src/WebRow/Applets/Auth/Interpret.purs

@@ -2,5 +2,5 @@ module WebRow.Auth.Interpret where
 
 import WebRow.Applets.Auth.Effects (User) as Effects
 
-type User = Effects.User ()
-
+type User
+  = Effects.User ()

src/WebRow/Applets/Auth/Interpret/Dummy.purs

@@ -1,28 +1,26 @@
 module WebRow.Auth.Interpret.Dummy where
 
 import Prelude
-
 import Data.Maybe (Maybe(..))
 import Effect.Random (random)
 import Run (EFFECT, Run, liftEffect)
 import Run (interpret, on, send) as Run
 import WebRow.Applets.Auth.Effects (AUTH, AuthF(..))
 import WebRow.Applets.Auth.Types (_auth)
 
-interpret
-  ∷ ∀ eff
-  . Run
+interpret ∷
+  ∀ eff.
+  Run
     ( effect ∷ EFFECT
     , auth ∷ AUTH ()
     | eff
     )
-   ~> Run (effect ∷ EFFECT | eff)
+    ~> Run ( effect ∷ EFFECT | eff )
 interpret = Run.interpret (Run.on _auth handler Run.send)
 
-handler
-  ∷ ∀ eff
-  . AuthF () ~> Run (effect ∷ EFFECT | eff)
+handler ∷
+  ∀ eff.
+  AuthF () ~> Run ( effect ∷ EFFECT | eff )
 handler (Authenticate email password next) = do
   v ← liftEffect random
   pure $ next (Just { email })
-

src/WebRow/Applets/Auth/Messages.purs

@@ -3,4 +3,5 @@ module WebRow.Applets.Auth.Messages where
 import Type.Row (type (+))
 import WebRow.Applets.Auth.Forms (AuthFailed)
 
-type Messages r = AuthFailed + r
+type Messages r
+  = AuthFailed + r

src/WebRow/Applets/Auth/Responses.purs

@@ -13,7 +13,8 @@ data Response
   = LoginResponse LoginResponse
   | LogoutResponse
 
-type ResponseRow responses = Namespace Response responses
+type ResponseRow responses
+  = Namespace Response responses
 
 -- response
 --   ∷ ∀ a eff res widgets
@@ -25,7 +26,6 @@ type ResponseRow responses = Namespace Response responses
 --   = ∀ res eff a widgets
 --   . (Forms.Layout widgets)
 --   → Run (response ∷ RESPONSE ( auth ∷ (Response widgets) | res ) | eff) a
-
 -- loginFormValidationFailed ∷ forall widgets. Response widgets
 -- loginFormValidationFailed = LoginResponse <<< LoginFormValidationFailed
 --