getHomeDir :: IO FilePath
getHomeDir = do
   userHomeDir <- getHomeDirectory
   return $ userHomeDir </> ".SrcGen" 
getHomeDir :: IO FilePath
getHomeDir = do
   userHomeDir <- getHomeDirectory
   return $ userHomeDir </> ".SrcGen" 
getHomeDir = do
   userHomeDir <- getHomeDirectory
   return $ userHomeDir </> ".SrcGen" 