Commit 042ec38e authored by simonpj's avatar simonpj
Browse files

Type signature for local ioerror

parent 78fe6ed7
......@@ -245,6 +245,7 @@ packageDbStackOpts dbstack = case dbstack of
where
specific (SpecificPackageDB db) = "--package-conf=" ++ db
specific _ = ierror
ierror :: a
ierror = error ("internal error: unexpected package db stack: " ++ show dbstack)
packageDbOpts :: PackageDB -> String
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment