From 7801025a35c33d245f4bb1b080e0fa2dc54da287 Mon Sep 17 00:00:00 2001 From: jeffrey rosenbluth Date: Tue, 13 Aug 2013 17:06:55 -0400 Subject: [PATCH 1/2] fixed issue #95 --- .gitignore | 13 ------------- src/Diagrams/Trail.hs | 2 ++ 2 files changed, 2 insertions(+), 13 deletions(-) delete mode 100644 .gitignore diff --git a/.gitignore b/.gitignore deleted file mode 100644 index d846f3b8..00000000 --- a/.gitignore +++ /dev/null @@ -1,13 +0,0 @@ -dist -cabal-dev -*.o -*.hi -*.chi -*.chs.h -.virthualenv -*~ -.hsenv_* -dist_* -history -TAGS -.diagrams-cache \ No newline at end of file diff --git a/src/Diagrams/Trail.hs b/src/Diagrams/Trail.hs index 84a54f9c..e5e32d99 100644 --- a/src/Diagrams/Trail.hs +++ b/src/Diagrams/Trail.hs @@ -484,6 +484,8 @@ instance (InnerSpace v, RealFrac (Scalar v), Floating (Scalar v)) => Sectionable (Trail v) where splitAtParam t p = withLine ((wrapLine *** wrapLine) . (`splitAtParam` p)) t + reverseDomain = reverseTrail + instance (InnerSpace v, OrderedField (Scalar v), RealFrac (Scalar v)) => HasArcLength (Trail v) where arcLengthBounded = withLine . arcLengthBounded From b3632a6e0521e67cb178882a5b08fded720c6138 Mon Sep 17 00:00:00 2001 From: jeffrey rosenbluth Date: Tue, 13 Aug 2013 21:23:24 -0400 Subject: [PATCH 2/2] gitignore retured --- .gitignore | 13 +++++++++++++ 1 file changed, 13 insertions(+) create mode 100644 .gitignore diff --git a/.gitignore b/.gitignore new file mode 100644 index 00000000..d846f3b8 --- /dev/null +++ b/.gitignore @@ -0,0 +1,13 @@ +dist +cabal-dev +*.o +*.hi +*.chi +*.chs.h +.virthualenv +*~ +.hsenv_* +dist_* +history +TAGS +.diagrams-cache \ No newline at end of file