X-Git-Url: https://git.stderr.nl/gitweb?a=blobdiff_plain;f=CoreTools.hs;h=bd6f329c537ea93842bf5b221998cf47fb69085c;hb=46f93616d6a7ef012c5f07698d56372881196015;hp=eae4122deff7425570ea5b232d4545ede76d46ac;hpb=758998d6ef18ab5124c65518781c358d76d229ab;p=matthijs%2Fmaster-project%2Fc%CE%BBash.git diff --git a/CoreTools.hs b/CoreTools.hs index eae4122..bd6f329 100644 --- a/CoreTools.hs +++ b/CoreTools.hs @@ -222,4 +222,4 @@ getLiterals :: CoreSyn.CoreExpr -> [CoreSyn.CoreExpr] getLiterals app@(CoreSyn.App _ _) = literals where (CoreSyn.Var f, args) = CoreSyn.collectArgs app - literals = filter (is_lit) args \ No newline at end of file + literals = filter (is_lit) args