From 0d77eaf47a67de57f87071c54bea6678a957716a Mon Sep 17 00:00:00 2001
From: Robbie Gleichman <rgleichman@gmail.com>
Date: Wed, 20 Jan 2016 20:00:53 -0800
Subject: [PATCH] Change EndAp1Arg arrow style.

---
 app/Rendering.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/app/Rendering.hs b/app/Rendering.hs
index bd808c5..06dd3d5 100644
--- a/app/Rendering.hs
+++ b/app/Rendering.hs
@@ -80,14 +80,15 @@ getArrowOpts (t, h) = arrowOptions
   where
     lookupEnd :: (RealFloat n, Typeable n) => EdgeEnd -> ArrowOpts n -> ArrowOpts n
     lookupEnd EndNone = id
-    lookupEnd EndAp1Arg = (arrowHead .~ thorn) . (headTexture .~ solid cyan)
+    lookupEnd EndAp1Arg = (arrowHead .~ arrowheadDart (0.4 @@ turn))
+      . (headTexture .~ solid black) . (headStyle %~ (lw thick . lc cyan ))
     lookupEnd EndAp1Result = (arrowTail .~ arg1ResHT) . (tailTexture .~ solid cyan)
     arrowOptions =
       with & arrowHead .~ noHead
       & arrowTail .~ noTail
       & lengths .~ large
       & shaftStyle %~ lwG defaultLineWidth . lc white
-      & (lookupEnd t) & (lookupEnd h)
+      & lookupEnd t & lookupEnd h
 
 plainLine = getArrowOpts (EndNone, EndNone)