@@ -40,7 +40,7 @@ fromBytes xs = if length xs == 16
4040 else error "Data.UUID.Internal.fromBytes: passed in list of bytes must be of length 16."
4141
4242-- |Creates a UUID out of a list of bytes.
43−-- Does not perform a length check.
43+-- Does not perform a length check on the passed in list.
4444-- Behavior is undefined for lists not of length 16.
4545unsafeFromBytes :: [Word8] -> UUID
4646unsafeFromBytes xs = U $ castForeignPtr $ unsafePerformIO $ do
@@ -48,12 +48,16 @@ unsafeFromBytes xs = U $ castForeignPtr $ unsafePerformIO $ do
4848 withForeignPtr p $ flip pokeArray xs
4949 return p
5050
51−-- |Given a UUID, returns a pointer to the 16 bytes
51+-- |Unsafe.
52+--
53+-- Given a UUID, returns a pointer to the 16 bytes
5254-- of memory that make up the UUID.
5355toForeignPtr :: UUID -> ForeignPtr CChar
5456toForeignPtr (U p) = p
5557
56−-- |The passed in pointer is treated as if it were a pointer
57−-- to 16 bytes of memory. You're in trouble if it isn't.
58+-- |Unsafe.
59+--
60+-- The passed in pointer is treated as if it were a pointer
61+-- to 16 bytes of memory, which is then returned as a UUID.
5862fromForeignPtr :: ForeignPtr CChar -> UUID
5963fromForeignPtr = U