diff options
| author | Daniel Firth <locallycompact@gmail.com> | 2018-06-29 14:51:26 +0100 |
|---|---|---|
| committer | Daniel Firth <locallycompact@gmail.com> | 2018-07-04 09:50:16 +0100 |
| commit | 4c5bc5fc76f492382bb8f1444e9aa29294af0251 (patch) | |
| tree | f37ef3e91d71972d8ff292a0fd63942ccbda8155 | |
| parent | 09f6ed931d3dabd7c8b130c37c1cd5af158c13e8 (diff) | |
Fix hlint errors in Diagram.hs
| -rw-r--r-- | Bustle/Diagram.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Bustle/Diagram.hs b/Bustle/Diagram.hs index 0cf4972..ddc2e90 100644 --- a/Bustle/Diagram.hs +++ b/Bustle/Diagram.hs @@ -138,7 +138,7 @@ timestampLabel s y = TimestampLabel s timestampx y type Diagram = [Shape] arcControlPoints :: Shape -> (Point, Point) -arcControlPoints (Arc { topx=x1, topy=y1, bottomx=x2, bottomy=y2, arcside=s }) = +arcControlPoints Arc { topx=x1, topy=y1, bottomx=x2, bottomy=y2, arcside=s } = let (+-) = offset s cp1 = (x1 +- 60, y1 + 10) cp2 = (x2 +- 60, y2 - 10) @@ -229,11 +229,11 @@ bounds s = case s of in (x1, y1, x2, y2) SignalArrow {} -> let (x1, x2) = xMinMax s - (y1, y2) = (subtract 5) &&& (+5) $ shapey s + (y1, y2) = subtract 5 &&& (+5) $ shapey s in (x1, y1, x2, y2) DirectedSignalArrow {} -> let (x1, x2) = minMax (epicentre s, shapex s) - (y1, y2) = (subtract 5) &&& (+5) $ shapey s + (y1, y2) = subtract 5 &&& (+5) $ shapey s in (x1, y1, x2, y2) Arc { topx=x1, bottomx=x2, topy=y1, bottomy=y2 } -> let ((cx, _), (dx, _)) = arcControlPoints s |