From 4cc02c7dc10cf0f52a54621391f82f5c1ebd5f4f Mon Sep 17 00:00:00 2001 From: hasufell Date: Fri, 14 Nov 2014 22:17:47 +0100 Subject: [PATCH] DIAG: rm obsolete inlined function --- Graphics/Diagram/Plotter.hs | 2 -- 1 file changed, 2 deletions(-) diff --git a/Graphics/Diagram/Plotter.hs b/Graphics/Diagram/Plotter.hs index 3da4320..cf5a728 100644 --- a/Graphics/Diagram/Plotter.hs +++ b/Graphics/Diagram/Plotter.hs @@ -197,8 +197,6 @@ quadPathSquare = Diag f # moveTo (p2 ((xmax + xmin) / 2,(ymax + ymin) / 2)) # lw thin # lc red) (getSquare (stringToQuads (pQt p)) (qt, [])) where - quads :: [QuadOrOrient] - quads = stringToQuads (pQt p) getSquare :: [QuadOrOrient] -> Zipper PT -> Square getSquare [] z = getSquareByZipper (dX p, dY p) z getSquare (q:qs) z = case q of