Commit aed95970 authored by Kai-Oliver Prott's avatar Kai-Oliver Prott

Remove unused import from CurryBuilder module

parent 992aa20a
......@@ -34,8 +34,7 @@ import Curry.Syntax ( ModulePragma (..), Extension (KnownExtension)
import Base.Messages
import CompilerOpts ( Options (..), CppOpts (..), DebugOpts (..)
, TargetType (..), defaultDebugOpts, updateOpts
, optRemoveUnusedImports )
, TargetType (..), defaultDebugOpts, updateOpts )
import CurryDeps (Source (..), flatDeps)
import Modules (compileModule)
......@@ -83,8 +82,8 @@ findCurry opts s = do
makeCurry :: Options -> [(ModuleIdent, Source)] -> CYIO ()
makeCurry opts srcs = mapM_ process' (zip [1 ..] srcs)
where
total = length srcs
tgtDir m = addCurrySubdirModule (optUseSubdir opts) m
total = length srcs
tgtDir = addCurrySubdirModule (optUseSubdir opts)
process' :: (Int, (ModuleIdent, Source)) -> CYIO ()
process' (n, (m, Source fn ps is)) = do
......@@ -143,11 +142,11 @@ quotedWords :: String -> [String]
quotedWords str = case dropWhile isSpace str of
[] -> []
s@('\'' : cs) -> case break (== '\'') cs of
(_ , [] ) -> def s
(quoted, (_:rest)) -> quoted : quotedWords rest
(_ , [] ) -> def s
(quoted, _:rest) -> quoted : quotedWords rest
s@('"' : cs) -> case break (== '"') cs of
(_ , [] ) -> def s
(quoted, (_:rest)) -> quoted : quotedWords rest
(_ , [] ) -> def s
(quoted, _:rest) -> quoted : quotedWords rest
s -> def s
where
def s = let (w, rest) = break isSpace s in w : quotedWords rest
......
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