Fixed compilation error on GHC7

This commit is contained in:
Vidar Holen 2014-02-02 21:47:02 -08:00
parent 4968e7d9ff
commit 77916d2645
1 changed files with 1 additions and 3 deletions

View File

@ -21,7 +21,7 @@ import ShellCheck.AST
import ShellCheck.Data import ShellCheck.Data
import ShellCheck.Parser import ShellCheck.Parser
import Control.Monad import Control.Monad
import Control.Monad.State.Strict import Control.Monad.State
import Control.Monad.Writer import Control.Monad.Writer
import qualified Data.Map as Map import qualified Data.Map as Map
import Data.Char import Data.Char
@ -992,8 +992,6 @@ checkOrNeq _ (TA_Binary id "||" (TA_Binary _ "!=" word1 _) (TA_Binary _ "!=" wor
checkOrNeq _ _ = return () checkOrNeq _ _ = return ()
allModifiedVariables t = snd $ runWriter (doAnalysis (\x -> modify $ (++) (getModifiedVariables x)) t)
prop_checkValidCondOps1 = verify checkValidCondOps "[[ a -xz b ]]" prop_checkValidCondOps1 = verify checkValidCondOps "[[ a -xz b ]]"
prop_checkValidCondOps2 = verify checkValidCondOps "[ -M a ]" prop_checkValidCondOps2 = verify checkValidCondOps "[ -M a ]"
prop_checkValidCondOps2a= verifyNot checkValidCondOps "[ 3 \\> 2 ]" prop_checkValidCondOps2a= verifyNot checkValidCondOps "[ 3 \\> 2 ]"