For technical questions, consider asking on Stack Overflow using the #ihp tag :) This way people can later find these solutions via google. https://stackoverflow.com/questions/tagged/ihp
Hi. I have a question.
I'm trying to set up CurrentUserRecord to work with two different models: Student and Teacher in two different applications.
When I follow the guide and enter type instance CurrentUserRecord = Teacher to Types.hs in the Teacher application, everything works fine.
When I then add type instance CurrentUserRecord = Student to Types.hs in the Student application, I get the following error message:
Student/Types.hs:24:15
Conflicting family instance declarations:
IHP.LoginSupport.Types.CurrentUserRecord = Generated.Types.Student
-- Defined at Student/Types.hs:24:15
IHP.LoginSupport.Types.CurrentUserRecord = Generated.Types.Teacher
-- Defined at Teacher/Types.hs:26:15
|
24 | type instance CurrentUserRecord = Student
| ^^^^^^^^^^^^^^^^^Is there a way of solving this problem without merging the models into a common User model? Can type instances somehow be scoped in Haskell?
currentUser and currentUserOrNothing into your Application.Helper.Controller. Then replace everything with user with Student
user ~ CurrentUserRecord inside the type sig
currentStudent :: (?context :: ControllerContext, HasNewSessionUrl Student, Typeable Student) => Student
currentStudent = fromMaybe (redirectToLogin (newSessionUrl (Proxy @Student))) currentStudentOrNothing
currentStudentOrNothing :: (?context :: ControllerContext, HasNewSessionUrl Student, Typeable Student) => Maybe Student
currentStudentOrNothing = case unsafePerformIO (maybeFromContext @(Maybe Student)) of
Just student -> student
Nothing -> error "currentStudentOrNothing: initAuthentication @Student has not been called in initContext inside FrontController of this application"currentStudent in the view you need to do the same steps in Application.Helper.View based on these functions https://github.com/digitallyinduced/ihp/blob/master/IHP/LoginSupport/Helper/View.hs#L12
Hello, I'm trying to load the related records for a type and i'm getting an error. My code:
action ShowRetroAction { retroId } = do
retro <- fetch retroId
>>= fetchRelated #columnsError is:
* Couldn't match type `[Column]' with `QueryBuilder "columns"'
Expected type: Retro -> IO Retro
Actual type: Retro -> IO (Include "columns" Retro)
* In the second argument of `(>>=)', namely `fetchRelated #columns'
In a stmt of a 'do' block:
retro <- fetch retroId >>= fetchRelated #columns
In the expression:
do retro <- fetch retroId >>= fetchRelated #columns
render ShowView {..}
|
20 | >>= fetchRelated #columns
|Any ideas?
3 replies
data ShowView = ShowView { retroWithColumns :: Include "columns" Retro }
Retro' [Column] is not idiomatic to IHP, prefer the version I've mentioned.
hi @mpscholten , i'm raphy@airmail.cc from the emails! Here's my silly question: I want to save in my database a bunch of music albums, and besides info such as Name, Artist, etc, I wanted to store associate a picture to every album. So in my database scheme I have a column called "Picture" with a string field, where (supposedly) i'd store the filepath of the image, or an URL that points to that image.
But when I try to put something like this in my Show.hs file for my albums:<img src={get #picture album}>
I get a cryptic error back, here are the first lines:
Could not deduce (IHP.RouterSupport.AutoRoute (Maybe Text))
arising from a use of `IHP.HtmlSupport.QQ.applyAttribute'
from the context: (?context::ControllerContext, ?view::ShowView)
[long cryptic error]So, first of all, is there a best way to store "pictures" in a database? I'm new to web programming, and if this is the right way, how do I make it work as intended in IHP?
render .. = [hsx|<img src={picture}/>|]
where
picture = album |> get #picture |> fromMaybe „default.png"
10 replies
app link: https://retros.ihpapp.com
source code: https://github.com/rametta/retros
I can't see the logs in ihp cloud so not sure what the issue could be. I added a migration script to delete all my data just in case it was causing problems, but didn't seem to help
15 replies
1 reply
Hello everybody! I've followed https://ihp.digitallyinduced.com/Guide/routing.html#beautiful-urls, at least I think so, and the compiler complains:
Web/View/Posts/Index.hs:7:34
• Couldn't match type ‘Id' "posts"’ with ‘Maybe (Id' "posts")’
arising from a use of ‘renderPost’
• In the second argument of ‘forEach’, namely ‘renderPost’
In the first argument of ‘toHtml’, namely
‘((forEach posts) renderPost)’
In the expression: toHtml ((forEach posts) renderPost)
|
7 | html IndexView { .. } = [hsx|
| ^...There was an error before, which disappeared when, in Web/Types.hs, I substituted the ShowPostAction parameter for the URL slug from the Guide { postId :: !(Maybe (Id Post)), slug :: !(Maybe Text) } in all other actions as well.
For what it's worth, the repo is at https://gitlab.com/fritzfeger/ff-com, and in the README you'll also find the IHP cloud link to the (working) app just before the changes. View all changes I've made to the working version at fritzfeger/ff-com@d159f7f. THANK YOU!
Hello I having problems with selectField form helper. To use for my select button, all users coming for DB. I have the following definitions in my controller a setup this
users <- query @User |> fetch
And in my view
data EditView = EditView { issue :: Issue, users :: [User] }
instance CanSelect User where
-- Here we specify that the <option> value should contain a Id User
type SelectValue User = Id User
-- Here we specify how to transform the model into <option>-value
selectValue = get #id
-- And here we specify the <option>-text
selectLabel = get #name
and the form definition is like this
renderForm issue = formFor issue [hsx|
{(textField #number)}
{(textField #summary)}
{(textField #status)}
{(checkboxField #isPsa)}
{(textField #days)}
{(textField #description)}
{(textField #customerId)}
{(selectField #userId users)}
{submitButton}
|]
But it generate the error below
Web/View/Issues/Edit.hs:29:39: error:
• Couldn't match expected type ‘[item0]’
with actual type ‘EditView -> [User]’
• Probable cause: ‘users’ is applied to too few arguments
In the second argument of ‘selectField’, namely ‘users’
In the first argument of ‘toHtml’, namely
‘((selectField (fromLabel @"userId")) users)’
In the expression:
toHtml ((selectField (fromLabel @"userId")) users)
|
29 | renderForm issue = formFor issue [hsx|
|
1 reply