hasufell/cga
1
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Improve code prettiness

Browse Source
This commit is contained in:
hasufell
2014-11-16 16:45:51 +01:00
parent 562fdbe26f
commit ea88ef84ea
3 changed files with 39 additions and 39 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
Graphics/Diagram/Plotter.hs
View File

@@ -258,9 +258,9 @@ treePretty = Diag f
-- by the dimensions given in xDimension from DiagProp.
xAxis :: Diag
xAxis =
Diag hRule <>
Diag segments <>
Diag labels
Diag hRule
<> Diag segments
<> Diag labels
where
hRule p _ =
arrowAt (p2 (diagXmin p, if diagYmin p <= 0 then 0 else diagYmin p))
@@ -286,9 +286,9 @@ xAxis =
-- by the dimensions given in yDimension from DiagProp.
yAxis :: Diag
yAxis =
Diag vRule <>
Diag segments <>
Diag labels
Diag vRule
<> Diag segments
<> Diag labels
where
vRule p _ =
arrowAt (p2 (if diagXmin p <= 0 then 0 else diagXmin p, diagYmin p))