diff --git a/leksah-server.cabal b/leksah-server.cabal
--- a/leksah-server.cabal
+++ b/leksah-server.cabal
@@ -1,5 +1,5 @@
 name: leksah-server
-version: 0.12.0.4
+version: 0.12.0.5
 cabal-version: >= 1.10.2
 build-type: Simple
 license: GPL
diff --git a/src/IDE/Metainfo/InterfaceCollector.hs b/src/IDE/Metainfo/InterfaceCollector.hs
--- a/src/IDE/Metainfo/InterfaceCollector.hs
+++ b/src/IDE/Metainfo/InterfaceCollector.hs
@@ -156,7 +156,7 @@
         reexported      =   map (\d -> Reexported (ReexportedDescr (Just (PM pid mid)) d))
                                  $ filter (\k -> (dscName k) `Set.member` otherDecls) hidden
         inst            =   concatMap (extractInstances (PM pid mid)) (mi_insts iface)
-        uses            =   Map.fromList $ map extractUsages (mi_usages iface)
+        uses            =   Map.fromList . catMaybes $ map extractUsages (mi_usages iface)
         declsWithExp    =   map withExp ownDecls
         withExp (Real d) =  Real $ d{dscExported' = Set.member (dscName' d) exportedNames}
         withExp _        =  error "Unexpected Reexported"
@@ -290,14 +290,14 @@
                     ,   dscExported'     =   False})]
 
 
-extractUsages :: Usage -> (ModuleName, Set String)
+extractUsages :: Usage -> Maybe (ModuleName, Set String)
 #if MIN_VERSION_Cabal(1,11,0)
 extractUsages (UsagePackageModule usg_mod' _ _) =
 #else
 extractUsages (UsagePackageModule usg_mod' _ ) =
 #endif
     let name    =   (fromJust . simpleParse . moduleNameString) (moduleName usg_mod')
-    in (name, Set.fromList [])
+    in Just (name, Set.fromList [])
 #if MIN_VERSION_Cabal(1,11,0)
 extractUsages (UsageHomeModule usg_mod_name' _ usg_entities' _ _) =
 #else
@@ -305,7 +305,10 @@
 #endif
     let name    =   (fromJust . simpleParse . moduleNameString) usg_mod_name'
         ids     =   map (showSDocUnqual . ppr . fst) usg_entities'
-    in (name, Set.fromList ids)
+    in Just (name, Set.fromList ids)
+#if MIN_VERSION_ghc(7,4,0)
+extractUsages (UsageFile _ _) = Nothing
+#endif
 
 filterExtras, filterExtras' :: String -> String
 filterExtras ('{':'-':r)                =   filterExtras' r