scion-browser 0.3.4 → 0.3.5

raw patch · 2 files changed

+4/−3 lines, 2 files

Files

• scion-browser.cabal +1/−1
• src/Scion/PersistentBrowser/Types.hs +3/−2

@@ -1,5 +1,5 @@ name:           scion-browser
-version:        0.3.4+version:        0.3.5 cabal-version:  >= 1.8
 build-type:     Simple
 license:        BSD3

@@ -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