Module abstraction

-- file PathFind/Dijkstra.hs
module PathFind.Dijkstra (findPath) where
findPath = undefined

-- file PathFind/AStar.hs
module PathFind.AStar (findPath) where
findPath = undefined

-- file PathFind.hs
module PathFind (findPath, dijkstra, aStar) where

import qualified PathFind.Dijkstra as D
import qualified PathFind.AStar as A

data FindPathAlgorithm = Dijkstra | AStar

findPath Dijkstra = D.findPath
findPath AStar = A.findPath

dijkstra = Dijkstra
aStar = AStar

-- file Main.hs
module Main where
import PathFind

f a b c = a (findPath dijkstra b) c