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

fix(WP-0017/E1): Layer 2 + Sessions fixes

Browse source 
- CrossHubPropagation: IHP.Prelude.head returns Maybe a; use List.head
  (Data.List.head, already imported qualified) for non-empty-guarded lists
- Sessions: currentUserOrNothing is pure Maybe, not IO; use case...of instead of >>=

Co-Authored-By: Claude Sonnet 4.6 <noreply@anthropic.com>
This commit is contained in:
Bernd Worsch 2026-04-11 08:37:04 +00:00
parent 34be62de04
commit 58cad31042
2 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Web/Controller/Sessions.hs
View file

@ -27,7 +27,7 @@ instance Controller SessionsController where
redirectTo NewSessionAction
action DeleteSessionAction = do
currentUserOrNothing @User >>= \case
case currentUserOrNothing @User of
Just user -> logout user >> redirectTo NewSessionAction
Nothing -> redirectTo NewSessionAction