chalmers-lava2000-1.0: Lava2000/LavaDir.hs

module Lava2000.LavaDir where

import System
  ( getEnv
  )

import IO
  ( try
  )

getLavaDir :: IO FilePath
getLavaDir =
  do ees <- try (getEnv "LAVADIR")
     return $ case ees of
                Left _  -> {-INSERT LAVADIR-} "/home/emax/Program/chalmers-lava2000/"
                Right s -> s