[COSMETICS] reading code.

src/AddCorpusview.purs

@@ -62,7 +62,10 @@ data Action
   | GO
 
 
-performAction :: forall eff props. PerformAction (console :: CONSOLE, ajax :: AJAX,dom::DOM | eff) State props Action
+performAction :: forall eff props. PerformAction ( console :: CONSOLE
+                                                 , ajax    :: AJAX
+                                                 , dom     :: DOM 
+                                                 | eff ) State props Action
 performAction NoOp _ _ = void do
   modifyState id
 

src/DocView.purs

@@ -62,8 +62,7 @@ newtype Response = Response
   }
 
 newtype Hyperdata = Hyperdata
-  {
-    title :: String
+  { title  :: String
   , source :: String
   }
 

src/Login.purs

@@ -153,16 +153,14 @@ getDeviseID ::  forall eff. Eff (dom :: DOM | eff) (Maybe String)
 getDeviseID = do
   w  <- window
   ls <- localStorage w
-  i <- getItem "token" ls
-  pure $  i
+  getItem "token" ls
 
 
 setToken :: forall e . String -> Eff (dom :: DOM | e) Unit
 setToken s = do
   w  <- window
   ls <- localStorage w
-  liftEff $ setItem "token" s ls
-  pure unit
+  setItem "token" s ls
 
 
 

src/Navigation.purs

@@ -286,7 +286,7 @@ sidebarnavSpec = simpleSpec performAction render
                             , placeholder "Query, URL or FILE (works with Firefox or Chromium browsers)"
                             , _type "text"
                             , style { height: "35px"
-                                    , width: "450px"
+                                    , width : "450px"
                                   --  , color: "white"
                                   --  , background : "#A1C2D8"
                                   }
@@ -355,15 +355,12 @@ dispatchAction dispatcher _ DocView = do
   _ <- dispatcher $ DocViewA $ DV.LoadData
   pure unit
 
-
 dispatchAction dispatcher _ SearchView = do
   _ <- dispatcher $ SetRoute $ SearchView
   _ <- dispatcher $ SearchA  $ S.NoOp
   pure unit
 
-
 dispatchAction dispatcher _ UserPage = do
   _ <- dispatcher $ SetRoute  $ UserPage
   _ <- dispatcher $ UserPageA $ UP.NoOp
   pure unit
-