hexagoxel
/
brittany
1
0
Fork 0
Code Issues 117 Pull Requests 5 Packages Projects Releases 5 Wiki Activity

Make errors more descriptive 

This is defensive against GHC API guarantees.
pull/247/head
Lennart Spitzner 2019-07-19 00:12:04 +02:00 committed by GitHub
parent a79b5e1a4b
commit 6c69388d73
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Language/Haskell/Brittany/Internal/Layouters/Decl.hs
View File

@ -236,10 +236,10 @@ layoutIPBind :: ToBriDoc IPBind
layoutIPBind lipbind@(L _ bind) = case bind of layoutIPBind lipbind@(L _ bind) = case bind of
#if MIN_VERSION_ghc(8,6,0) /* ghc-8.6 */ #if MIN_VERSION_ghc(8,6,0) /* ghc-8.6 */
XIPBind{} -> unknownNodeError "XIPBind" lipbind XIPBind{} -> unknownNodeError "XIPBind" lipbind
IPBind _ (Right _) _ -> error "unreachable" IPBind _ (Right _) _ -> error "brittany internal error: IPBind Right"
IPBind _ (Left (L _ (HsIPName name))) expr -> do IPBind _ (Left (L _ (HsIPName name))) expr -> do
#else #else
IPBind (Right _) _ -> error "unreachable" IPBind (Right _) _ -> error "brittany internal error: IPBind Right"
IPBind (Left (L _ (HsIPName name))) expr -> do IPBind (Left (L _ (HsIPName name))) expr -> do
#endif #endif
ipName <- docLit $ Text.pack $ '?' : FastString.unpackFS name ipName <- docLit $ Text.pack $ '?' : FastString.unpackFS name