Don't import FastString in HsVersions.h

[ghc-hetmet.git] / compiler / utils / Interval.hs

diff --git a/compiler/utils/Interval.hs b/compiler/utils/Interval.hs
index 8d96b19..03545eb 100644 (file)
--- 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
+