DIAGRAM: improve style

2014-10-09 18:55:55 +02:00 · 2014-10-09 18:55:55 +02:00 · ccbe034ef1
commit ccbe034ef1
parent e2f1c865f3
1 changed files with 4 additions and 4 deletions
--- a/Diagram.hs
+++ b/Diagram.hs
@ -117,10 +117,10 @@ convexHullLines = Diag f
  where
    f _ [] = mempty
    f p vt
-      = (strokeTrail                       .
-         fromVertices                      .
+      = (strokeTrail                        .
+         fromVertices                       .
         flip (++) [head $ grahamGetCH vtf] .
-         grahamGetCH                       $
+         grahamGetCH                        $
         vtf
        ) # moveTo (head $ grahamGetCH vtf) # lc red
      where
@ -210,7 +210,7 @@ gifDiag p xs = fmap (\x -> (x, 100))                      .
                 fmap (\x -> x <> g)                      .
                 flip (++)
                   [mkDiag (convexHullLines `mappend`
-                            convexHullPoints) p xs]   $
+                            convexHullPoints) p xs]       $
                 (convexHullLinesInterval p xs)
                   where
                     g = mconcat                      .