Get rid of redundant spaces in whitespace, #76.

GlideAngle · Sep 17, 2018 · 47653ea · 47653ea
1 parent b6af877
commit 47653ea
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 8 deletions.
diff --git a/www/view/FlareTiming/Comp.hs b/www/view/FlareTiming/Comp.hs
@@ -72,7 +72,7 @@ comp ns cs = do
                         dynText subtitle
                 elClass "div" "example" $ do
                     nominal n
-                
+
 nominal :: forall t (m :: * -> *).
         MonadWidget t m =>
         Dynamic t (Maybe (Int, Nominal)) -> m ()
@@ -100,7 +100,7 @@ nominal n = do
                             elClass "span" "tag is-primary" $ text $ T.pack goal)
 
     return ()
-                
+
 comps :: MonadWidget t m => m ()
 comps = do
     pb :: Event t () <- getPostBuild
@@ -119,7 +119,7 @@ getComps () = do
     let defReq = "http://localhost:3000/comps"
     let req md = XhrRequest "GET" (maybe defReq id md) def
     rsp <- performRequestAsync $ fmap req $ leftmost [ Nothing <$ pb ]
-        
+
     let es :: Event t [Comp] = fmapMaybe decodeXhrResponse rsp
     xs :: Dynamic t [Comp] <- holdDyn [] es
     let ys :: Dynamic t [(Int, Comp)] = fmap (zip [1 .. ]) xs
@@ -130,7 +130,7 @@ getNominals () = do
     let defReq = "http://localhost:3000/nominals"
     let req md = XhrRequest "GET" (maybe defReq id md) def
     rsp <- performRequestAsync $ fmap req $ leftmost [ Nothing <$ pb ]
-        
+
     let es :: Event t [Nominal] = fmapMaybe decodeXhrResponse rsp
     xs :: Dynamic t [Nominal] <- holdDyn [] es
     let ys :: Dynamic t [(Int, Nominal)] = fmap (zip [1 .. ]) xs
@@ -146,4 +146,3 @@ viewComps () = do
     simpleList cs (comp ns)
 
     return ()
-
diff --git a/www/view/FlareTiming/Task.hs b/www/view/FlareTiming/Task.hs
@@ -91,7 +91,7 @@ task ix = do
                 elClass "p" "" $ do
                     el "a" $ do
                         dynText subtitle
-                
+
 tasks :: MonadWidget t m => m ()
 tasks = do
     pb :: Event t () <- getPostBuild
@@ -110,7 +110,7 @@ getTasks () = do
     let defReq = "http://localhost:3000/tasks"
     let req md = XhrRequest "GET" (maybe defReq id md) def
     rsp <- performRequestAsync $ fmap req $ leftmost [ Nothing <$ pb ]
-        
+
     let es :: Event t [Task] = fmapMaybe decodeXhrResponse rsp
     xs :: Dynamic t [Task] <- holdDyn [] es
     let ys :: Dynamic t [(Int, Task)] = fmap (zip [1 .. ]) xs
@@ -120,4 +120,3 @@ getTasks () = do
         simpleList ys task
 
     return ()
-