learn :: MegaHal -> BS.ByteString -> Bool -> IO ()
learn (MegaHal cxt _) str log = BS.useAsCString str (flip (m_learn_no_reply cxt) (boolToCInt log))
learn :: MegaHal -> BS.ByteString -> Bool -> IO ()
learn (MegaHal cxt _) str log = BS.useAsCString str (flip (m_learn_no_reply cxt) (boolToCInt log))
learn (MegaHal cxt _) str log = BS.useAsCString str (flip (m_learn_no_reply cxt) (boolToCInt log))