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