Skip to content
Snippets Groups Projects
Commit 51538e89 authored by Duncan Coutts's avatar Duncan Coutts
Browse files

-Wall police

parent 77235603
No related branches found
No related tags found
No related merge requests found
...@@ -361,7 +361,8 @@ commandShowOptions command v = concat ...@@ -361,7 +361,8 @@ commandShowOptions command v = concat
Just s -> "--"++lf++"="++s Just s -> "--"++lf++"="++s
Nothing -> "--"++lf Nothing -> "--"++lf
| flag <- showflag x ] | flag <- showflag x ]
showOptDescr x _ = error "Distribution.Simple.Command.showOptDescr: unreachable" showOptDescr _ _
= error "Distribution.Simple.Command.showOptDescr: unreachable"
commandListOptions :: CommandUI flags -> [String] commandListOptions :: CommandUI flags -> [String]
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment