CurryInfo: spicey-4.2.0 / Spicey.Scaffolding.createHtmlHelpers

createHtmlHelpers :: String -> ERD -> String -> String -> IO ()
createHtmlHelpers _ (ERD name entities relationship) path _ =
  saveToHtml name (getEntities erdt) (getRelationships erdt)
 where
  erdt = transform (ERD name entities relationship)

  saveToHtml :: String -> [Entity] -> [Relationship] -> IO ()
  saveToHtml erdname allEntities relationships = do
    putStrLn $ "Saving 'View." ++ entitiesToHtmlModule erdname ++ ".curry'..."
    fileh <- openFile (path </> "EntitiesToHtml.curry") WriteMode
    hPutStr fileh (showCProg (generateToHtml erdname allEntities relationships))
    hClose fileh

argument 2

deterministic operation

<FAILING>

referentially transparent operation

no fixity defined

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

createHtmlHelpers

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