Avoid incomplete pattern

Author: nomeata

gen-windows-release.sh

@@ -1,7 +1,7 @@
 #!/bin/bash
 
 set -e
-wine cabal install --distdir=dist-win --bindir=.
+wine-development cabal install --distdir=dist-win --bindir=.
 (cd Audio/digits/; ./build.sh)
 
 rev=$(git describe --tags)

src/tttool.hs

@@ -73,6 +73,7 @@ optionParser =
             [(x,'x':rest)] -> case reads rest of
                 [(y,[])] -> return (x,y)
                 _        -> Left $ "Cannot parse dimensions " ++ input
+            _        -> Left $ "Cannot parse dimensions " ++ input
 
     cmd = hsubparser $ mconcat
         [ cmdSep "GME creation commands:"