[ fix ] path lines

stefan-hoeck · Jul 2, 2024 · 33a0e29 · 33a0e29
1 parent b0590cb
commit 33a0e29
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Text/SVG/Types.idr b/src/Text/SVG/Types.idr
@@ -259,7 +259,7 @@ digit True  = "1"
 export
 Interpolation PathCmd where
   interpolate (Move rel x y) = letter rel "M" "m" ++ "\{x} \{y}"
-  interpolate (Line rel x y) = letter rel "M" "m" ++ "\{x} \{y}"
+  interpolate (Line rel x y) = letter rel "L" "l" ++ "\{x} \{y}"
   interpolate (Horiz rel x)  = letter rel "H" "h" ++ "\{x}"
   interpolate (Vert rel y)   = letter rel "V" "v" ++ "\{y}"
   interpolate Z              = "Z"