From ad5c6ef9b833a5c28c270ac1b98f3985118f3796 Mon Sep 17 00:00:00 2001 From: Joachim Breitner Date: Sun, 31 Jan 2016 16:03:02 +0100 Subject: [PATCH] Avoid incomplete pattern --- gen-windows-release.sh | 2 +- src/tttool.hs | 1 + 2 files changed, 2 insertions(+), 1 deletion(-) diff --git a/gen-windows-release.sh b/gen-windows-release.sh index c8c391b7..6dd23328 100755 --- a/gen-windows-release.sh +++ b/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) diff --git a/src/tttool.hs b/src/tttool.hs index 6015b632..d9c55fa1 100644 --- a/src/tttool.hs +++ b/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:"