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

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
+