Fix a non-total function definition warning

haskell · Mar 19, 2008 · ded2668 · ded2668
1 parent 9ecda4e
commit ded2668
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/Distribution/Simple/Command.hs b/Distribution/Simple/Command.hs
@@ -332,6 +332,7 @@ commandShowOptions command v = concat
             Just s  -> "--"++lf++"="++s
             Nothing -> "--"++lf
         | flag <- showflag x ]
+    showOptDescr x _ = error "Distribution.Simple.Command.showOptDescr: unreachable"
 
 
 commandListOptions :: CommandUI flags -> [String]