https://github.com/Helium4Haskell/lvm
Revision 26857cef4ea09c7a96311c898ac6859b66f29d39 authored by Lars on 05 December 2018, 11:11:42 UTC, committed by Lars on 05 December 2018, 11:11:42 UTC
1 parent fcc945a
Raw File
Tip revision: 26857cef4ea09c7a96311c898ac6859b66f29d39 authored by Lars on 05 December 2018, 11:11:42 UTC
Added qualified typing to LVM
Tip revision: 26857ce
compare.hs
module Main where

import Char   (isSpace)
import System (exitWith,getArgs,ExitCode(..))

main  
  = do{ [fname1,fname2] <- getArgs
      ; xs <- readFile fname1
      ; ys <- readFile fname2
      ; if (clean xs /= clean ys)
         then do{ putStrLn "different files"
                ; exitWith (ExitFailure 1)
                }
         else return ()
      }
  where
    clean xs  = filter (not . isSpace) xs
   
back to top