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.
|
