Add ToPath instance for lines and loops

diagrams · Aug 26, 2015 · 57a6461 · 57a6461
1 parent 9bb8671
commit 57a6461
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/src/Diagrams/Path.hs b/src/Diagrams/Path.hs
@@ -189,6 +189,9 @@ instance ToPath (Path v n) where
 instance ToPath (Trail v n) where
   toPath = pathFromTrail
 
+instance ToPath (Trail' l v n) where
+  toPath t = Path [Trail t `at` origin]
+
 instance ToPath (Located (Trail v n)) where
   toPath = pathFromLocTrail