Permalink
Browse files

Remove debug output from cat.

  • Loading branch information...
1 parent fb3e3d7 commit e917154126ce9f9ff3fd8eecbb58cce421f58fcf @bjornbm committed Jan 10, 2012
Showing with 1 addition and 2 deletions.
  1. +1 −1 NNUtil.hs
  2. +0 −1 nn.hs
View
2 NNUtil.hs
@@ -31,7 +31,7 @@ tagP = "-[a-zA-Z0-9_.]+-"
restP = ".+[^~]$" -- Ignore unix (vim) backup files.
filePattern = obsP ++ idP ++ tagP ++ restP
filePattern' = obsP ++ idP ++ tagP -- Allows backup files to match.
-filePattern0 = "^" ++ idP ++ tagP -- Don't match obsolete files.
+filePattern0 = "^" ++ idP ++ tagP ++ restP -- Don't match obsolete files.
-- | Extract tags from file names and count the number of uses of each tag.
countTags :: [FilePath] -> [(Int, String)]
View
1 nn.hs
@@ -80,7 +80,6 @@ tags (Tags pop) = do
cat (Cat id) = do
files <- getFiles ["name:"++id]
- print files
contents <- mapM readFile files -- TODO doesn't work with unicode filenames. Fixed in 7.2.1?
putStr $ unlines $ zipWith (\f c -> header f ++ c) files contents
where

0 comments on commit e917154

Please sign in to comment.