                  infoLibraryDescription=libraryDescription,
                  infoLibraryVersion=libVer
                  }
+  poke p v = do
+    error "not implemented"
 
 
 peekInfo :: Ptr Info -> IO Info

                          --tokenInfoFirmwareVersion=fwVer
                          }


data MechInfo = MechInfo {
    mechInfoMinKeySize :: Int,

                     slotInfoHardwareVersion=hwVer,
                     slotInfoFirmwareVersion=fwVer
                     }
  poke p v = do
    error "not implemented"


data TokenInfo = TokenInfo {
