hlint: fix suggested improvements

[mate.git] / Mate / RegisterAllocation.hs

diff --git a/Mate/RegisterAllocation.hs b/Mate/RegisterAllocation.hs
index 6dfaa80aee5a45c7c6ab8b9baf8c2226cc1a1662..7162ae6b0aec743e7368f9db7fdac2c18f16e57e 100644 (file)
--- a/Mate/RegisterAllocation.hs
+++ b/Mate/RegisterAllocation.hs
@@ -36,7 +36,7 @@ count p = length . filter p
 degree g@(IGraph xs) label = count (isParticipiant label) xs
 
 
-doChaitin81 :: (Eq a) => IArchitecture -> (IGraph a) -> [Assignment a]
+doChaitin81 :: (Eq a) => IArchitecture -> IGraph a -> [Assignment a]
 doChaitin81 numberOfRegisters graph = []
 
 type IState a = ([a],IGraph a)