compileAll :: MonadIO m => Sass -> m ()
compileAll cfg = liftIO $ compile >> return ()
  where
    compile = verboseLog >> rawSystem "sass" args
    verboseLog = verbosePut cfg $ "compiling " ++ srcDir cfg
    args = ["--update", ioDirs, "--style", st] ++ sm
    ioDirs = srcDir cfg ++ ":" ++ destDir cfg
    sm = if sourcemap cfg then ["--sourcemap"] else []
    st = map toLower . show $ style cfg
compileAll :: MonadIO m => Sass -> m ()
compileAll cfg = liftIO $ compile >> return ()
  where
    compile = verboseLog >> rawSystem "sass" args
    verboseLog = verbosePut cfg $ "compiling " ++ srcDir cfg
    args = ["--update", ioDirs, "--style", st] ++ sm
    ioDirs = srcDir cfg ++ ":" ++ destDir cfg
    sm = if sourcemap cfg then ["--sourcemap"] else []
    st = map toLower . show $ style cfg
compileAll cfg = liftIO $ compile >> return ()
  where
    compile = verboseLog >> rawSystem "sass" args
    verboseLog = verbosePut cfg $ "compiling " ++ srcDir cfg
    args = ["--update", ioDirs, "--style", st] ++ sm
    ioDirs = srcDir cfg ++ ":" ++ destDir cfg
    sm = if sourcemap cfg then ["--sourcemap"] else []
    st = map toLower . show $ style cfg