Commit 669414b7 authored by Katharina Rahf's avatar Katharina Rahf
Browse files

CYM was updated; so runCYM had to be replaced by runCYMIgnWarn

parent 2449d5f2
......@@ -12,7 +12,7 @@ import Control.Monad.Writer (liftIO)
import Data.List (intercalate)
import System.FilePath (replaceExtension)
import Curry.Base.Monad (CYIO, liftCYM, failMessages, runCYM)
import Curry.Base.Monad (CYIO, liftCYM, failMessages, runCYMIgnWarn)
import Curry.Base.Position (Position (..))
import Curry.Base.Pretty (text)
import Curry.Files.Filenames (addCurrySubdirModule)
......@@ -55,7 +55,7 @@ formatToken f = do
mbModule <- liftIO $ readModule f
case mbModule of
Nothing -> failMessages [message $ text $ "Missing file: " ++ f]
Just src -> return $ runCYM (lexSource f src)
Just src -> return $ runCYMIgnWarn (lexSource f src)
-- |Show tokens and their value if needed
showToken :: Token -> String
......@@ -86,7 +86,6 @@ showToken t =
Token Backquote NoAttributes -> "Backquote"
-- layout
Token LeftBraceSemicolon NoAttributes -> "LeftBracketSemicolon"
Token VSemicolon NoAttributes -> "VSemicolon"
Token VRightBrace NoAttributes -> "VRightBrace"
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment