https://github.com/Helium4Haskell/lvm
Tip revision: 0173d58401074ae8128e506f76b2b96def7bf961 authored by Mias van Klei on 06 February 2020, 17:50:38 UTC
fix compilation: Constants import from Helium is used, this is not allowed, so move relevant parts from Helium to Lvm
fix compilation: Constants import from Helium is used, this is not allowed, so move relevant parts from Helium to Lvm
Tip revision: 0173d58
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