jbrechtel
456eae4717
- Fixed hashPasswordIO to use real PBKDF2 hashing from Sis.Auth - Added seed route (rseed) for demo data initialization - Replaced redirect() in update functions with success views (redirect uses throwError_ which broke with effectful 2.4) - Added loginSuccessView and signupSuccessView with dashboard links - Patched Hyperbole Socket.hs to parse WebSocket form body into Form params - Patched Hyperbole Wai.hs to include TargetViewId in response metadata - Fixed View/Page type mismatches (hyper wrapper vs plain view) - Removed dead pure after redirect calls - Verified: login submits, session set, success view rendered
Sis
Sis (short for Sisyphus) is a todo tracker meant primarily for households, families or other groups of people with shared repeated responsibilities like chores.
The goal of Sis is to make it easy for users to keep track of which tasks need to be completed and when while allowing any user to complete a given task and provide visibility to other users that a task has been completed.
Sis is a web application written entirely in Haskell using Hyperbole, a serverside web framework inspired by HTMX, Elm, and Phoenix LiveView. There is zero application JavaScript in the source code.
Stack
- Framework: Hyperbole — Haskell serverside web framework
- CSS: Neo Brutalism CDN
- Database: SQLite via sqlite-simple with effectful effect system
- Build: Stack with GHC 9.10
Architecture
Sis is a single Haskell application. All HTML is rendered serverside via Hyperbole's Page/HyperView system. User interactions are sent over WebSocket with VirtualDOM-based page updates.
sis/
├── app/Main.hs # Hyperbole app entry, Warp setup, route dispatch
├── src/
├─├── Sis.hs # Top-level re-exports
│ ├── Sis/Route.hs # Route ADT
│ ├── Sis/Types.hs # Core domain types
│ ├── Sis/Database.hs # effectful DB effect + SQLite handler
│ ├── Sis/Auth.hs # Password hashing
│ ├── Sis/Page/ # One module per page
│ │ ├── Login.hs
│ │ ├── Signup.hs
│ │ ├── Dashboard.hs
│ │ ├── Chores.hs
│ │ ├── Household.hs
│ │ └── Activity.hs
│ ├── Sis/View/ # Reusable view components
│ │ └── Layout.hs
│ └── Sis/Style.hs # Neo Brutalism class helpers
├── frontend/static/ # Static CSS + PWA manifest
├── test/Spec.hs # Hspec test suite
├── scripts/ # build, test, run
├── package.yaml # Haskell deps (hpack source of truth)
├── stack.yaml # Stack resolver config
└── Dockerfile # Production image
Development
# Build
./scripts/build
# Test
./scripts/test
# Run (starts on port 8080)
./scripts/run