From 774316372f83f030a81174b37215614f7af947e4 Mon Sep 17 00:00:00 2001
From: justin <justin.g.kruger@gmail.com>
Date: Thu, 23 Feb 2023 23:11:00 +0000
Subject: [PATCH] Add file

---
 src/Dodge/Path/Translate.hs | 7 +++++++
 1 file changed, 7 insertions(+)
 create mode 100644 src/Dodge/Path/Translate.hs

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