diff --git a/scion-browser.cabal b/scion-browser.cabal
--- a/scion-browser.cabal
+++ b/scion-browser.cabal
@@ -1,5 +1,5 @@
 name:           scion-browser
-version:        0.3.4
+version:        0.3.5
 cabal-version:  >= 1.8
 build-type:     Simple
 license:        BSD3
diff --git a/src/Scion/PersistentBrowser/Types.hs b/src/Scion/PersistentBrowser/Types.hs
--- a/src/Scion/PersistentBrowser/Types.hs
+++ b/src/Scion/PersistentBrowser/Types.hs
@@ -73,7 +73,7 @@
 
 instance Named Module where
   getName (Module _ (Just (ModuleHead _ (ModuleName _ name) _ _)) _ _ _) = name
-  getName v                                                              = error $ "This should not be possible: " ++ show v
+  getName v                                                              = error $ "This module should not be possible: " ++ show v
 
 instance DocItem Module Decl where
   getChildren (Module _ _ _ _ decls) = decls
@@ -83,6 +83,7 @@
 
 #if MIN_VERSION_haskell_src_exts(1,16,0) 
   getName (TypeDecl _ (DHead _ name) _)          = getNameString name
+  getName (TypeDecl a (DHApp _ h _) b)           = getName $ TypeDecl a h b
   getName (GDataDecl _ _ _ (DHead _ name) _ _ _) = getNameString name
   getName (ClassDecl _ _ (DHead _ name) _ _)     = getNameString name
   getName (InstDecl _ _ (IRule _ _ _ (IHCon _ name )) _)        = getQNameString name
@@ -93,7 +94,7 @@
   getName (InstDecl _ _ (IHead _ name _) _)        = getQNameString name
 #endif  
   getName (TypeSig _ name _)                       = concat $ intersperse "," $ map getNameString name
-  getName v                                        = error $ "This should not be possible: " ++ show v
+  getName v                                        = error $ "This decl should not be possible: " ++ show v
 
 instance DocItem Decl GadtDecl where
   getChildren (GDataDecl _ _ _ _ _ cons _) = cons