diff --git a/pkg/hs/urbit-king/lib/Urbit/Vere/Pier/Types.hs b/pkg/hs/urbit-king/lib/Urbit/Vere/Pier/Types.hs index 148d935d0a..5f3fd11eaa 100644 --- a/pkg/hs/urbit-king/lib/Urbit/Vere/Pier/Types.hs +++ b/pkg/hs/urbit-king/lib/Urbit/Vere/Pier/Types.hs @@ -45,15 +45,6 @@ instance Show Nock where -------------------------------------------------------------------------------- --- A Pill is a pair of [pil_p pil_q], where pil_p is cued and pil_q is an --- optional set of userspace ovums. --- --- The cued pil_p is a trel of [mot tag dat], where mot is 0 (version number?), --- tag is a cord about the type of pill, and dat is the traditional trel of --- [pBootForumlas pKernelOvums pUserspaceOvums]. --- --- So what's with pil_q? It looks like it is search for the %into. - data Pill = PillIvory [Noun] | PillPill diff --git a/pkg/hs/urbit-noun-core/lib/Urbit/Noun/Mug.hs b/pkg/hs/urbit-noun-core/lib/Urbit/Noun/Mug.hs index a15095042d..005f822324 100644 --- a/pkg/hs/urbit-noun-core/lib/Urbit/Noun/Mug.hs +++ b/pkg/hs/urbit-noun-core/lib/Urbit/Noun/Mug.hs @@ -35,4 +35,4 @@ mum syd fal key = go syd 0 ham = shiftR haz 31 `xor` (haz .&. 0x7fff_ffff) in if ham /= 0 then ham - else go (syd + 1) (i + 1) \ No newline at end of file + else go (syd + 1) (i + 1)