Using Literate Haskell on SoH

The following Markdown:

```active haskell
{-# START_FILE Main.lhs #-}
> main = return ()
```

Produces:

{-# START_FILE Main.lhs #-}
> main = return ()