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

3
Web/View/LearningDashboard/Show.hs
View file

@ -2,6 +2,7 @@ module Web.View.LearningDashboard.Show where
import Web.View.Prelude
import Data.Time (diffUTCTime, getCurrentTime, nominalDay)
import qualified Data.Text as T
data ShowView = ShowView
{ topCorrelations :: ![OutcomeCorrelation]
@ -159,7 +160,7 @@ renderKnowledge e = [hsx|
<div>
<a href={ShowInstitutionalKnowledgeAction (e.id)}
class="text-sm text-blue-600 hover:underline">
{take 80 e.summary <> if length e.summary > 80 then "…" else ""}
{T.take 80 e.summary <> if T.length e.summary > 80 then "…" else ""}
</a>
</div>
|]