From 7f244c9a73d566053aa25a618fe237cf68bb58c1 Mon Sep 17 00:00:00 2001
From: "kr.angelov" <kr.angelov@chalmers.se>
Date: Fri, 23 May 2008 13:19:24 +0000
Subject: [PATCH] Remove GF.Today and use the autogenerated Paths_gf from Cabal

---
 GF.cabal                  | 1 -
 src-3.0/GF/Infra/UseIO.hs | 4 ++--
 2 files changed, 2 insertions(+), 3 deletions(-)

diff --git a/GF.cabal b/GF.cabal
index 11922cbda..eefa104ee 100644
--- a/GF.cabal
+++ b/GF.cabal
@@ -118,7 +118,6 @@ executable gf3
     GF.Grammar.Predef
     GF.Data.Str
     GF.Data.Zipper
-    GF.Today
     GF.Infra.Option
     GF.Infra.UseIO
     GF.GFCC.GFCCtoJS
diff --git a/src-3.0/GF/Infra/UseIO.hs b/src-3.0/GF/Infra/UseIO.hs
index 95e4b428b..ee66ddcff 100644
--- a/src-3.0/GF/Infra/UseIO.hs
+++ b/src-3.0/GF/Infra/UseIO.hs
@@ -17,7 +17,7 @@ module GF.Infra.UseIO where
 
 import GF.Data.Operations
 import GF.Infra.Option
-import GF.Today (libdir)
+import Paths_gf(getDataDir)
 
 import System.Directory
 import System.FilePath
@@ -114,7 +114,7 @@ getLibraryPath =
               let (path,_) = splitFileName exepath
               canonicalizePath (combine path "../lib"))
 #else
-    (const (return libdir))
+    (const getDataDir)
 #endif
 
 -- | extends the search path with the