X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Futils%2FInterval.hs;h=03545ebc40783371f33caf27ddb3bcadcd07a3da;hp=8d96b19c7d6c6307932326adf66f1c24d16b4a3d;hb=30c122df62ec75f9ed7f392f24c2925675bf1d06;hpb=7c7104a51d477c18f8950112c4bc22c4800367f3

diff --git a/compiler/utils/Interval.hs b/compiler/utils/Interval.hs
index 8d96b19..03545eb 100644
--- a/compiler/utils/Interval.hs
+++ b/compiler/utils/Interval.hs
@@ -111,6 +111,6 @@ rev_app :: [a] -> [a] -> [a]
 rev_app [] xs = xs
 rev_app (y:ys) xs = rev_app ys (y:xs)
 
-          
-_unused :: FS.FastString
+_unused :: ()
 _unused = undefined i_min i_lim overlaps contains
+