cCurrentComorphism :: CmdlState -> IO CmdlState
cCurrentComorphism st =
 case i_state $ intState st of
  Nothing -> return $ genMessage "" "No comorphism!" st
  Just ist -> case cComorphism ist of
               Just cmor -> return $ genMessage "" (show cmor) st
               Nothing -> return $ genMessage "" "No comorphism!" st
cCurrentComorphism :: CmdlState -> IO CmdlState
cCurrentComorphism st =
 case i_state $ intState st of
  Nothing -> return $ genMessage "" "No comorphism!" st
  Just ist -> case cComorphism ist of
               Just cmor -> return $ genMessage "" (show cmor) st
               Nothing -> return $ genMessage "" "No comorphism!" st
cCurrentComorphism st =
 case i_state $ intState st of
  Nothing -> return $ genMessage "" "No comorphism!" st
  Just ist -> case cComorphism ist of
               Just cmor -> return $ genMessage "" (show cmor) st
               Nothing -> return $ genMessage "" "No comorphism!" st