coulomb/inter-hub-haskell
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix(WP-0017/E3): Layer 3 error fixes — controllers and views

Browse source 
Fix compilation errors across 6 controllers and 29 views: import cleanup,
ResponseException pattern for API auth, type fixes, unused import removal.

Co-Authored-By: Claude Sonnet 4.6 <noreply@anthropic.com>
This commit is contained in:
Bernd Worsch 2026-04-11 23:40:31 +00:00
parent 58cad31042
commit c40f11d657
35 changed files with 96 additions and 116 deletions
Download patch file Download diff file Expand all files Collapse all files

7
Web/Controller/InteractionEvents.hs
View file

@ -5,7 +5,6 @@ import Generated.Types
import IHP.Prelude
import IHP.ControllerPrelude
import Data.Aeson (object, (.=), decode, Value)
import Data.Coerce (coerce)
import qualified Data.Aeson as A
import qualified Data.Text as T
import qualified Data.ByteString.Lazy.Char8 as LBSC
@ -27,8 +26,8 @@ instance Controller InteractionEventsController where
unless (eventType `elem` validEventTypes) do
renderJsonWithStatusCode status422 (object ["error" .= ("unknown event_type" :: Text), "valid" .= validEventTypes])
let mUser = currentUserOrNothing
let actorId = fmap (.id) mUser
let mUser = currentUserOrNothing @User
let actorId = fmap (\(Id uuid) -> uuid) (fmap (.id) mUser)
actorType = maybe "anonymous" (const "user") mUser
actorTypeParam = paramOrDefault @Text actorType "actor_type"
viewContextRef = paramOrNothing @Text "view_context_ref"
@ -41,7 +40,7 @@ instance Controller InteractionEventsController where
event <- newRecord @InteractionEvent
|> set #widgetId widgetId
|> set #eventType eventType
|> set #actorId (coerce actorId)
|> set #actorId actorId
|> set #actorType actorTypeParam
|> set #viewContextRef viewContextRef
|> set #metadata metadata