Changeset 1169 for lang/haskell

Timestamp:

11/06/07 11:07:42 (13 months ago)

Author:

jknaoya

Message:

lang/haskell/blosxkel/head.xml,
lang/haskell/blosxkel/blosxkel.hs:

atom がただしくなるようにしました。
バージョンを表示するようになりました。

Location:

lang/haskell/blosxkel

Files:

• blosxkel.hs (modified) (3 diffs)
• head.xml (modified) (1 diff)

lang/haskell/blosxkel/blosxkel.hs

@@ -8 +8 @@
 import System.Time
 import System.Locale (defaultTimeLocale)
+
+import System.Info
+import Data.Version
 
 import Data.List
@@ -113 +116 @@
     ; entries <- getTextFileEntries $ getConfig config "data-dir"
     ; ct <- fill "content_type" []
-    ; ch <- fill "head" []
+    ; ch <- fill "head" [("lastupdate", strfctime "%Y-%m-%dT%H:%M:%SZ"
+                                        (time $ maximumBy (\a b -> compare (time a) (time b)) entries))]
     ; cs <- mapM
                (\e -> fill "story"
@@ -139 +143 @@
                                         (params ++ [("title"  , getConfig config "title"),
                                         ("author" , getConfig config "author"),
-                                        ("version", "How do I get this version of GHC in program?")] ++ cgiparams)
+                                        ("version", unwords [os, arch, compilerName, showVersion compilerVersion])] ++ cgiparams)
 
 cgiMain :: CGI CGIResult

lang/haskell/blosxkel/head.xml

@@ -1 +1 @@
 <?xml version="1.0" encoding="utf-8"?>
 <feed xmlns="http://www.w3.org/2005/Atom">
-        <title>$title</title>
-        <link href="$servername$home$pathinfo"/>
-        <updated>2003-12-13T18:30:02Z</updated>
-        <author>
-        <name>$author</name>
-        </author>
-        <id>$serverroot$home$pathinfo</id>
+    <title>$title</title>
+    <link href="$servername$home$pathinfo"/>
+    <updated>$lastupdate</updated>
+    <author>
+        <name>$author</name>
+    </author>
+    <id>$servername$home$pathinfo</id>