hOpA microkernel OS based on the Run Time System (RTS) of GHC, an Haskell implementation. From its home page (see below):
[..] It is meant to enable people to experiment with writing device drivers in Haskell. Currently, hOp is still very hackish, and IA32-specific. Contributions are welcome!
The RTS of GHC is truly an amazing piece of software. By removing the system-specific bits, and just adding a few lines of C and assembly code, it turns into a standalone micro-kernel that can be extended in our favorite language, Haskell.
All functions from the base hierarchical library outside of the System module is available. This includes threads and communication primitives and the foreign interface, which means experimenting with writing drivers in Haskell should be reasonably easy. [..]