@@ -26,14 +26,13 @@ import System.Exit
2626import System.FilePath (isValid, takeExtension, takeFileName)
2727import Text.Megaparsec ((<?>))
2828import qualified Text.Megaparsec as P
29−import qualified Text.Megaparsec.Char as P
3029import qualified Text.PrettyPrint.ANSI.Leijen as PP
3130
3231type PParser = Parser PkgDesc
3332
3433parseDesc :: FilePath -> IO PkgDesc
3534parseDesc fp = do
36− when (not $ takeExtension fp == ".ipkg") $ do
35+ unless (takeExtension fp == ".ipkg") $ do
3736 putStrLn $ unwords ["The presented iPKG file does not have a '.ipkg' extension:", show fp]
3837 exitWith (ExitFailure 1)
3938 res <- doesFileExist fp