[Assorted-commits] SF.net SVN: assorted: [638] scala-doc-search/trunk/src/srch.hs

[<yan...@us...>]

Revision: 638
          http://assorted.svn.sourceforge.net/assorted/?rev=638&view=rev
Author:   yangzhang
Date:     2008-03-19 09:57:46 -0700 (Wed, 19 Mar 2008)

Log Message:
-----------
reformatted a bit; updated for missingh-1.0.0

Modified Paths:
--------------
    scala-doc-search/trunk/src/srch.hs

Modified: scala-doc-search/trunk/src/srch.hs
===================================================================
--- scala-doc-search/trunk/src/srch.hs	2008-03-19 16:39:17 UTC (rev 637)
+++ scala-doc-search/trunk/src/srch.hs	2008-03-19 16:57:46 UTC (rev 638)
@@ -1,30 +1,31 @@
 #!/usr/bin/env runhaskell
 
+import Control.Arrow ((>>>))
 import Data.Char (toLower)
 import Data.List (union, isSuffixOf)
-import Data.String (replace, split)
+import Data.String.Utils (replace, split)
 
 name file = last $ split "/" $ replace ".html" "" $ replace "$object" " object" $ file  :: String
 
 base = "http://www.scala-lang.org/docu/files/api/scala"
 findFiles suffix files =
-    let lsuffix = "/" ++ map toLower suffix
-        has file =
-            let lfile = map toLower file
-            in if lsuffix `isSuffixOf` lfile && lsuffix /= ""
+  let lsuffix = "/" ++ map toLower suffix
+      has file =
+        let lfile = map toLower file
+          in if lsuffix `isSuffixOf` lfile && lsuffix /= ""
                then [(name file, base ++ file)]
                else []
     in concat $ map has files :: [(String,String)]
 
 types = words "object trait class"
 find typ name files =
-    if not (typ `elem` types)
+  if not (typ `elem` types)
     then union [] $ concat $ map (\t -> find t name files) types
     else let suffix = case typ of
                         "object" -> "$object.html"
                         "trait" -> ".html"
                         "class" -> ".html"
-    in flip findFiles files $ name ++ suffix :: [(String,String)]
+           in flip findFiles files $ name ++ suffix :: [(String,String)]
 
 decorate (name,url) =
     if url == ""


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.