Changeset 1157

Timestamp:

11/05/07 21:04:33 (6 years ago)

Author:

jknaoya

Message:

lang/haskell/blosxkel/blosxkel.hs:

関数分離してモナドの中で処理するようにしたらいけました！やった☆

Files:

• lang/haskell/blosxkel/blosxkel.hs (modified) (1 diff)

lang/haskell/blosxkel/blosxkel.hs

@@ -75 +75 @@
     }
 
-applyStory :: (String -> [(String, String)] -> IO String) -> Entry -> IO String
-applyStory fill e = fill "story" [("title", title e),
-                                  ("body", concat (body e)),
-                                  ("time", formatCalendarTime defaultTimeLocale "%Y-%m-%d %H:%M:%S" (toUTCTime (time e))),
-                                  ("path", path e)]
+
+getResult :: [(String, String)] -> IO (String, String)
+getResult cgiparams = do
+    {
+    ; entries <- getTextFileEntries "data"
+    ; ct <- fill "content_type" []
+    ; ch <- fill "head" []
+    ; cs <- mapM
+               (\e -> fill "story"
+               [("title", title e),
+                ("body", concat (body e)),
+                ("time", formatCalendarTime defaultTimeLocale "%Y-%m-%d %H:%M:%S" (toUTCTime (time e))),
+                ("path", path e)])
+               $ take 7 $ reverse $ sortBy (\a b -> compare (time a) (time b)) entries
+    ; cf <- fill "foot" []
+    ; return $ (ct, concat $ [ch, concat cs, cf])
+    } where
+        fill place params = fillFlavour "html" place (params ++ [("title", "Blosxkel.hs"),
+                                                                 ("version", "aaa")] ++ cgiparams)
 
 cgiMain :: CGI CGIResult
 cgiMain =  do
     {
-    ; entries <- liftIO $ getTextFileEntries "data"
-    ; ct <- liftIO $ fill "content_type" []
-    ; ch <- liftIO $ fill "head" []
-    ; cs <- liftIO $ mapM (applyStory fill) $ take 7 $ reverse $ sortBy (\a b -> compare (time a) (time b)) entries
-    ; cf <- liftIO $ fill "foot" []
-    ; setHeader "Content-Type" ct
-    ; output $ concat $ [ch, concat cs, cf]
-    } where
-        fill place params = fillFlavour "html" place (params ++ [("title", "Blosxkel.hs"),
-                                                                 ("version", "aaa")])
+    ; home <- scriptName
+    ; result <- liftIO $ getResult [("home", home)]
+    ; setHeader "Content-Type" $ fst result
+    ; output $ snd result
+    }
 
 main :: IO ()