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

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>

Web/Controller/InteractionEvents.hs

@@ -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