From 2e1b57878329eb6a1822ef43c190f8a2aaaa82b7 Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Thu, 26 Feb 2004 14:49:16 +0000
Subject: Improved make facility.

---
 src/GF/Infra/UseIO.hs | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'src/GF/Infra/UseIO.hs')

diff --git a/src/GF/Infra/UseIO.hs b/src/GF/Infra/UseIO.hs
index bd9d9e22a..347af2adb 100644
--- a/src/GF/Infra/UseIO.hs
+++ b/src/GF/Infra/UseIO.hs
@@ -57,6 +57,10 @@ readFileIf f = catch (readFile f) (\_ -> reportOn f) where
    putStrLnFlush ("File " ++ f ++ " does not exist. Returned empty string")
    return ""
 
+type FileName = String
+type InitPath = String
+type FullPath = String
+
 getFilePath :: [FilePath] -> String -> IO (Maybe FilePath)
 getFilePath paths file = get paths where
   get []     = putStrLnFlush ("file" +++ file +++ "not found") >> return Nothing
@@ -104,6 +108,9 @@ justFileName = reverse . takeWhile (/='/') . reverse
 suffixFile :: String -> FilePath -> FilePath
 suffixFile suff file = file ++ "." ++ suff
 
+justModuleName :: FilePath -> String
+justModuleName = fileBody . justFileName
+
 --
 
 getLineWell :: IO String -> IO String
-- 
cgit v1.2.3