main::IO ()
main = 
  do

    -- TODO : make an actual command-line interface instead of hardcoding :)
    
  -- [input, output] <- getArgs
    {-
  input  <- return "../maps/AR0011SRBW.jpg"
  start  <- return (Coord 414 418)
  finish <- return (Coord 253 130)
-}

    {-
  input  <- return "../maps/AR0017SRBW.jpg"
  start  <- return (Coord 70 54)
  finish <- return (Coord 43 42)
-}

  input  <- return "../maps/CalderaBW.jpg"
  finish <- return (Coord 140 511)
  start  <- return (Coord 572 56)
{-    
-}

  
  output <- return "./testout.png"
  
  --finish <- return (Coord 420 393)
  pathfindImage input output start finish
  
-- Do a pathfinding operation on the image at pathIn; save the
-- resulting image to pathOut.
main::IO ()
main = 
  do

    -- TODO : make an actual command-line interface instead of hardcoding :)
    
  -- [input, output] <- getArgs
    {-
  input  <- return "../maps/AR0011SRBW.jpg"
  start  <- return (Coord 414 418)
  finish <- return (Coord 253 130)
-}

    {-
  input  <- return "../maps/AR0017SRBW.jpg"
  start  <- return (Coord 70 54)
  finish <- return (Coord 43 42)
-}

  input  <- return "../maps/CalderaBW.jpg"
  finish <- return (Coord 140 511)
  start  <- return (Coord 572 56)
{-    
-}

  
  output <- return "./testout.png"
  
  --finish <- return (Coord 420 393)
  pathfindImage input output start finish
  
-- Do a pathfinding operation on the image at pathIn; save the
-- resulting image to pathOut.
main = 
  do

    -- TODO : make an actual command-line interface instead of hardcoding :)
    
  -- [input, output] <- getArgs
    {-
  input  <- return "../maps/AR0011SRBW.jpg"
  start  <- return (Coord 414 418)
  finish <- return (Coord 253 130)
-}

    {-
  input  <- return "../maps/AR0017SRBW.jpg"
  start  <- return (Coord 70 54)
  finish <- return (Coord 43 42)
-}

  input  <- return "../maps/CalderaBW.jpg"
  finish <- return (Coord 140 511)
  start  <- return (Coord 572 56)
{-    
-}

  
  output <- return "./testout.png"
  
  --finish <- return (Coord 420 393)
  pathfindImage input output start finish
  
-- Do a pathfinding operation on the image at pathIn; save the
-- resulting image to pathOut.