imageGeoDataToCsv.hs

{-# LANGUAGE LambdaCase #-}

import Graphics.HsExif (parseFileExif, getGpsLatitudeLongitude)
import System.Environment (getArgs)
import System.FilePath (takeFileName)
import System.IO (hPutStrLn, stderr)
import Data.List (intercalate)

printGeoLine :: FilePath -> IO ()
printGeoLine filename = do
  parseFileExif filename >>= \case
    Left e         -> hPutStrLn stderr $ "Couldn't parse exif data from " ++ filename
    Right exifData -> case getGpsLatitudeLongitude exifData of
                           Just (lat, long) -> printCsvLine [show lat, show long, takeFileName filename]
                           Nothing -> hPutStrLn stderr $ "No geo data for " ++ filename
  where printCsvLine = putStrLn . intercalate "\t"

main :: IO ()
main = getArgs >>= mapM_ printGeoLine