Add file

2023-02-23 23:11:00 +00:00
parent c73e8af72a
commit 774316372f
1 changed files with 7 additions and 0 deletions
@@ -0,0 +1,7 @@
+module Dodge.Path.Translate where
+
+import Dodge.Data.PathGraph
+
+fromEdgeTuple :: (Int, Int, PathEdge) -> PathEdgeNodes
+{-# INLINE fromEdgeTuple #-}
+fromEdgeTuple (a, b, pe) = PathEdgeNodes a b pe