Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Remove debug output from cat.

  • Loading branch information...
commit e917154126ce9f9ff3fd8eecbb58cce421f58fcf 1 parent fb3e3d7
Björn Buckwalter authored
Showing with 1 addition and 2 deletions.
  1. +1 −1  NNUtil.hs
  2. +0 −1  nn.hs
2  NNUtil.hs
View
@@ -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)]
1  nn.hs
View
@@ -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
Please sign in to comment.
Something went wrong with that request. Please try again.