eeva/servant
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Merge pull request #85 from haskell-servant/wip-better-error-doctest-failure

Browse source 
servant, servant-server: handle corner case in doctests, add an helpful error message
This commit is contained in:
Alp Mestanogullari 2015-05-16 09:49:05 +01:00
commit 09e525fc76
2 changed files with 4 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
servant-server/test/Doctests.hs
View file

@ -27,3 +27,5 @@ getCabalMacrosFile = do
return $ case filter ("dist-sandbox-" `isPrefixOf`) contents of return $ case filter ("dist-sandbox-" `isPrefixOf`) contents of
[x] -> "dist" </> x </> rest [x] -> "dist" </> x </> rest
[] -> "dist" </> rest [] -> "dist" </> rest
xs -> error $ "ran doctests with multiple dist/dist-sandbox-xxxxx's: \n"
++ show xs ++ "\nTry cabal clean"

2
servant/test/Doctests.hs
View file

@ -25,3 +25,5 @@ getCabalMacrosFile = do
return $ case filter ("dist-sandbox-" `isPrefixOf`) contents of return $ case filter ("dist-sandbox-" `isPrefixOf`) contents of
[x] -> "dist" </> x </> rest [x] -> "dist" </> x </> rest
[] -> "dist" </> rest [] -> "dist" </> rest
xs -> error $ "ran doctests with multiple dist/dist-sandbox-xxxxx's: \n"
++ show xs ++ "\nTry cabal clean"