Wie zwei Dateien in Haskell zu vergleichen

Question

Ich lerne Haskell und ich muss zwei Dateien vergleichen. Ich habe keine Funktion gefunden, die das tut, also habe ich es selbst codiert. Unten ist die Funktion, die ich mir ausgedacht habe.

cmpFiles :: FilePath -> FilePath -> IO Bool 
cmpFiles a b = withBinaryFile a ReadMode $ \ha -> 
       withBinaryFile b ReadMode $ \hb -> 
       fix (\loop -> do 
        isEofA <- hIsEOF ha 
        isEofB <- hIsEOF hb 

        if | isEofA && isEofB -> return True    -- both files reached EOF 
         | isEofA || isEofB -> return False   -- only one reached EOF 
         | otherwise  -> do      -- read content 
               x <- hGet ha 4028  -- TODO: How to use a constant? 
               y <- hGet hb 4028  -- TODO: How to use a constant? 
               if x /= y 
               then return False -- different content 
               else loop   -- same content, contunue... 
       ) 

Meine Fragen sind:

1. Ist dieser Code idiomatische? Es sieht eher zwingend als funktional aus.
2. Ist dieser Code effizient (Layz IO Probleme mit großen Dateien, Leistung ...)?
3. Gibt es eine kompaktere Art, es zu schreiben?

Answer 1

Wie wäre es

cmpFiles a b = do 
    aContents <- readFile a 
    bContents <- readFile b 
    return (aContents == bContents) 

Answer 2

Sie sogar einen Einzeiler draus machen können:

cmpFiles a b = liftM2 (==) (readFile a) (readFile b) 

Dieses ist tatsächlich äquivalent zu Reid Barton-Lösung. Equivalent ist kein Wiesel Wort hier, wenn Sie die Definition von liftM2 von hackage

nehmen

liftM2 f m1 m2 = do { x1 <- m1; x2 <- m2; return (f x1 x2) } 

und legen (==) und die readFile s Sie sind sofort zur Stelle.

Faulheit ist Ihr Freund in Haskell. The documentation of readFile gibt an, dass die Eingabe gelesen wird träge, d.h. nur auf Anforderung. == ist auch faul. So liest die gesamte liftM22 ... die Dateien nur so lange, bis sie einen Unterschied findet.