src/tools: update GFDoc.hs and Htmls.hs for compatibility with current libraries and add gf-tools.cabal to compile them

src/tools/GFDoc.hs

@@ -18,11 +18,12 @@ module Main (main) where
 
 import Data.Char
 import Data.List
-import System.Cmd
+import System.Process
-import System.Directory
+import System.Directory -- from package directory>=1.2
 import System.Environment
-import System.Locale
+import Data.Time -- from package time>=1.5
-import System.Time
+--import System.Locale -- from package old-locale
+--import System.Time -- from package old-time
 
 -- to read files and write a file
 
@@ -56,12 +57,20 @@ main = do
   return ()
 
 modTime :: FilePath -> IO ModTime
-modTime name = 
+-- Works with directory>=1.2, time>=1.5
+modTime name =
+  do zt <- utcToLocalZonedTime =<< getModificationTime name
+     let timeFmt = "%Y-%m-%d %H:%M:%S %Z"
+     return $ formatTime defaultTimeLocale timeFmt zt
+{-
+-- Works with directory<1.2, old-time, old-locale
+modTime name =
     do
     t <- getModificationTime name
     ct <- toCalendarTime t
     let timeFmt = "%Y-%m-%d %H:%M:%S %Z"
     return $ formatCalendarTime defaultTimeLocale timeFmt ct
+-}
 
 welcome = unlines [
   "",

src/tools/Htmls.hs

@@ -18,8 +18,8 @@
 
 module Main (main) where
 
-import System
+import System.Environment(getArgs)
-import Char
+import Data.Char
 
 main :: IO ()
 main = do

src/tools/gf-tools.cabal

@@ -0,0 +1,12 @@
+name: gf-tools
+version: 0.1
+build-type: Simple
+cabal-version: >= 1.8
+
+Executable gfdoc
+  main-is: GFDoc.hs
+  build-depends: base, directory>=1.2, time>=1.5, process
+
+Executable htmls
+  main-is: Htmls.hs
+  build-depends: base