https://github.com/Helium4Haskell/lvm
Tip revision: 3ceeb230e21c5f315c786bef5bb84f4dc497dfa7 authored by Mias van Klei on 08 August 2020, 08:15:11 UTC
Lvm.Core: fix pretty printing of annotations, export ptypeconstraints in Parser
Lvm.Core: fix pretty printing of annotations, export ptypeconstraints in Parser
Tip revision: 3ceeb23
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