diff --git a/src/Dodge/Path/Translate.hs b/src/Dodge/Path/Translate.hs
new file mode 100644
index 000000000..1a6b07e70
--- /dev/null
+++ b/src/Dodge/Path/Translate.hs
@@ -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