Число "файлов-hs" в программе HaskellPlatform-8.0.1

Microsoft Windows [Version 6.1.7601]
(c) Корпорация Майкрософт (Microsoft Corp.), 2009. Все права защищены.
 
C:\Windows\system32>cd C:\Users\admin\Documents\MyHaskell
C:\Users\admin\Documents\MyHaskell>ghc -prof -fprof-auto -rtsopts fcount.hs
[1 of 1] Compiling Main             ( fcount.hs, fcount.o )
Linking fcount.exe ...
C:\Users\admin\Documents\MyHaskell>fcount>C:\Program Files\Haskell Platfopm\
C:\Users\admin\Documents\MyHaskell>fcount C:\Program Files\Haskell Platfopm\
fcount: user error (Pattern match failure in do expression at fcount.hs:24:3-15)
C:\Users\admin\Documents\MyHaskell>

import System.IO
import System.Directory
import System.Environment
 
chkFile :: String -> String -> Bool
chkFile fnam ext | (lf < lext) = False
                 | (drop (lf-lext) fnam) == ext = True
                 | otherwise = False
                 where lf = length fnam
                       lext = length ext
               
scan :: String -> String -> IO [String]               
scan fnam ext = do
 isDir <- doesDirectoryExist fnam
 if isDir then do
    files <- getDirectoryContents fnam
    let aFiles = filter (not . (`elem` [".", ".."])) files
    res <- mapM (\ fil -> scan (fnam ++ "" ++ fil) ext) aFiles
    return $ concat res    
 else
    return $ if chkFile fnam ext then [fnam] else []
                       
main = do
  [homeDir,ext]  <- getArgs
  flst <- scan homeDir ext
  mapM putStrLn flst

cd C:\Users\admin\Documents\fcount
 
ghc -prof -fprof-auto -rtsopts fcount.hs
 
fcount C:\Users\admin\Documents\fcount .hs
 
fcount C:\Users\admin\Documents\MyHaskell .hs
 
fcount C:\Program Files\Haskell Platfopm .hs
 
fcount C:\Program Files\Java .hs

C:\Program Files\Java\jdk1.8.0_102\CoreJavaBook\1\2\3\ Matryoshka.hs

Microsoft Windows [Version 6.1.7601]
(c) Корпорация Майкрософт (Microsoft Corp.), 2009. Все права защищены.
 
C:\Windows\system32>C:\Users\admin\Documents\fcount
"C:\Users\admin\Documents\fcount" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.
 
C:\Windows\system32>cd C:\Users\admin\Documents\fcount
 
C:\Users\admin\Documents\fcount>ghc -prof -fprof-auto -rtsopts fcount.hs
[1 of 1] Compiling Main             ( fcount.hs, fcount.o )
Linking fcount.exe ...
 
C:\Users\admin\Documents\fcount>fcount C:\Users\admin\Documents\fcount\ .hs
C:\Users\admin\Documents\fcount\fcount.hs
 
C:\Users\admin\Documents\fcount>fcount C:\Program Files\Haskell Platfopm\ .hs
fcount: user error (Pattern match failure in do expression at fcount.hs:24:3-15)
 
 
C:\Users\admin\Documents\fcount>fcount C:\Program Files\Haskell Platfopm .hs
fcount: user error (Pattern match failure in do expression at fcount.hs:24:3-15)
 
 
C:\Users\admin\Documents\fcount>
C:\Users\admin\Documents\fcount>fcount C:\Users\admin\Documents\MyHaskell .hs
C:\Users\admin\Documents\MyHaskellMyPlagiarism.hs
C:\Users\admin\Documents\MyHaskellMyPath.hs
C:\Users\admin\Documents\MyHaskellMyHask6.hs
C:\Users\admin\Documents\MyHaskellMyHask5.hs
C:\Users\admin\Documents\MyHaskellMyHask4.hs
C:\Users\admin\Documents\MyHaskellMyHask3.hs
C:\Users\admin\Documents\MyHaskellMyHask2.hs
C:\Users\admin\Documents\MyHaskellMyHask1.hs
C:\Users\admin\Documents\MyHaskellMyHask.hs
C:\Users\admin\Documents\MyHaskellMyFilesHs5.hs
C:\Users\admin\Documents\MyHaskellMyFilesHs2.hs
C:\Users\admin\Documents\MyHaskellMyFilesHs.hs
C:\Users\admin\Documents\MyHaskellMyCalculator2.hs
C:\Users\admin\Documents\MyHaskellMyCalculator.hs
C:\Users\admin\Documents\MyHaskellfcount.hs
 
C:\Users\admin\Documents\fcount>fcount C:\Program Files\Java .hs
fcount: user error (Pattern match failure in do expression at fcount.hs:24:3-15)
 
 
C:\Users\admin\Documents\fcount>fcount C:\Program Files\Java\ .hs
fcount: user error (Pattern match failure in do expression at fcount.hs:24:3-15)
 
 
C:\Users\admin\Documents\fcount>fcount C:\Users\admin\Documents\fcount .hs
C:\Users\admin\Documents\fcountfcount.hs
 
C:\Users\admin\Documents\fcount>

import System.IO
import System.Directory
import System.Environment
 
chkFile :: String -> String -> Bool
chkFile fnam ext | (lf < lext) = False
                 | (drop (lf-lext) fnam) == ext = True
                 | otherwise = False
                 where lf = length fnam
                       lext = length ext
               
scan :: String -> String -> IO [String]               
scan fnam ext = do
 isDir <- doesDirectoryExist fnam
 if isDir then do
    files <- getDirectoryContents fnam
    let aFiles = filter (not . (`elem` [".", ".."])) files
    res <- mapM (\ fil -> scan (fnam ++ "\" ++ fil) ext) aFiles   -- здесь должен быть не один, а два бэкслэша !!!
    return $ concat res    
 else
    return $ if chkFile fnam ext then [fnam] else []
                       
main = do
  [homeDir,ext]  <- getArgs
  flst <- scan homeDir ext
  mapM putStrLn flst