8 lines
196 B
Haskell
8 lines
196 B
Haskell
module Dodge.Path.Translate where
|
|
|
|
import Dodge.Data.PathGraph
|
|
|
|
fromEdgeTuple :: (Int, Int, PathEdge) -> PathEdgeNodes
|
|
{-# INLINE fromEdgeTuple #-}
|
|
fromEdgeTuple (a, b, pe) = PathEdgeNodes a b pe
|