CurryInfo: spicey-4.2.0 / Spicey.Scaffolding.createControllers

createControllers :: String -> ERD -> String -> String -> IO ()
createControllers _ (ERD name entities relationship) path _ = do
  mapM_ (saveController name (getEntities erdt) (getRelationships erdt))
        (filter (not . Spicey.GenerationHelper.isGenerated) (getEntities erdt))
  putStrLn "Generating default controller authorization 'AuthorizedControllers.curry'..."
 where
  erdt = transform (ERD name entities relationship)

  saveController :: String -> [Entity] -> [Relationship] -> Entity -> IO ()
  saveController erdname allEntities relationships (Entity ename attrlist) = do
    putStrLn $ "Saving controllers in 'Controller." ++ ename ++ ".curry'..."
    writeFile (path </> ename ++ ".curry")
              (showCProg (generateControllersForEntity erdname allEntities
                            (Entity ename attrlist) relationships))

argument 2

deterministic operation

<FAILING>

referentially transparent operation

no fixity defined

{(_,{ERD},_,_) |-> _}

createControllers

no precedence defined

_

String -> Database.ERD.ERD -> String -> String -> Prelude.IO ()

operation might suspend on free variables

possibly non-terminating

possibly non-reducible on same data term